R - 读取文件中的文本并将其附加到另一个文件中

Question

我在Windows 7上运行RStudio 3.2.3。我需要在文本文件中读取某些文本。下面的代码成功地从原始文件中的第1行到第24行附加到新文件。我需要追加到新文件中的行总是以“DATE ACQUIRED =”开头。我可以搜索该行（第23行），只读取它上面的日期，并将日期附加到文件中吗？如果我可以将它附加到一个很棒的电子表格中。

con <- file("LC80140332015238LGN00_MTL.txt") 
        x <- readLines(con,24) 
        unlink("data") 
        write(x,file="myMTLfile2.txt",append=TRUE)[/CODE]

Answer 1

使用grep和sub进行简单解析应该可以正常工作

lines <- readLines("LC80140332015238LGN00_MTL.txt")
# get lines with DATE_ACQUIRED
matched_lines <- lines[which(grepl("DATE_ACQUIRED", lines))]
# extract date
date_acquired <- sub(".*(\\d{4}-\\d{2}-\\d{2}).*", "\\1", matched_lines)
write(date_acquired, "myMTLfile2.txt", append=TRUE)

如果您有不同格式的日期，则可能需要更改日期解析的正则表达式。