Question

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

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

    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”道歉。

Answer 1

这个功能应该可以解决问题。

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")

使用此文字：

快速的棕色狐狸跳过懒狗

返回：

快速的棕色狐狸跳过

VB.net - 使用多个字符从文本文件中分割行

1 个答案: