This 4 lines of code will replace a single quote with any char.
This 4 lines of code will replace a single quote with any char.
Rate This 4 lines of code will replace a single quote with any char.
(1(1 Vote))
Do While InStr(SText, Chr(39)) > 0
Mid$(SText, InStr(SText, Chr(39))) = Chr(96)
Loop
RemoveSingleQuotes = Trim(SText)
End Function
This 4 lines of code will replace a single quote with any char. Comments
No comments yet — be the first to post one!
Post a Comment