Discussion :

[guda]

Bonjour,

J'ai un peu de mal avec l'héxadécimal.

Je récupere une chaine héxa qui contient : 42-6F-6E-6A-6F-75-72

je pensais naivement que je pouvais transformer simplement tout cela en une chaine ascii mais je n'y parvient pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim chaine_hexa As String = BitConverter.ToString(mon_tableau, 32, 16) ' on récupere la chaine hexa (16 octects)
 
Dim nbre_caractere As Integer = 0
Dim chaine_ascii As String = ""
Dim caractere_hexa() As String = Split(chaine_hexa, "-") 'on sépare chaque code hexa
 
For nbre_caractere = 0 To (caractere_hexa.Length - 1) 'pour chaque caractere trouvé
chaine_ascii = chaine_ascii & Asc(caractere_hexa(nbre_caractere))
Next

Cela ne fonctionne pas, la fonction ASC ne semble pas être utilisable pour cela.

Merci pour votre aide

[Jerede]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

char a= (char) Int32.Parse("6F",System.Globalization.NumberStyles.HexNumber);

[guda]

Merci mille fois,

J'ai modifié mon code avec la commande donnée et cela fonctionne parfaitement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
chaine_ascii = chaine_ascii & Chr(Int32.Parse(caractere_hexa(nbre_caractere), System.Globalization.NumberStyles.HexNumber))

Merci encore

[patte d'ours]

Bonjour Guda

J'arrive peut-être après la bataille, mais voici une possibilité (liée à un bouton)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim StringHexa As String = "42-6F-6E-6A-6F-75-72"
Dim StringTest1 As String = ""
Dim StringTest2 As String = ""
 
StringTest1 = Replace(StringHexa, "-", "")
For i = 1 To StringTest1.Length Step 2
StringTest2 += Chr(Convert.ToInt32(Mid(StringTest1, i, 2), 16)).ToString
Next
MsgBox(StringTest2)
End Sub

Mid te récupère les paires héxa
Convert.ToInt32 les transforme en integer
Chr transforme ces integer en caractères.

Bonne journée

[Jerede]

J'avais pas vu que c'était du VB