如何让vb从txt文件中搜索到关键字时,复制关键字所在的整行。然后显示到text1中去。

Question

如何让vb从txt文件中搜索到关键字时,复制关键字所在的整行。然后显示到text1中去。

举例: 以下是txt内容
vas9nvxz
njklkna9
njvzioas
uizvxwfa
ijow9eaf

关键字为： 9
我现在要按Command1 让vb搜索到关键字 9 然后复制 9所在的整行到text1中去 。

也就是说输出的 text1 的内容应该是:
vas9nvxz
njklkna9
ijow9eaf

求代码 :)

越简单越好。

Answer 1

'text1的MultiLine属性 设置为True
Private Sub Form_Load()
Text1.Text = ""
Open "g:\1.txt" For Input As #1
While Not EOF(1)
Line Input #1, a
If InStr(1, a, "9") > 0 Then
Text1.Text = Text1.Text & a & vbCrLf
End If
Wend
Close #1
End Sub

Answer 2

打开文件、按行读取为string变量（参见VB的文件操作）
用LIKE关键字查找（参见Like关键字）
显示该string
next

具体代码不会。

Answer 3

a[1]="vas9nvxz"
a[2]="njklkna9"
a[3]="njvzioas"
a[4]="uizvxwfa"
a[5]="ijow9eaf"

for i=1 to 5
if pos(a[i],'9')>0 then
msgbox a[i]
end if
next

Answer 4

Text1.Text = ""
Open "g:\1.txt" For Input As #1
While Not EOF(1)
Line Input #1, a
If InStr(1, a, "9") > 0 Then Text1.Text = Text1.Text & a & vbCrLf
Wend
Close #1