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