Text zwischen 2 Zeichen löschen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von roddy.

    hi wsl

    probiers mal so

    VB.NET-Quellcode

    1. Dim int As Integer
    2. Dim int2 As Integer
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. For index3 As Integer = 0 To Me.RichTextBox1.Text.Length - 1
    6. If Me.RichTextBox1.Text.Substring(index3, 1) = "[" Then
    7. int = index3
    8. End If
    9. If Me.RichTextBox1.Text.Substring(index3, 1) = "]" Then
    10. int2 = index3
    11. Dim a As String
    12. a = Me.RichTextBox1.Text.Remove(int + 1, int2 - int - 1)
    13. Me.RichTextBox1.Text = a
    14. End If
    15. Next
    17. End Sub

    Vielleicht hilft dir dieser Code weiter (VBA):

    VB.NET-Quellcode

    1. Dim p1 As Integer, p2 As Integer, Text As String, neuerText As String
    2. Text = "links]dazwischen[rechts"
    3. p1 = InStr(1, Text, "]")
    4. p2 = InStr(p1 + 1, Text, "[")
    5. neuerText = Left(Text, p1) & Mid(Text, p2)


    Wenn ich das Beispiel durchführe, kommt als Ergebnis (neuerText) "links][rechts" heraus.

    Ich denke jedoch, dass der Code von Hudson Smith das gleiche macht.

    Wenn ich die Funktionsweise von "Remove" richtig verstehe (gibt's bei VBA nicht als String-Funktion), könnte die letzte Zeile auch so heißen:

    VB.NET-Quellcode

    1. neuerText = Text.Remove(p1 + 1, p2 - p1 - 1)

Facebook
Telefonspende