Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB6,VBS
Expertise: Intermediate
Feb 26, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

StripExtendedASCII - Delete extended ASCII characters in a string

' Strip all extended ASCII characters
' (that is, all characters whose ASCII code is > 127)
Function StripExtendedASCII(source As String) As String
    Dim index As Long
    Dim bytes() As Byte
    ' the fastest way to process this string
    ' is copy it into an array of Bytes
    bytes() = source
    For index = 0 To UBound(bytes) Step 2
        ' if this is an extended ASCII character
        If bytes(index) > 127 Or bytes(index + 1) <> 0 Then
            ' convert this char to Chr$(255)
            bytes(index) = 255
            bytes(index + 1) = 0
        End If
    ' return this string, after filtering out all Chr$(255) chars
    StripExtendedASCII = Replace(bytes(), Chr$(255), "")
End Function
Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date