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...") |
|||
| 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à. |
| + | |||
| + | ===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 20: | ||
End | End | ||
| − | + | ||
| + | |||
| + | ===Usare una variabile stringa e la funzione "VarPtr()"=== | ||
Private s As String | Private s As String | ||
| Riga 29: | Riga 41: | ||
'''End''' | '''End''' | ||
| − | + | ||
| + | |||
| + | ===Usare la funzione "Alloc()"=== | ||
Public Sub Main() | Public Sub Main() | ||
Versione delle 15:22, 29 ott 2021
Per ottenere il valore ASCII dei singoli caratteri alfanumerici e di punteggiatura, appartenenti ad un testo, è possibile usare alcune modalità.
Indice
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
