by Oleg (2 Submissions)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 5th September 2002
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
This 4 lines of code will replace a single quote with any char.
Do While InStr(SText, Chr(39)) > 0
Mid$(SText, InStr(SText, Chr(39))) = Chr(96)
Loop
RemoveSingleQuotes = Trim(SText)
End Function
No comments have been posted about This 4 lines of code will replace a single quote with any char.. Why not be the first to post a comment about This 4 lines of code will replace a single quote with any char..