读取txt文件，然后按chr

Question

我对读取大型txt文件并根据字符“ TIME”将其分开有疑问。 每个“时间”表示特定时间点的空间区域的压力。 我应该如何编写可识别“ TIME”字符并将其分割的readtext函数？

Answer 1

我首先要创建一个文件夹，以便可以在其中保存新文件。另外，我会将原始数据文件放在此文件夹中。

# setwd("....")     # Set the working directory as the folder you just created.

我保存了您在“ data.txt”中提供的数据结构

以下几行会将您的数据（位于我计算机的“ data.txt”中）拆分为具有连续名称的文件，例如“ data1.txt”，“ data2.txt”等。

incon = file("data.txt", "r")
i = 0
while (TRUE) {
    line = readLines(incon, n = 1)
    if (length(line) == 0) {
        break
    }
    if (regexpr("TIME:", line) > 0) {
        if (exists("outcon")) close(outcon)
        i = i + 1
        outcon = file(paste("data", i, sep=""), "w")
        writeLines(line, outcon)
    } else {
        writeLines(line, outcon)
    }
}
close(outcon)