Re: Hexa vers chaine
Posté par drcharly93 le 26/12/2004 1:41:39
Bonjour Oceans,
Un petit bout de code du cru
Pour test:
Difficile à trouver sans l'exécuter
Un petit bout de code du cru
PROCEDURE HexaToAscii(sChaineHexa est une chaîne)
i est un entier
sAscii est une chaîne
POUR i = 1 A Taille(sChaineHexa) PAS 2
sAscii += Caract(Val(sChaineHexa[[i A i+1]],"x"))
FIN
RENVOYER sAscii
Pour test:
Info(HexaToAscii("7777772E5744466F7267652E6F7267"))
Difficile à trouver sans l'exécuter
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=1600&post_id=6627