Rimuovere da una stringa uno o più caratteri del codice ASCII esteso

Da Gambas-it.org - Wikipedia.

I caratteri appartenenti al codice ASCII esteso, sono quei caratteri con codice superiore al valore 127.

Per rimuovere da una stringa uno o più caratteri appartenenti all'ASCII esteso, è possibile utilizzare il seguente codice:

Public Sub Main()

  Dim s As String = "ab" & Chr(180) & "cd ef" & Chr(185) & "g" & Chr(195) & "hil" & Chr(179) & " mnop"
  Dim bb As Byte[]
  Dim b As Byte
  Dim i As Integer

' Mostra la stringa come appare con i caratteri del "ASCII esteso":
  Print s
   
  With bb = Byte[].FromString(s)
    i = .Count
  End With
  
  While b < i
    If Not IsAscii(Chr(bb[b])) Then
      bb.Remove(b)
      Dec i
    Endif
    Inc b
  Wend
   
  s = bb.ToString(0, bb.count)
   
' Mostra la stringa ora priva dei caratteri del "ASCII esteso":
  Print s
  
End