Account Login  Username:  Password: 

ckReplace (now with invalid char stripping)

by Chad M. Kovac
Category: Microsoft Office Apps/VBA
Compatability: Visual Basic 3.0
Difficulty: Advanced
Date Added: Wed 3 February 2021
Rating: (2 Votes)

For use with MS Access databases mostly. - this function allows you to with strip characters from a string, replace characters in a string with other characters or strip/replace all non-alpha characters (not printable) from the string.

Inputs
strIN is the string you wish to modify 'StripChar is the character you wish to remove/replace 'ReplaceChar is the character to use in "Stripchar"s place. 'Only strIN is required.
Code Returns
Returns the submitted string with the modifications made as a string: 'ckReplace("This is a test"," ","") returns "Thisisatest" 'ckReplace("This is a test","i","x") returns "Thxs xs a test" 'ckReplace("Sometext%MoreText") where the % represents some non printing character (like a line feed or someting - would return "SometextMoreText" 'ckReplace("Sometext%MoreText",""," ") where the % represents some non printing character (like a line feed or someting - would return "Sometext MoreText"

Rate ckReplace (now with invalid char stripping)

Function ckReplace(StrIN As String, Optional StripChar As String = "", Optional ReplaceChar As String = "") As String
 Dim x As Integer
 x = 1
 If StripChar <> "" Then
  Do Until x <= 0 Or StripChar = ReplaceChar
   x = InStr(1, StrIN, StripChar)
   If x > 0 Then StrIN = left$(StrIN, x - 1) & ReplaceChar & Right$(StrIN, Len(StrIN) - (x - 1) - Len(StripChar))
  Loop
 Else
  For x = 1 To Len(StrIN)
   If x > Len(StrIN) Then Exit For
   If Asc(Mid$(StrIN, x, 1)) < 32 Or Asc(Mid$(StrIN, x, 1)) > 126 Then
    StrIN = left$(StrIN, x - 1) & ReplaceChar & Right$(StrIN, Len(StrIN) - (x - 1) - 1)
    If ReplaceChar = "" Then x = x - 1
   End If
  Next
 End If
 ckReplace = StrIN
End Function

Download Snippet Download this snippet   Add to My Save List Add to My Saved Code

ckReplace (now with invalid char stripping) Comments

No comments have been posted about ckReplace (now with invalid char stripping). Why not be the first to post a comment about ckReplace (now with invalid char stripping).

Post your comment

Subject:
Message:

0/1000 characters