vb 如何从一个文本中将符合要求的某几项内容提出存入另一个文本中

来源：百度知道 编辑：UC知道 时间：2024/06/16 11:39:13
比如说一个文本文件的路径为D:\1.txt
将这个文本中带有N这个数的每一行提取出来存入另一个2.txt中

跪求各位大虾帮帮忙
从TEXT1.text中填入一个数字,然后单击按钮,从路径为D:\1.txt中将带有这个数字的每一
行数提取存入另一个文本D:\2.txt中

Dim x(10000) As String
Private Sub Command1_Click()
Open "D:\1.txt" For Input As #1
For i = 0 To 9999
If Not EOF(1) Then
Input #1, x(i)
Else
Exit For
End If
Next
Close #1

Open "D:\2.txt" For Output As #1
For i = 0 To 9999
If InStr(x(i), "N") <> 0 Then Print #1, x(i)
Next
Close #1
MsgBox "提出OK!"
End Sub

搞定了！！！