Ottenere il valore ASCII di un carattere: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
(Creata pagina con "Per ottenere il valore ASCII dei singoli caratteri alfanumerici e di punteggiatura, appartenenti ad un testo, è possibile usare una variabile vettoriale di tipo "Byte[]": Pu...") |
Nessun oggetto della modifica |
||
| (Una versione intermedia di uno stesso utente non è mostrata) | |||
| Riga 1: | Riga 1: | ||
Per ottenere il valore ASCII dei singoli caratteri alfanumerici e di punteggiatura, appartenenti ad un testo, è possibile usare una variabile vettoriale di tipo "Byte[]" | Per ottenere il valore ASCII dei singoli caratteri alfanumerici e di punteggiatura, appartenenti ad un testo, è possibile usare alcune modalità. | ||
===Usare la funzione "Asc()"=== | |||
Si userà la funzione "[[Asc|Asc()]]" se si tratta di un solo valore-byte: | |||
Public Sub Main() | |||
Print Asc("a") | |||
End | |||
===Usare una variabile vettoriale di tipo "Byte[]"=== | |||
Public Sub Main() | Public Sub Main() | ||
| Riga 10: | Riga 21: | ||
End | End | ||
===Usare una variabile stringa e la funzione "VarPtr()"=== | |||
Private s As String | Private s As String | ||
| Riga 29: | Riga 42: | ||
'''End''' | '''End''' | ||
===Usare la funzione "Alloc()"=== | |||
Public Sub Main() | Public Sub Main() | ||
Versione attuale delle 15:23, 29 ott 2021
Per ottenere il valore ASCII dei singoli caratteri alfanumerici e di punteggiatura, appartenenti ad un testo, è possibile usare alcune modalità.
Usare la funzione "Asc()"
Si userà la funzione "Asc()" se si tratta di un solo valore-byte:
Public Sub Main()
Print Asc("a")
End
Usare una variabile vettoriale di tipo "Byte[]"
Public Sub Main()
Dim l As Long
Dim bb As Byte[]
bb = Byte[].FromString("Gambas")
l = Long@(bb.Data)
Print l
End
Usare una variabile stringa e la funzione "VarPtr()"
Private s As String
Public Sub Main()
Dim p As Pointer
Dim p1, p2 As Pointer
s = "Gambas"
p1 = VarPtr(s)
p2 = Pointer@(s)
' Mostra l'intero contenuto in formato testuale:
Print p2
End
Usare la funzione "Alloc()"
Public Sub Main()
Dim p As Pointer
p = Alloc("Gambas")
Print Hex(Long@(p)), Long@(p)
Free(p)
End