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

Question

我需要测试富文本框中 "Text As" 之后的内容。有人知道怎么做吗？

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 不是 return 字符串，它 return 是找到文本的索引（如果找不到则为 -1）。不清楚您要如何检查 "Text As " 之后的内容，但以下代码会检查其余文本是否以给定字符串开头。

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

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

How do I test what comes after a string

vb.net

richtextbox

find