Replaces all chars found in Chars_to_remove from String1 with Char_to_put
One char (Char_to_put) will be put instead of any char found
Function ReplaceChars(String1, Chars_to_remove, Char_to_put)
' Removes all chars found in Chars_to_remove from String1
' Char by char
NewStr = String1
For I = 1 To Len(Chars_to_remove)
NewStr = Replace(NewStr, Mid(Chars_to_remove, I, 1), Char_to_put)
Next
ReplaceChars = NewStr
End Function
' Removes all chars found in Chars_to_remove from String1
' Char by char
NewStr = String1
For I = 1 To Len(Chars_to_remove)
NewStr = Replace(NewStr, Mid(Chars_to_remove, I, 1), Char_to_put)
Next
ReplaceChars = NewStr
End Function
String1, Chars_to_remove, Char_to_put
Views 4,473
Downloads 1,462
CodeID
DB ID