如何用VB做一个查找TXT内容并输出的程序

来源：百度知道 编辑：UC知道 时间：2024/05/25 10:06:51
我是菜鸟，想了解这样一个程序的做法：
在一个txt文件中查找指定的数据，找到后就把这一整行数据输出到一个text控件中，在继续往下找，符合条件的在把一整行输出，直到结束！
请教高手！VB做

'*************************************************************************
'**函 数 名：FindTxt
'**输''''入：fPath(String) - 待查找的文件的名（带路径
'**''''''''：fText(String) - 要查找的内容
'**输''''出：(String) - 如果有符合条件的内容，则返回最前的一行，如果没有，返回一个空字符串
'**功能描述：该函数用于在指定的文本文件中，查找含有指定内容的的行
'**日''''期：2008-05-29 16:20:29
'*************************************************************************
Function FindTxt(fPath As String, fText As String) As String
Dim S As String
If Len(Dir(fPath)) > 0 Then
Open fPath For Input As #1
Do While Not EOF(1)
Line Input #1, S
If InStr(S, fText) > 0 Then
FindTxt = S
Exit Do
End If
Loop
Close #1
Else
MsgBox "没有找到文件,不能查找"
End If