vb处理一个文本文件

Question

一个文本文件；
里面有几万个数据；
每个数据由5位数字或由5为数字后面加aa9组成；
每个数据由不确定多少个空格分隔现在需要的是
将包含aa9的数据写到一个新的文本文件，一行一个

Answer 1

建议使用正则表达式：
[\d]{5,5}?aa9

Answer 2

文本文件的结构有问题。不要用不确定的空格来区分记录，最好用换行。那样可以执行得更快，代码也更简单。下面的代码临时写的，没有测试。你自己调试吧。
Dim strTmp As String, bytArr() As Byte, strArr() As String, i As LongOpen "test.txt" For Binary As #1
Redim bytArr(LOF(1) - 1)
Get #1, , bytArr
Close #1strTmp = StrConv(bytArr)
strArr = Split(strTmp, " ")Open "new.txt" For Output As #2
For i = 0 To Ubound(strArr)
    If Right(strArr(i), 3) = "aa9" Then Print #2, strArr(i)
Next i
Close #2