Question

这是我的代码

Dim InputStr As String = CrystalClearTextBox1.Text

    For Each FileStr As String In IO.Directory.GetFiles("C:\Users\root\Desktop\databases", "*.txt")

        If IO.File.ReadAllText(FileStr).IndexOf(InputStr) >= 0 Then

            ListBox1.Items.Add(IO.Path.GetFileName(FileStr))
        Else
            ListBox1.Items.Add("No Results found!")

        End If

    Next
End Sub

也可以添加.csv，.sql？

而不仅仅是.txt

我想要做的是当它返回它所在的文本文件时能够单击它并打开文本文件并滚动到该文本文件中的单词所在的位置，这可能吗？如果你能帮助我，我会非常感激它！

Answer 1

你有2个问题。我将给出第一个，然后为那个做一个不同的主题。

Dim files = New DirectoryInfo("your directory").GetFiles()

'set the data source
lsb.DataSource = files

'this will be the display in the listbox
lsb.DisplayMember = "Name"

'this is the full path for opening the file
lsb.ValueMember = "FullName"

用法 - 在列表框selectedIndexChanged事件中。

'this will open whatever program is need to open the document
Process.Start(lsv.SelectedValue.ToString)

可点击列表框打开文本文件VB.NET

1 个答案: