Breadcrumbs

[XTechVB]

i have a richtextbox with the following lines

Code: Select all

test 1
test 2
test 3

hello 1
hello 2
hello 3

and so on

i need a way to insert this text "stop" after the last "test" line
is this possible?

[comathi]

If you're talking about inserting the word "stop" on a new line after the text you have here, you could try this:

Code: Select all

RichTextBox1.Text=RichTextBox1.Text & vbNewLine & "stop"

If not, I'm not sure what you were asking for :lol:

[XTechVB]

no sorry i wasn't clear read the message again

[MrAksel]

Code: Select all

Imports System.Text.RegularExpressions
'

'
Dim Matches As MatchCollection = Regex.Matches(RichTextBox1.Text, "test \d", RegexOptions.Multiline Or RegexOptions.IgnoreCase)
Dim Index As Integer = Matches(Matches.Length - 1).Index + Matches(Matches.Length - 1).Length
RichTextBox1.Text = RichTextBox1.Text.Insert(Index, vbNewLine + "Stop")

I think that will work, but only with tests up to "test 9". If you need more, like "test 99" you need to replace "\d" with "\d{2}", or for "test 999" you would replace with "\d{3}".

[mandai]

If you don't want to hard code it so much you can use this:

Code: Select all

        Dim starting As Integer = RichTextBox1.Text.LastIndexOf(vbLf & "test ")
        Dim index As Integer = RichTextBox1.Text.IndexOf(vbLf, starting + 1)

        If index > -1 Then
            RichTextBox1.Text = RichTextBox1.Text.Insert(index, " stop")
        End If