Usuwanie fragmentu tekstu z TextBox

0

Witam.
Mam Tekst w TextBoxie coś na zasadzie:

Jakis tam Tekst. [b]Jakiestam zdanie[/b]. Kolejne Zdanie. Fragment [quote]Tekstu[/quote]. Dalszy tekst. [code]Kocowyh Tekst[/code]

I mi chodzi o to, żeby usunąć - wszystko co się znajduję pomiędzy [/quote] a [code]
czyli na tym przykladzie powinno sie usunąć:

. Dalszy tekst.

W jaki sposób można to zrobić ?

napisalem cos takiego, chyba dziala (lecz nie wiem na ile prawidlowo)

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim myString As String = TextBox2.Text
        Dim DoString As String = TextBox3.Text
        Dim numberMyString As String = String.Empty
        Dim numberDoString As String = String.Empty
        Dim text_to_delete As String = String.Empty

        If TextBox1.Text.Contains(myString) And TextBox1.Text.Contains(doString) Then
            numberMyString = TextBox1.Text.IndexOf(myString) + myString.Length
            numberDoString = TextBox1.Text.IndexOf(DoString) - numberMyString
            'kasowanie
            If TextBox1.Text > "" Then
                text_to_delete = TextBox1.Text.Substring(numberMyString, numberDoString)
                TextBox1.Text = Replace(TextBox1.Text, text_to_delete, "")
            End If
        End If
    End Sub
0

Wyrażenia regularne

        Dim text As String = RichTextBox1.Text

        Dim regEx As New Regex("\[\/quote\].+?\[code\]")
        'Dim regEx As New Regex("\[\/quote\][^\]]+?\[code\]") 'albo np. tak jezeli tekst do zmiany moze zawierac nowa linie
        text = regEx.Replace(text, "[\quote][code]")

        RichTextBox1.Text = text
0

Nie pisz mi o jakimkolwiek twoim kodzie bo tego nie można nazwać kodem ja wiem że VB (domyślnie) pozwala na pisanie wszelkich idiotyzmów ale programista powinien wiedzieć co pisze i do zmiennej typu string nie przypisywać liczby... nawet jak takie coś w tej chwili Ci działa (ja się boje sprawdzać) to gdy tylko dopiszesz coś więcej w każdej chwili może się okazać że kompilator nagle źle coś zinterpretuje i będziesz rok szukał błędu (bo ten fragment kodu przecież działał)!

Lektura na dzisiaj http://msdn.microsoft.com/query/dev12.query?appId=Dev12IDEF1&l=EN-US&k=k%28vb.OptionStrict%29;k%28TargetFrameworkMoniker-.NETFramework

1 użytkowników online, w tym zalogowanych: 0, gości: 1