Question

VB处理一个文本文件

一个文本文件；
里面有几万个数据；
每个数据由5位数字或由5为数字后面加aa9组成；
每个数据由不确定多少个空格分隔

现在需要的是
将包含aa9的数据写到一个新的文本文件，一行一个
例如数据文件为

55226 44523 45896aa9 78562 45963 41589aa9 74235

那么生成的文件为
45896
41589

Answer 1

Dim a As String
Private Sub Command1_Click()
Dim stringx As String, stri As String
CommonDialog1.Filter = "文本文档txt|*.txt"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As 1
Do Until EOF(1)
Line Input #1, stri
Text1 = Text1 & stri
Loop
Close #1
For u = 1 To Len(Text1)
If Mid(Text1, u, 1) <> " " Then
a = a & Mid(Text1, u, 1)
Else
If a <> "" And Right(a, 3) = "aa9" Then
List1.AddItem a
End If
a = ""
End If
Next

End Sub
Private Sub Command2_Click()
CommonDialog1.FileName = "未定义"
CommonDialog1.Filter = "文本文档|*.txt"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Append As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next i
Close #1
MsgBox "对比后文件已保存！！！"
End Sub

这个可以了 有疑问联系我！！！！！