vb.net - 如何仅获取要重命名的文本中的最后一个字符串

Question

我首先在我的richtextbox 中找到最后一个单词，然后检查该字符串是否与特定字符串匹配。

然后我用另一个字符串替换字符串。

问题是，每当我输入相同的字符串并单击我的“重命名”按钮时，它都会重命名两个字符串，因为如果两个字符串现在都是“狗”，那么它将把 lastWord 识别为狗，而不是最后输入的最近输入的单词，因此它将是重命名为别的东西。

private sub getwords()

    dval = dval + 1

    Dim lastWord As String = RichTextBox1.Text.Split(" ").Last


    If dval = 1 And lastWord = "meu" Then

        RichTextBox1.Text = RichTextBox1.Text.Replace(lastWord, "dog")

    End If

    MsgBox(lastWord)

    If dval = 2 And RichTextBox1.Text.EndsWith("dog") And lastWord = "dog" Then

        RichTextBox1.Text = RichTextBox1.Text.Replace(lastWord, "cat")
        dval =0
    End If

end sub

Answer 1

这个天真的解决方案怎么样，它删除了最后一个单词，然后将它连接到最后。

private sub getwords()

    dval = dval + 1

    Dim lastWord As String = RichTextBox1.Text.Split(" ").Last


    If dval = 1 AndAlso lastWord = "meu" Then

        RichTextBox1.Text = RichTextBox1.Text.Remove(RichTextBox1.Text.Length - lastWord.Length) & "dog"


    End If

    MsgBox(lastWord)

    If dval = 2 AndAlso RichTextBox1.Text.EndsWith("dog") AndAlso lastWord = "dog" Then

        RichTextBox1.Text = RichTextBox1.Text.Remove(RichTextBox1.Text.Length - lastWord.Length) & "cat"
        dval = 0
    End If

End Sub