UC知道求一VB查询txt文件内容的语句
来源：百度知道 编辑：UC知道 时间：2024/05/22 11:08:06
大家帮我看一下,代码怎么写啊,如果怕有病毒的话,我就把功能说出来.
就是一个txt文本框,里面输入内容,然后在当前目录下一个文本文件里面查出含有文本框里面内容的记录;当然,文本文件一行一个记录;显示的时候也是的,一行显示一条记录!
占个位 我试着帮你写个源程序~~~~在源作者的程序基础上添加了一项功能支持搜索引擎的空格 模糊查找功能``即多个关键字使用空格分开 进行查询Private Sub Command1_Click() If Text1.Text "" Then FindKeyword (Text1.Text) Else MsgBox "请输入搜索关键字！" End IfEnd SubSub FindKeyword(ByVal kw As String) Dim Keyword$() Dim Stream$, filepath$ Keyword = Split(kw, " ") filepath = IIf(Right$(App.Path, 1) "\" And Right$(App.Path, 1) "/", App.Path & "\answer.txt", App.Path & "answer.txt") Text2.Text = "" Open filepath For Input As #1 Do While Not EOF(1) Line Input #1, Stream For i = 0 To UBound(Keyword) If InStr(Stream, Keyword(i)) = 0 Then Exit For 'ReDim Keyword(1) Else If i = UBound(Keyword) Then Text2.Text = Text2.Text & "· " & Stream & vbCrLf End If End If Next Stream = "" Loop Close #1End Sub代码如上源代码如下
求一VB查询txt文件内容的语句 vb读取txt文件的内容 VB提取txt文件的内容 vb对比txt文件内容的不同之处 求用VB怎么能够调用txt文件里边的内容！！ VB中怎么用listbox控件显示一txt文件内容！ 如何在VB中打开的txt文件的内容输出成数组？ VB怎样写才能一个字符一个字符的读取TXT文件里的内容哩? 能不能用vb把系统的一个txt文件中的内容清空？ vb中，如何将几个txt文件的内容合并成一个呢？