VB.NET如何搜索显示文本文件指定行？按钮无弹窗问题排查

嘿，我帮你排查下这段VB代码的问题哈～你现在的代码没弹出消息框，主要是几个关键地方出了问题，我给你拆解下并修正：

你的代码里存在几个影响功能的小问题：

• 变量声明错误：VB.NET中Dim filename, sr As String的写法，其实是把filename声明成了Object类型，只有sr是String类型，这会导致后续文件路径拼接可能出问题。
• 文本框内容获取错误：txtsr.ToString返回的是控件的类型名称（比如System.Windows.Forms.TextBox），而不是用户输入的内容，应该用txtsr.Text来获取输入值。
• 循环逻辑不完整：你的For Each line As String In...语句没有写完，缺少遍历文件行数组的逻辑，也没有判断行内容是否匹配搜索词的代码。
• 缺少消息框触发逻辑：整个代码里没有调用MessageBox.Show()的部分，自然不会弹出提示。
• 多余无用变量：linecontain As Char这个变量完全没用到，可以直接删掉。

Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
    ' 正确声明字符串类型变量
    Dim filename As String, searchText As String
    ' 用&做字符串拼接（比+更安全，避免类型转换问题）
    filename = My.Application.Info.DirectoryPath & "\" & "mul.txt"
    
    ' 读取文件所有行到数组
    Dim fileLines As String() = IO.File.ReadAllLines(filename)
    Dim isFound As Boolean = False
    
    ' 获取文本框输入的搜索内容，Trim去掉首尾空格避免干扰
    searchText = txtsr.Text.Trim()
    
    ' 遍历每一行查找匹配内容
    For Each line As String In fileLines
        If line.Contains(searchText) Then
            ' 找到匹配行，弹出消息框显示内容
            MessageBox.Show("找到匹配行：" & vbCrLf & line)
            isFound = True
            ' 如果只需要显示第一个匹配项，取消下面的注释即可跳出循环
            ' Exit For
        End If
    Next
    
    ' 遍历结束后如果没找到，提示用户
    If Not isFound Then
        MessageBox.Show("未找到包含指定内容的行")
    End If
End Sub

• 我把变量名改成了更易懂的searchText和fileLines，方便后续维护；
• 用vbCrLf在消息框里换行，让显示的内容更清晰；
• 增加了未找到内容时的提示，提升用户体验；
• 注释里标注了如果只需要第一个匹配项的处理方式，你可以根据需求调整。

内容的提问来源于stack exchange，提问作者Samantha