CONVERTISSEUR ASCII - HEXADÉCIMAL SIMPLE

Signaler
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
-
Messages postés
1
Date d'inscription
jeudi 23 novembre 2006
Statut
Membre
Dernière intervention
5 août 2012
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/33579-convertisseur-ascii-hexadecimal-simple

Messages postés
1
Date d'inscription
jeudi 23 novembre 2006
Statut
Membre
Dernière intervention
5 août 2012

l'exe ne fait que 204 octets au lieu de 28.6K
il n'y est pas du tout dans le zip complet
=> ne fonctionne pas
@+
Messages postés
16
Date d'inscription
vendredi 10 septembre 2004
Statut
Membre
Dernière intervention
28 mai 2007

pour optimiser la conversion, regarde là : http://www.vbfrance.com/code.aspx?id=28389
Messages postés
134
Date d'inscription
samedi 19 octobre 2002
Statut
Membre
Dernière intervention
3 janvier 2009

Slt !

C'est un bonne source !

Mais tu fait des action inutile : Tu crer un tableau ou tu enregistre les caractère ou le code Hexa après tu lit le tbaleau et tu converti ! C'est un solution !

Voila ton code :

or i = 1 To Len(ValAscii)
Temp = Temp & Mid(ValAscii, i, 1)
Temp = Temp & "^"
j = i
Next i

Temp = Left(Temp, Len(Temp) - 1)
Tablo = Split(Temp, "^")

For i = 0 To UBound(Tablo)
Result = Result & Hex(Asc(Tablo(i)))
Next i

TxtHexa.Text = Result

Le plus rapide est de lire et de transformer tout de suite !

Voila ce que j'ai mit (c'est le même resultat) :

For i = 1 To Len(ValAscii)

Temp = Temp & Hex(Asc(Mid(ValAscii, i, 1)))

Next i

TxtHexa.Text = Temp

J'espère que ca va d'aider à progresser !

Bonne continuation
Messages postés
18
Date d'inscription
mardi 31 décembre 2002
Statut
Membre
Dernière intervention
26 juin 2008

Au temps pour moi, elle ne sert à rien ;) ... Il s'agit d'une version ou il subsitait une erreur...
Désolé...
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Juste une petite remarque :

------A quoi sert la variable j ? ----
For i = 1 To Len(ValAscii)
Temp = Temp & Mid(ValAscii, i, 1)
Temp = Temp & "^"
j = i
Next i
--------------------------------------

Sinon, pour le reste, çà semble fonctionner.
Des commentaires auraient été les bienvenus dans le code.