[VB2010 WinForm] Ricerca multipla con Instr

[FrancescoG77]

Ho creato un codice che mi permette di cercare dentro un RichTextBox...
Allora il codice è il seguente:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
        Dim Cerca As String
        Dim Inizio As Integer
        Dim Fine As Integer
        Cerca = RichTextBox1.Text

        Inizio = InStr(1, Cerca, "")
        Fine = InStr(1, Cerca, "")

        MsgBox(Mid(Cerca, Inizio, Fine - Inizio))
End Sub

In poche parole questo codice mi permette di trovare nel mio RichTextBox una "scritta" tra "" e "".

Questo invece è quello che contiene il RichTextBox:

testo1
testo2
testo3
testo4

Adesso io con il codice che uso attualmente, il MsgBox mi richiama soltando il primo, cioè "testo1" mentre gli altri no...

Non so se mi sono spiegato bene, spero che abbiate capito il mio problema...

[oregon]

Adesso io con il codice che uso attualmente, il MsgBox mi richiama soltando il primo, cioè "testo1" mentre gli altri no...

Beh, ovvio ... hai creato tu il codice, no ? E lo hai scritto per cercare unicamente il primo testo tra i tag quindi è normale che non funzioni per gli altri.

Se includi il codice in un ciclo, cercando opportunamente nel testo a partire dal prossimo carattere utile nella stringa, allora avrai tutto ...

In questo caso però, dovresti usare le Regular Expression al posto del codice con la Instr. Ad esempio

Imports System.Text.RegularExpressions

e poi

Dim m As Match = Regex.Match(Cerca, "<([A-Z][A-Z0-9]*)\b[^>]*>(.*?)</\1>", RegexOptions.IgnoreCase)
While (m.Success)
   MessageBox.Show(m.ToString())
   m = m.NextMatch()
End While

[FrancescoG77]

Ho provato ma non riesco, riusciresti a farmi un esempio? Grazie

[oregon]

Hai letto la mia risposta?

[FrancescoG77]

Grazie dell'aiuto
Ho risolto con questo codice:

        Dim sb As New StringBuilder
        With RichTextBox1.Text
            Dim findIndex As Integer = .IndexOf("[b]", 0)
            Do While findIndex <> -1
                Dim endsAt As Integer = .IndexOf("</ b>", findIndex)
                sb.AppendLine(.Substring(findIndex + 3, endsAt - (findIndex + 3)).Trim)
                findIndex = .IndexOf("[b]", endsAt)
            Loop
        End With
        MsgBox(sb.ToString)

Adesso se vorrei eliminare tutto, e solo, quello che mi ha trovato? come faccio?