nitroptik
Messages postés50Date d'inscriptionsamedi 5 octobre 2002StatutMembreDernière intervention13 mai 2007
-
16 mai 2005 à 16:34
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 2006
-
17 mai 2005 à 10:52
Salut, je cherche une fonction qui me permettrais de convertir des string hexadécimal en string ascii ... mais le problème cest quand il y a des 00 dans mes string hexadécimal, les string ascii ne sont pas complète. Y aurait til une façon simple de remplacer les caractères nul ascii par un autre caractère lors de la conversion ? Cest possible de construire la fonction pour que les caractère saffiche un par un avec le pourcentage dévolution?
Comme je disais plus haut j'aimerais pouvoir transformer les 00 par quelque chose d'autre une fois le code convertit en ASCII (example: tout les 00 devienne des _) et aussi que les caracteres s'affiche un par un avec l'évolution de la conversation en pourcentage dans un label... vous voyez le genre ??
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 17 mai 2005 à 10:52
Pour la conversion de tes strings en ascii :
Dim s As String
Dim r As String
Dim t As String
Dim i As Integer
s = "5276616E02000000CA030000AE00"
For i = 1 To Len(s) Step 2 'on lit de 2 en 2
t = Mid(s, i, 2)
If t <> "00" Then
r = r & Chr("&H" & t) 'représentation du car ascii
Else
r = r & "_" 'remplacement des 00
End If
Next
MsgBox r
Pour l'affichage 1 par 1, je ne vois pas l'intérêt car cette conversion est rapide. Il faudrait peut-être un peu plus d'explications.
-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?