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