• Home
 · 
• String Manipulation
 · 
• This small function will strip out the unreadable characters and return readable characters in a st

This small function will strip out the unreadable characters and return readable characters in a st

This small function will strip out the unreadable characters and return readable characters in a string. This is great for stripping out these

Rate This small function will strip out the unreadable characters and return readable characters in a st

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim lCount As Long
    Dim lPoint As Long
    Dim sTmp As String
    Dim sChr As String
    lCount = Len(sString)                      ' Get a count of chars
    For lPoint = 1 To lCount                   ' Loop through that count
        sChr = Mid(sString, lPoint, 1)         ' Get one chr
        Select Case Asc(sChr)                  ' Set a case for the ASCII value of char
            Case 32 To 126                     ' Is this an Readable Char?
                sTmp = sTmp & sChr             ' If yes then append to list
        End Select '»Select Case Asc(sChr)
    Next '»For lPoint = 1 To lCount
    ReturnReadableChrsOnly = sTmp
End Function