R程序：简化金山词霸导出的生词本，可供扇贝批量添加词库

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

平时经常用扇贝背单词，用词霸查词，查的生词本又想导入扇贝来背，但手动导入太麻烦了，闲来无事，编了个R程序简化下金山导出的生词本。这个先要用金山词霸导出txt格式的单词本，再用记事本打开另存为UTF-8格式的txt。然后把txt放R语言搜索路径下，运行一遍程序，在控制台输入c2s('文件名.txt')，就可以了。搜索路径下会出现个c2s.txt。里面单词每10个空一行，方便导入扇贝。 ciba2shanbei.txt (306 Bytes, 需要: 3 个论坛币)

2018-9-21 21:18:39 上传

R程序：简化金山词霸导出的生词本，可供扇贝批量添加词库
需要: 3 个论坛币  [购买]

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：金山词霸 R程序 txt格式 闲来无事 txt

简单看了下，代码几乎不具有通用性，对文档要求比较高，通用性比较低，代码过于简单.所说的功能有点夸大.大家谨慎下载！！！！

看了下这个博主的空间，发的东西都比较LOW，有骗论坛币的嫌疑大家小心

这就是他声称的值3论坛币的代码，大家看吧，就这还出来骗！！丢人！！

1. c2s<-function(wl){
   
2. p<-read.table(wl,header=F,sep='\n',encoding='UTF-8',stringsAsFactors=F)
   
3. p<-as.matrix(p)
   
4. pl<-regexpr('+',p,fixed=T)
   
5. cs<-substr(p[pl>0],start=pl[pl>0]+1,stop=nchar(p[pl>0]))
   
6. for(i in 1:length(cs)){
   
7.   if(i%%10==0) cs[i]<-paste0(cs[i],'\n')}
   
8. cat(cs,file='c2s.txt',sep='\n')
   
9. }

复制代码

zhou1_20 发表于 2019-4-7 20:39
这就是他声称的值3论坛币的代码，大家看吧，就这还出来骗！！丢人！！

我介绍说的不清楚吗？，3论坛币就值几分钱，你把我代码贴出来什么意思，有点道德吗？素质这么低，还出来混，回家吃屎去吧

wuliea 发表于 2019-4-8 10:42
我介绍说的不清楚吗？，3论坛币就值几分钱，你把我代码贴出来什么意思，有点道德吗？素质这么低，还出来混 ...

你说我这几句话就是没素质的表现，论坛不需要你这种故弄玄虚者，你这样的人还学习R，赶紧退出论坛吧

zhou1_20 发表于 2019-4-8 13:38
你说我这几句话就是没素质的表现，论坛不需要你这种故弄玄虚者，你这样的人还学习R，赶紧退出论坛吧

你公布我代码，还有理了？尊重别人的劳动成果就是对自己的尊重。我TM怎么得罪你了，无缘无故惹来你这疯狗

zhou1_20 发表于 2019-4-8 13:38
你说我这几句话就是没素质的表现，论坛不需要你这种故弄玄虚者，你这样的人还学习R，赶紧退出论坛吧

你公布我代码，还有理了？尊重别人的劳动成果就是对自己的尊重。我TM怎么得罪你了，无缘无故惹来你这疯狗

wuliea 发表于 2019-4-8 16:13
你公布我代码，还有理了？尊重别人的劳动成果就是对自己的尊重。我TM怎么得罪你了，无缘无故惹来你这疯狗

shiny那个“小说阅读器”怎么掉价了，30到15论坛币，心虚了吧，自己做的东西好怎么不涨到1000000论坛币。谁是疯狗？？？，从头到尾都是你在那里骂人。