Gambas-it

Gambas dal mondo esterno => Mailing List => Topic aperto da: vuott - 23 Dicembre 2016, 17:52:08

Titolo: Ottenere il valore esadecimale usando dei Code-Page
Inserito da: vuott - 23 Dicembre 2016, 17:52:08
http://gambas.8142.n7.nabble.com/Get-Hex-from-Char-using-some-Code-Page-td58055.html



Titolo: Re:Ottenere il valore esadecimale usando dei Code-Page
Inserito da: vuott - 23 Dicembre 2016, 17:54:42
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
Titolo: Re:Ottenere il valore esadecimale usando dei Code-Page
Inserito da: kicco - 26 Dicembre 2016, 10:47:43
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 (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!
 :ciao:
Titolo: Re:Ottenere il valore esadecimale usando dei Code-Page
Inserito da: vuott - 26 Dicembre 2016, 14:55:18
Il codice UNICODE di quel carattere spciale:
http://www.fileformat.info/info/unicode/char/0431/index.htm
Titolo: Re:Ottenere il valore esadecimale usando dei Code-Page
Inserito da: kicco - 26 Dicembre 2016, 16:33:03
Imparato cosa nuova :)
Grazie! :ciao:
Titolo: Re:Ottenere il valore esadecimale usando dei Code-Page
Inserito da: vuott - 26 Dicembre 2016, 17:44:00
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
Titolo: Re:Ottenere il valore esadecimale usando dei Code-Page
Inserito da: kicco - 26 Dicembre 2016, 17:51:35
Citazione
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!
Titolo: Re:Ottenere il valore esadecimale usando dei Code-Page
Inserito da: vuott - 26 Dicembre 2016, 18:00:15
Citazione da: kicco - 26 Dicembre 2016, 17:51:35
.... nella richiesta della Mailing List non si parlava di unicode!
Ma nella tua domanda, implicitamente, sì !    ;D
Titolo: Re:Ottenere il valore esadecimale usando dei Code-Page
Inserito da: vuott - 09 Gennaio 2017, 11:15:56
......Unicode:    :D

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