Löschen
Dim split1() As String = Split(allText, "example")
for i = 0 to ubound(split1) split1(i) = split(split1(i),"example2") next
Der Wert vom Typ "1-dimensionales Array von String" kann nicht in "String" konvertiert werden.
Dim split1() As String = Split(allText, "example") Dim split2()() As String = New String(split1.Length - 1)() For i As Integer = 0 To split1.Length - 1 split2(i) = Split(split1(i),"example2") Next
for i = 0 to ubound(split1) split1(i) = split(split1(i),"example2")(0)