Multiple Different Finds and replacing the same in Textbox with Single String or character at one go

[NimishK]

Hello
Below is the code to execute multiple different finds and replacing the same in Textbox with Single String or Character at one go but some how could not succeed

Sub MultiReplacements()
Dim arrayAsciichar() As Variant, i As Long

arrayAsciichar = Array("-", "_", ":", " ", "#", "$", "*")

For i = LBound(arrayAsciichar) To UBound(arrayAsciichar)
If InStr(txtSearchFor.Text, arrayAsciichar(i)) > 0 Then
     txtReplace.Text = Replace(txtSearchFor.Text, arrayAsciichar(i), cmbInsertChars.Text)
End If

Next i
End Sub

for eg if txtSearchFor.Text = "MrExcel-Thread*1111"
so after executing the above code i get below result as after incorporating the value "#" in combobox
txtReplace.Text = "MrExcel-Thread#1111" instead of "MrExcel#Thread#1111"

Any possibilities for multiple finds and replacing same with Single String or character at One go in a textbox using the above loop

NimishK

 

[aRandomHelper]

You are always replacing the 'original' txtSearchFor.Text.

Place the original into txtReplace first, then keep replacing on the txtReplace.

txtReplace.Text = txtSearchFor.Text
For i = LBound(arrayAsciichar) To UBound(arrayAsciichar)
If InStr(txtSearchFor.Text, arrayAsciichar(i)) > 0 Then
     txtReplace.Text = Replace(txtReplace.Text, arrayAsciichar(i), cmbInsertChars.Text)
End If

 

[NimishK]

aRandomHelper

You are always replacing the 'original' txtSearchFor.Text.

Place the original into txtReplace first, then keep replacing on the txtReplace.

Thank you for your interchangibility option. I thought solution was only from one option which i coded and did not seriously look from your point and other ways.

Thanks a tonne. ? Works Perfect ??

NimishK