Функция FindAndReplace (обсуждение)

Dim separatorSplit() As Char = {"А", "а", "Б", "б"}
'Dim separatorSplit() As String = {"символов", "строк"}
 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    TextBox2.Text = SplitJoin(TextBox1.Text) ' передаем функции SplitJoin
End Sub
 
Private Function SplitJoin(text As String) As String
    Return String.Join(String.Empty, text.Split(separatorSplit, StringSplitOptions.RemoveEmptyEntries))
End Function

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim txt0 As String = "Одномерный массив подстрок массив, подлежащих массив объединению."
    Dim txtNew As String = "####"
    Dim txtOld As String = "мас"
    Label1.Text = txt0
    Label2.Text = SplitReplace(txt0, txtNew, txtOld)
End Sub
 
Private Function SplitReplace(txtBase As String, zNew As String, zOld As String) As String
    Return String.Join(zNew, Strings.Split(txtBase, zOld))
End Function

Dim oldValue() As String = {"символов", "строк"}
Dim newValue As String = "#####"
 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    TextBox2.Text = SplitJoin(TextBox1.Text, oldValue, newValue)
End Sub
 
Private Function SplitJoin(text As String, oldvalue() As String, newvalue As String) As String
    Return String.Join(newvalue, text.Split(oldvalue, StringSplitOptions.RemoveEmptyEntries))
End Function

Private Function SplitReplace(txtBase As String, zNew As String, zOld As String) As String
    Return String.Join(zNew, Strings.Split(txtBase, zOld,, CompareMethod.Text))
End Function