Question

我需要测试后面的内容＆＃34; Text As＆＃34;在富文本框中。谁知道怎么做？

Private Sub DebugToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DebugToolStripMenuItem.Click
    Dim Text_As As String
    Text_As = RichTextBox1.Find("Text As ")

我不知道在那之后该怎么做。

Answer 1

您可以使用Strings.Right功能：

Dim StringAfter = Strings.Right(RichTextBox1.Text, RichTextBox1.Text.Length - "Text As ".Length)

你基本上从第一个参数的右侧获取了许多字符。在这个例子中，我使用RichTextBox中文本的长度，并减去你想要删除的字符串的长度。

当然你也可以直接插入“Text As”的长度，即7。

Answer 2

RichTextBox.Find没有返回String，它返回找到文本的索引（如果找不到，则返回-1）。目前尚不清楚如何检查以下内容＆＃34; Text As＆＃34;，但以下代码检查剩余文本是否以给定字符串开头。

Dim ind As Integer = RichTextBox1.Find("Text As ")
If ind >= 0 Then
    If RichTextBox1.Text.Substring(ind + 8).StartsWith("Color Green") Then
        Label1.ForeColor = Color.Green
    End If
End If

如何测试字符串后面的内容

2 个答案: