如何用R语言将TXT文件中特定字符行替换为两行空行

实现思路 #

遍历读取到的每一行文本：

• 若该行包含目标字符串"x"，就往结果里添加两个空字符串
• 若为普通行，直接保留原内容添加到结果中

完整代码示例 #

# 读取原文件内容（本地文件直接替换为本地路径即可）
my_text <- readLines("https://raw.githubusercontent.com/Leprechault/trash/main/test.txt")

# 初始化空向量存储处理后的内容
my_text_new <- c()

# 逐行处理文本
for (line in my_text) {
  if (grepl('"x"', line)) {
    # 匹配到含"x"的行，插入两行空行
    my_text_new <- c(my_text_new, "", "")
  } else {
    # 普通行直接保留
    my_text_new <- c(my_text_new, line)
  }
}

# 将处理后的内容写入新文件
writeLines(my_text_new, "test_new.txt")

# 验证处理结果
readLines("test_new.txt")

结果验证 #

运行代码后读取新文件，得到的内容与你期望的输出完全一致：

[1] ""                                                               
 [2] ""                                                               
 [3] "\"Relatòrio de desempenho dos diferentes produtos testados\"" 
 [4] ""                                                               
 [5] ""                                                                                                                           
 [6] "\"Vittia P&D\""                                               
 [7] ""                                                               
 [8] ""                                                                                                                           
 [9] "\"Data:2022-12-27\""                                          
[10] ""                                                               
[11] ""                                                                                                                          
[12] "\"Período de tempo analisado\""                               
[13] ""                                                               
[14] ""                                                                                                                         
[15] "24"                                                           
[16] ""                                                               
[17] ""                                                               
[18] "\"Df\" \"Deviance\" \"Resid. Df\" \"Resid. Dev\" \"Pr(>Chi)\""

补充说明 #

• 如果需要匹配任意包含字母x的行（不局限于"x"格式），可以把判断条件改成grepl("x", line, ignore.case = TRUE)，大小写x都会被识别
• 处理超大文件时，循环遍历的效率可能偏低，也可以用purrr包的map函数简化逻辑，但普通规模文件用上述循环完全够用

内容的提问来源于stack exchange，提问作者Leprechault