Convertisseur ascii - hexadécimal simple

Soyez le premier à donner votre avis sur cette source.

Vue 74 013 fois - Téléchargée 4 296 fois

Description

Ceci est un petit convertisseur Ascii Héxa que j'utilise au travail.
Sans prétention et convivial, j'espère que ce petit bout de code pourra faire gagner du temps à certains...

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.