VB关于搜索文本的代码···

Posted 2023-03-09

我的可能比较特殊，TXT里的数据是一行一行的，在text1里输入东东，如果和文本里的某一行相匹配，那么就把这一行和下一行显示在text2里。如果多个匹配，那么久都显示在text2里。如果没有，就显示没有。
PS:文本并不在固定位置，而是在与exe同一目录的文件夹里，应该用什么path吧···
有没有比较简单的易懂的，最好用 ‘ 添上注释，谢谢了。

Public Function FindString(pathStr As String, findStr As String)
Dim textStr As String, textTemp As Variant  ' 定义变量，用于储存文本内容
On Error GoTo ErrCode:
    ' 获取文件内容
    Open pathStr For Input As #1
        textStr = StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
    ' 按行存入数组
    textTemp = Split(textStr, vbNewLine)
    ' 清空字符串内容
    textStr = ""
    ' 开始获取数组内容
    For i = 0 To UBound(textTemp)
        DoEvents
        If textTemp(i) = findStr Then   ' 检测当前行内容是否匹配
            ' 获取当前行和下一行的内容并自动添加换行符
            textStr = textStr & textTemp(i) & vbNewLine & textTemp(i + 1) & vbNewLine
        End If
    Next i
    ' 当没有找到匹配内容时设置textStr为Not Found,你也可以改为"没有找到"
    If textStr = "" Then textStr = "Not Found"
    ' 设置返回值为textStr
    FindString = textStr
    Exit Function
ErrCode:
    ' 当发生错误时(如下标越界)返回Error
    FindString = "Error"
    Exit Function
End Function

先将上面的函数写入模块中

    Text2.Text = FindString(App.Path & "\\1.txt", Text1.Text)

再用以上代码达到你的目的，并且添加了模块后以后都可以用FindString()函数来获取内容了

追问

这样显示的是txt里的两行在text里显示成1行了，有什么解决办法吗？

追答

这和我的代码无关，是控件属性设置的问题，把Text控件的MultiLine设置为True就可以多行显示了

参考技术A '我这个程序比较简单.测试正确.相信你能看懂的.朋友.
Private Sub Command1_Click()
x = InputBox("请输入文件名(含完整的路径,如d:/temp01.txt)")
Open x For Input As #1
End Sub
Private Sub Command2_Click()
Dim s As String, s1 As String
If Not EOF(1) Then
Line Input #1, s
If Not EOF(1) And s Like "*" & Text1 & "*" Then
Line Input #1, s1 '如果上一次读出后仍没到文件尾,并且所查内容在那行中,则再读一行
Text2 = s & s1
Else
Text2 = "没有"
End If
Else
Text2 = "文件已读完.要继续请重新输入"
End If
End Sub
Private Sub Command3_Click()
Close
End
End Sub