• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 144
  • Last Modified:

"Remove characters from string" function?

This is really a VBScript question, but since there is no VBScript area, I hope I can find an answer here.

Question: Does anyone have a function that would remove certain characters from a source string?

E.g.,

Function Remove(OriginalString, RemoveTheseChars)
End function

...where...

Remove("123123","2")

...would return a string containing "1313" and

Remove("No Vowels Please","aeiouy")

...would return a string containing "N Vwls Pls"

Thanks.

Again...VBScript, not VB.
0
Monroe406
Asked:
Monroe406
1 Solution
 
watyCommented:
Use the following function :

sTmp = ReplaceString("Hello", "l", "") => Heo
sTmp = ReplaceString("Hello", "l", "p") => Heppo

Function ReplaceString(sSearch As String, sSearchFor As String, sReplaceWith As String) As String
   ' *** Searches the sSearch variable for sSearchFor
   ' *** and replaces it with sReplaceWith.

   On Error GoTo ERROR__ReplaceString

   Dim lFoundLoc        As Long   ' Location of match.
   Dim lLenRemove       As Long   ' Length of string being replaced.
   
   ' *** Set length of original text to skip.
   lLenRemove = Len(sSearchFor)    ' Set location of match.
   
   lFoundLoc = InStr(1, sSearch, sSearchFor)
   
   ' If sSearchFor isn't found in sSearch
   ' just return the original string.
   If lFoundLoc = 0 Then
      ReplaceString = sSearch
      ' If match is found, return original string up to match
      ' location, concatenate new text, and search the rest of
      ' the string recursively for additional matches.
   Else
      ReplaceString = Left(sSearch, lFoundLoc - 1) & sReplaceWith & ReplaceString(Mid(sSearch, lFoundLoc + lLenRemove), sSearchFor, sReplaceWith)
   End If

EXIT_ReplaceString:
   Exit Function

ERROR__ReplaceString:
   ' Print error to Debug window and don't interrupt query.
   Debug.Print "Error Replacing String """ & sSearchFor & """ with """ & sReplaceWith & """ in text """ & sSearch & """"
   ' If there is an error, return original string
   ' and exit the function.        ReplaceString = sSearch
   Resume EXIT_ReplaceString

End Function

0

Featured Post

Receive 1:1 tech help

Solve your biggest tech problems alongside global tech experts with 1:1 help.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now