如何將一個文本文件中滿足指定條件的內容篩選到另一個文本文件中？

如何將一個文本文件中滿足指定條件的內容篩選到另一個文本文件中？

Q：如下圖1所示，一個名為“InputFile.csv”文件，每行有6個數字，每個數字使用空格分隔開。

圖1

現在，我要將以60至69開頭的行放置到另一個名為“OutputFile.csv”的文件中。圖1中只是給出了少量的示例數據，我的數據有幾千行，如何快速對這些數據進行查找并將滿足條件的行復制到新文件中？

A：VBA代碼如下：

Sub FilterTextFile()

Dim ReadLine As String

Dim buf

‘使用Open語句打開或創建文件

OpenThisWorkbook.Path & “\InputFile.csv” For Input As #1

OpenThisWorkbook.Path & “\OutputFile.csv” For Output As #2

‘循環直至到達指定文件末尾

Do Until EOF(1)

‘讀取文件中的一行并將其賦值給ReadLine變量

Line Input #1, ReadLine

‘將ReadLine中的字符串拆分成數組

buf =Split(ReadLine, ” “)

‘判斷數組的第1個值是否處于60至69之間

‘如果是則將其寫入文件號指定的文件

If buf(0) >= 60 And buf(0) < 70 Then

Print #2, ReadLine

End If

Loop

‘關閉文件

Close #2

Close #1

End Sub

代碼假設“InputFile.csv”和“OutputFile.csv”文件都放置在與代碼工作簿相同的文件夾中。

代碼中：

1.第1個Open語句用來打開“InputFile.csv”文件，指定文件號#1。

2.第2個Open語句用來創建“OutputFile.csv”文件，指定文件號#2。由于文件夾中事先沒有這個文件，因此Excel會在文件夾中創建這個文件。

3.EOF(1)用來檢測是否到達了文件號#1的文件末尾。

4.Line Input語句從文件號#1的文件中逐行讀取其內容并將其賦值給變量ReadLine。

5.Split函數將字符串使用指定的空格分隔符拆分成下標以0為起始值的一維數組。

6.Print語句將ReadLine變量中的字符串寫入文件號#2的文件。

7.Close語句關閉指定的文件。

代碼的圖片版如下：

運行代碼后，將在工作簿所在的文件夾中生成一個如下圖2所示的名為“OutputFile.csv”的文件。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。