ASCII a hexa

Version imprimable

10/08/2006, 19h33
Micheal1221

ASCII a hexa

salut je me demandais si quelqun savais comment je pourais convertire ascii vers hexa

ex: si je veut convertir è to hex ce serais 3e8 mais a la place de cela il me donne "3" quelqun sais comment je pourais regler mon probleme?

merci en avance
10/08/2006, 19h58
jmfmarques

3 est la valeur ascii de ton seul premier caractère
Asc ne renvoie la valeur ascii que du 1er caractère d'une chaine...

Hex(number) traduit la valeur décimale number en valeur hexadécimale.
et Hex(3) te donne précisément 3 ...
10/08/2006, 20h55
zazaraignée

Salut

Si j'ai bien compris tu veux avoir la valeur ascii du caractère e mais en Hexadécimal? Tu as essayé:

Code:

Text1.Text = Hex(asc("è"))

?
10/08/2006, 21h03
jmfmarques

son problème est tout simplement que n'est considéré que le tout 1er caractère, qui est et dont tant la valeur ascii que la valeur héxadécimale sont 3 car la valeur hexadécimale de 3 est 3.

preuve :

Citation:

MsgBox Chr(Val("&3"))

juste pour voir...

Il pourrait ùmaintenant nous dire avec précision ce qu'il veut transformer en hexa ...

Le 1er caractère? le 2ème ? La "somme" des valeurs ascii du 1er + du 2ème ?... Quoi, enfin ?
10/08/2006, 21h06
zazaraignée

Aurais-ja mal lu?

Citation:

si je veut convertir è to hex ce serais 3e8

E8 en fait: le caractère è donne E8 en Hexa.
10/08/2006, 21h07
SfJ5Rpw8

Citation:

Envoyé par Micheal1221

s...x: si je veut convertir è to hex ce serais 3e8 mais a la place de cela il me donne "3" quelqun sais comment je pourais regler mon probleme...e

c'est qui il ?

tu as du code à nous montrer ....
10/08/2006, 21h08
jmfmarques

Ce qui tendrait à dire qu'il veut curieusement "concaténer" la valeur hexadécimale de l'ascii de son petit carré (chr(3)) avec celle du "è" (une concaténation de chaines...alors ... !)

ce qui donnerait alors (mais quelle drôle d'idée) :

Citation:

MsgBox Hex(Asc("")) & Hex(Asc("è"))

avec pour résultat :
3E8
mais quelle serait la valeur décimale de l'hexa 3E8 ???...:lol:

Reste à espérer que ce n'est pâs là le début d'un mécanisme de cryptement (qui serait alors on ne pourrait plus vulnérable)
10/08/2006, 22h54
Micheal1221

bien en faite si je pourais etre plus clair ce que je veut faire en convertire plus dun charactere pas seulement le premier

Code:

1
2
3
4
5
6
Private Sub Command1_Click()
  toto = "il était un petit navire"
  For i = 1 To Len(toto)
    MsgBox Hex(Asc(Mid(toto, i, 1)))
  Next
End Sub