[英]Getting a list of indexes from a text search in vb2005
我正在富文本框中的字符串上进行索引搜索,我有一个关键字列表,该文本框中需要使用不同的颜色。 如何在vb2005中对字符串进行搜索并获取与文本匹配的索引列表?
这是一个相当简单的解决方案。 请注意,它将在“四个”中找到单词“我们的”。 如果不希望这样,您可以写一些东西来消除重叠的匹配。
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim SearchText As String = "One Two Three Four"
Dim Keywords As String() = {"One", "Four", "our"}
Dim WordMatches As New Generic.List(Of WordMatch)
For Each KeyWord As String In Keywords
Dim i As Int32 = 0
While i <> -1
i = SearchText.IndexOf(KeyWord, i, System.StringComparison.OrdinalIgnoreCase)
If i <> -1 Then
Dim MyMatch As New WordMatch
MyMatch.CharIndex = i
MyMatch.Word = KeyWord
WordMatches.Add(MyMatch)
i += KeyWord.Length
End If
End While
Next
End Sub
Private Structure WordMatch
Public CharIndex As Int32
Public Word As String
End Structure
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.