ASCII2Hex ( text )
Moderatore: Moderatori
-
- Messaggi: 3616
- Iscritto il: sabato 7 febbraio 2004, 1:00
- Località: Roma
- Contatta:
ASCII2Hex ( text )
Solo dalla 10 in su !
Codice: Seleziona tutto
Let ( [
L = Length ( text ) ;
C = Code ( Left ( text ; 1 ) ) ;
Hex = "%" & Div ( C ; 16 ) & Middle ( "0123456789ABCDEF" ; Mod ( C ; 16 ) + 1 ; 1 )
] ;
Case (
C > 126 ; "error" ;
Hex & Case ( L > 1 ; ASCII2Hex ( Right ( text ; L - 1 ) ) )
)
)
Raybaudi FMP 12 Adv. Windows XP SP3
-
- Messaggi: 75
- Iscritto il: venerdì 19 marzo 2010, 12:05
Re: ASCII2Hex ( text )
GRANDISSIMO Raybaudi...!!!!!!!