如何用VB编程筛选出txt符合条件的所有行

Dim MyStr As String

Dim MyLineStr As String

MyStr = ""

'销敬读取原文件信息

Open "e:\1.txt" For Input As #1       '以读的方式打开文件

Do While Not EOF(1)   ' 循环至文件尾

   Line Input #1, MyLineStr   '读入一行

   If Left(MyLineStr, 2) = "TH" Then

      MyStr 友斗拍= MyStr & MyLineStr & vbCrLf

   End If

Loop

Close #1   ' 关闭文件。

'写文件

Open "e:\2.txt" For Output As #1     '以输出方式打好羡开文件

   Print #1, MyStr

Close #1   ' 关闭文件。

Private Sub Command1_Click()

Dim A(1 To 7) As Integer

Dim N As Integer, I As Integer, T As Integer

Dim StrT As String, J As Integer, Flg As Boolean

Randomize

For I = 1 To 5

N = 0

Do While N <7

T = Int(31 * Rnd) + 1

Flg = False

For J = 1 To N

If A(J) = T Then Flg = True: Exit For

Next

If Not Flg Then N = N + 1: A(N) = T

Loop

StrT = ""

For J = 1 To 7

StrT = StrT &A(J) &" "

Next

List1.AddItem StrT

Next

End Sub

---