StripExtendedASCII – Delete extended ASCII characters in a string

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    Next        ' return this string, after filtering out all Chr$(255) chars    StripExtendedASCII = Replace(bytes(), Chr$(255), "")            End Function

See also  How IoT Tech Will Transform Logistics

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist