如何将一个文本文件中符合指定条件的内容过滤到另一个文本文件中？

问：如下图1所示，一个名为“InputFile.csv”的文件每行有6个数字，每个数字之间用空格隔开。

图1

现在，我将把从60到69开始的行放在另一个名为“OutputFile.csv”的文件中。图1只显示了少量的样本数据。我的数据有几千行。如何快速找到这些数据，将符合条件的行复制到新文件中？

答：VBA代码如下：

子过滤器文本文件()

将读取线调暗为字符串

Dim buf

使用Open语句打开或创建文件。

打开此工作簿。作为#1输入的路径“\InputFile.csv”

打开此工作簿。作为#2输出的路径“\OutputFile.csv”

循环，直到到达指定文件的结尾。

直到电渗流(1)

读取文件中的一行，并将其分配给ReadLine变量。

线路输入#1，读取线路

将ReadLine中的字符串拆分为数组。

buf=Split(ReadLine，“”)

判断数组的第一个值是否在60到69之间。

如果是，将其写入文件编号指定的文件。

如果buf(0)=60，buf(0) 70，那么

打印#2，读取线

如果…就会结束

环

关闭文件。

关闭#2

关闭#1

末端接头

假设代码“InputFile.csv”和“OutputFile.csv”文件与代码工作簿放在同一个文件夹中。

用代码：

1.第一个Open语句用于打开“InputFile.csv”文件，指定文件编号#1。

2.第二个Open语句用于创建“OutputFile.csv”文件，指定文件编号#2。Excel将在文件夹中创建此文件，因为文件夹中没有这样的文件。

3.EOF(1)用于检测它是否已经到达文件编号#1的末尾。

4.4。Line Input语句从文件编号为#1的文件中逐行读取内容，并将其分配给变量ReadLine。

5.5。Split函数使用指定的空格分隔符将字符串拆分为下标从0开始的一维数组。

6.6。Print语句将ReadLine变量中的字符串写入文件号为#2的文件。

7.语句关闭指定的文件。

代码的图片版本如下：

运行代码后，将在工作簿所在的文件夹中生成如下图2所示的名为“OutputFile.csv”的文件。