Question

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

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

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

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

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

1 个答案: