在 richtextbox 中搜索字符串匹配，然后在 vb.net 中记录索引

Question

我有一个 richtextbox，每一行都填满了数据。我想读取每一行并在列表中找到匹配的单词并记录它的索引值，然后退出循环。

然后在程序的某个时候，我想读取同一个richtextbox，并复制我之前获取的匹配索引的行数据。

到目前为止，我已经设法做到了以下几点：

For Each item As String In rtb_critical.Lines

 If item.Contains("Failed to initialise") = True Then
            MsgBox("yes")
Else
 MsgBox("no")
End if
Next

我也找到了这段代码，但不知道如何使用它来获得我想要的东西。

Dim index As Integer = 0

 Do
    ' Find occurrences of the search word, incrementing  
    ' the start index. 
    index = RichTextBox1.Find(searchWord, index + 1, _
        RichTextBoxFinds.MatchCase)
    If (index <> -1) Then

      lineList.Add(RichTextBox1.GetLineFromCharIndex(index))
    End If
Loop While (index <> -1)

有人可以帮助我吗？

谢谢

Answer 1

您可以使用从 0 到 RTB 的 Lines.Count -1 的 for 循环。这个迭代器变量就是索引位置。

因此，当找到一行时，您的迭代器变量就是要存储的索引

for i as integer = 0 to rtb1.lines.count-1
   if rtb1.lines(i).Contains("a search string")
     'store i as that holds the index of the line found
   end if
next

在 richtextbox 中搜索字符串匹配，然后在 vb.net 中记录索引

Search richtextbox for string match and then record the index in vb.net

vb.net

search

richtextbox