ファイルグループ内のすべてのテキストを置換します。

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

あなたが見ているのは、列のヘッダーと行の名前です。あなたは

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