R语言如何将txt文件中的文本分割成多个txt文件？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

R语言如何将txt文件中的文本分割成多个txt文件？
文本是歌词，每首歌前有《》起来的歌名，如下：
《可爱女人》
想要有直升机 想要和你飞到宇宙去
想要和你融化在一起 融化在银河里
我每天每天每天在想想想想着你
这样的甜蜜 让我开始相信命运
感谢地心引力 让我碰到你
漂亮的让我面红的可爱女人
温柔的让我心疼的可爱女人
透明的让我感动的可爱女人
坏坏的让我疯狂的可爱女人
世界这样大而我而我只是只小小小的蚂蚁
但我要尽全力全力全力保护你
《完美主义》
如果说怀疑 可以造句 如果说分离 能够翻译
如果这一切 真的可以 我想要将我的寂寞封闭
然后在这里 不限日期 然后将过去 慢慢温习
让我爱上你 那场悲剧 是你完美演出的一场戏
宁愿心碎哭泣 再狠狠忘记
你爱过我的证据
让晶莹的泪滴 闪烁成回忆
伤人的美丽
你的完美主义太彻底
让我连恨都难以下笔
将真心抽离写成日记
像是一场默剧
你的完美主义太彻底
分手的话像语言暴力
我已我无能为力再提起
决定中断熟悉

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：txt R语言 完美主义 无能为力 语言暴力

readLines读取，grepl标记歌名行，写个for输出不就行了 。

skyfx 发表于 2017-9-14 19:04
readLines读取，grepl标记歌名行，写个for输出不就行了 。

哦哦，行号 ，谢谢！我试试
能不能用《》 进行分割。比如读取到《 ，输出之上内容。

用strsplit试试呗

1. cc <- "《可爱女人》
   
2. 想要有直升机 想要和你飞到宇宙去
   
3. 想要和你融化在一起 融化在银河里
   
4. 我每天每天每天在想想想想着你
   
5. 这样的甜蜜 让我开始相信命运
   
6. 感谢地心引力 让我碰到你
   
7. 漂亮的让我面红的可爱女人
   
8. 温柔的让我心疼的可爱女人
   
9. 透明的让我感动的可爱女人
   
10. 坏坏的让我疯狂的可爱女人
    
11. 世界这样大而我而我只是只小小小的蚂蚁
    
12. 但我要尽全力全力全力保护你
    
13. 《完美主义》
    
14. 如果说怀疑 可以造句 如果说分离 能够翻译
    
15. 如果这一切 真的可以 我想要将我的寂寞封闭
    
16. 然后在这里 不限日期 然后将过去 慢慢温习
    
17. 让我爱上你 那场悲剧 是你完美演出的一场戏"
    
18. 
    
19. c1 <- strsplit(cc,'《')[[1]]
    
20. c1 <- c1[nchar(c1)>1]
    
21. wt <- paste0('《',c1)
    
22. for(i in 1:length(wt)){
    
23.     write.table(wt[i],paste0(i,'.txt'),col.names=F,row.names=F)
    
24. }

复制代码

jiangbeilu 发表于 2017-9-15 10:34
用strsplit试试呗

谢谢！我试试