替换一组文件中的所有文本

Question

我有一大堆文件。我想删除这些文件中的所有文本并粘贴一个我称之为 mytext.

的新字符串

我是 R 的新手，但我编写的 R 代码几乎可以完美地完成工作。它非常混乱，我确定我正在采取不必要的步骤。此外，它并没有像我想要的那样完全删除所有文本，并且留下了引号，这是我不能拥有的。

temp = list.files(pattern="*.Hdr")

for(x in 1:length(temp)) {
    data = read.csv(temp[x], header = FALSE)
    data <- data[NULL, NULL]
    write.csv(data, file = temp[x])    ## output new file
}
temp = list.files(pattern = "*.Hdr")
mytext = "nrows 4096
ncols 8192
nbands 1
nbits 16
pixeltype signedint
byteorder M
layout dat
ulxmap -130.517083333328
ulymap 58.2329166666644
xdim 0.00833333333
ydim 0.00833333333"    ## This is the variable I want to keep

for(x in 1:length(temp)) {
    data = read.csv(temp[x], header = FALSE)
    data = paste(mytext)
    write.csv(data, file = temp[x])    ## output new file
}

我生成的表格都是这样的：

"","x"
"1","nrows 4096
ncols 8192
nbands 1
nbits 16
pixeltype signedint
byteorder M
layout dat
ulxmap -130.517083333328
ulymap 58.2329166666644
xdim 0.00833333333
ydim 0.00833333333"

近乎完美，但我不想要：

"","x",
"1",

我也不想要 mytext 周围的引号。如果有人能指出我的错误，我将不胜感激。

Answer 1

您正在查看的是列 headers 和行名称。您可以将它们与

的引号一起关闭

write.csv(data, file = temp[x], header=F, row.names=F, quote=F)

替换一组文件中的所有文本

Replace ALL text within a group of files

r

quotation-marks