Differenze tra le versioni di "Rimuovere da una stringa uno o più caratteri del codice ASCII esteso"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "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 al...") |
|||
(Una versione intermedia di uno stesso utente non è mostrata) | |||
Riga 2: | Riga 2: | ||
Per rimuovere da una stringa uno o più caratteri appartenenti all'<I>ASCII esteso</i>, è possibile utilizzare il seguente codice: | Per rimuovere da una stringa uno o più caratteri appartenenti all'<I>ASCII esteso</i>, è 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 s As String = "ab" & Chr(180) & "cd ef" & Chr(185) & "g" & Chr(195) & "hil" & Chr(179) & " mnop" | ||
Riga 10: | Riga 10: | ||
<FONT Color=gray>' ''Mostra la stringa come appare con i caratteri del "ASCII esteso":''</font> | <FONT Color=gray>' ''Mostra la stringa come appare con i caratteri del "ASCII esteso":''</font> | ||
− | + | 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) | |
<FONT Color=gray>' ''Mostra la stringa ora priva dei caratteri del "ASCII esteso":''</font> | <FONT Color=gray>' ''Mostra la stringa ora priva dei caratteri del "ASCII esteso":''</font> | ||
− | + | Print s | |
− | + | End |
Versione attuale delle 16:35, 29 giu 2024
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