Question

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

【醒目:要VB.NET的,不要VB6.0的,给了我程式码确认能行的话,追加50~100分】
如何让vb从txt文件中搜索到关键字时,复制关键字所在的整行。然后显示到textbox1中去。

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

关键字为： 9 (搜索关键字用inputbox)
我现在要按button1 让vb搜索到关键字 9 然后复制 9所在的整行到textbox1中去 。

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

求代码 :)
【醒目:要VB.NET的,不要VB6.0的,给了我程式码确认能行的话,追加50~100分】

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim p As String = InputBox("请输入搜索关键字")
Try
Dim fs As New System.IO.FileStream("c:\1.txt", System.IO.FileMode.Open)
Dim sr As New System.IO.StreamReader(fs)
Dim str As String
Do Until sr.EndOfStream
str = sr.ReadLine
If str.Contains(p) Then TextBox1.AppendText(str & vbNewLine)
Loop
sr.Close()
fs.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub