Odstranění rozšířených ASCII znaků z řetězce

Funkce:
Function StripExtendedASCII(source As String) As String 

   Dim index As Long Dim bytes() As Byte 
   ' Nejrychlejší cesta pro práci s řetězci je kopírování do bitového pole 
   bytes() = source 

   For index = 0 To UBound(bytes) Step 2 
      ' Pokud je to rozšířený ASCII znak 
      If bytes(index) > 127 Or bytes(index + 1) <> 0 Then 
         ' tak ho převedeme na znak Chr$(255) 
         bytes(index) = 255 
         bytes(index + 1) = 0 
      End If 
   Next 

   ' Vrácení řetězce po vyfiltrování všech znaků Chr$(255)
   StripExtendedASCII = Replace(bytes(), Chr$(255), "") 

End Function

Zpět