2

我想这样做，以便我的程序将搜索文本文件，并在找到关键字后将所有文本声明为字符串，直到它“看到”下一个关键字。就像您用鼠标突出显示文本一样。

到目前为止我有这个代码，

    Dim objReader As New StreamReader("C:\test.txt")

    Dim file As String = ""
    Dim result As String

    If Not file Is Nothing Then
        file = objReader.ReadLine()
        result = file.Split("keyword")(1).Split("keyword2")(0)
        TextBox1.Text = Convert.ToString(result)
    End If

现在，如果我尝试使用单个字符或字母等，这可以正常工作，但是单词会导致在文本文件中复制看似随机的内容。

感谢您提前提供的所有帮助，并为我的“noobiness”道歉。

4

1 回答 1

0

这个函数应该可以解决问题。

Function GetSubString(ByVal inText As String, ByVal firstWord As String, ByVal secondWord As String) As String
    Dim indexFirst As Integer = inText.IndexOf(firstWord)
    Dim indexSecond As Integer = inText.IndexOf(secondWord)
    Return inText.Substring(indexFirst, indexSecond - indexFirst + secondWord.Length)
End Function

像这样使用它：

GetSubString(RichTextBox1.Text, "quick", "over")

使用此文本：

敏捷的棕色狐狸跳过了懒狗

这是返回的：

快速的棕色狐狸跳过

于 2013-07-16T00:42:05.007 回答