' 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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
