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开始的for循环到RTB的Lines.Count -1。这个迭代器变量就是索引位置。

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

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中记录索引

1 个答案: