Ottenere il valore esadecimale usando dei Code-Page

[vuott]

http://gambas.8142.n7.nabble.com/Get-Hex-from-Char-using-some-Code-Page-td58055.html

[vuott]

E' possibile ottenere il valore esadecimale dei caratteri riportati dal Code Page mediante il Metodo .Code( ) della Classe String in combinazione ovviamente con la funzione Hex( ).

Mostriamo un esempio:

Codice: [Seleziona]

Public Sub Main()
 
  Print Hex(String.Code("б"), 4)

End

[kicco]

non ho capito, lui cerca un modo più furbo per trovare il valore numerico del carattere б nella Code Page 866.
Il suo valore e 161(dec) e A1(Hex) come si evince da:
 https://en.wikipedia.org/wiki/Code_page_866
Il comando  Print Hex(String.Code("б"), 4) mi restituisce il valore 0431 e qui non capisco cosa sia!
 

[vuott]

Il codice UNICODE di quel carattere spciale:
http://www.fileformat.info/info/unicode/char/0431/index.htm

[kicco]

Imparato cosa nuova
Grazie!

[vuott]

Da molto tempo c'è la pagina della nostra WIKI relativa all'uso di UNICODE in Gambas:   

http://www.gambas-it.org/wiki/index.php?title=Uso_di_Unicode_con_gli_oggetti_di_testo

[kicco]

Da molto tempo c'è la pagina della nostra WIKI relativa all'uso di UNICODE in Gambas:   

Non lo metto in dubbio, ma nella richiesta della Mailing List non si parlava di unicode!

[vuott]

.... nella richiesta della Mailing List non si parlava di unicode!

Ma nella tua domanda, implicitamente, sì !   

[vuott]

......Unicode:   

Codice: [Seleziona]

Public Sub Main()

  Dim vlr As Long[]
  Dim b As Byte
  Dim s As String

  vlr = [&3221C00000000000, &4A52200000000000, &8252200000000000, &8272200000000000,
         &8252200000000000, &828A200000000000, &4A8A200000000000, &3289C00000000000]

    For b = 0 To vlr.Max
        s = Bin(vlr[b], 64)
        s = Replace(s, "0", " ")
        Print Replace(s, "1", String.Chr(&2b24))
    Next

End