Differenze tra le versioni di "Ottenere il valore ASCII di un carattere"
Da Gambas-it.org - Wikipedia.
(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...") |
|||
| (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 14:23, 29 ott 2021
Per ottenere il valore ASCII dei singoli caratteri alfanumerici e di punteggiatura, appartenenti ad un testo, è possibile usare alcune modalità.
Indice
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
