Discussion :

[will2taz]

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
ForEach str AsStringIn TabStr
  Dim ress AsInteger = Val("&H" & str)
  MsgBox("Valeur décimal : " & ress)
  Dim thecar AsChar = Convert.ToChar(ress)
  MsgBox("Valeur ASCII : " & thecar)
  toto = toto & thecar.ToString
Next
MsgBox("toto : " & toto)

Mais le problème est que toto m'affiche que le premier caractère...

Comment faire pour tout avoir ?

Merci a tous.

[olsimare]

Bonjour.

Il marche trés bien ce code...

Est-ce exhaustif ?

C'est du framework 2.0 sur VS2005 ?

Je comprends pas.

J'ai testé ça au cas où :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        Dim TabStr(2) As String
        TabStr(0) = "200"
        TabStr(1) = "201"
        TabStr(2) = "202"
 
        For Each str As String In TabStr
            Dim ress As Integer = Val("&H" & str)
            'MsgBox("Valeur décimal : " & ress)
            Dim thecar As Char = Convert.ToChar(ress)
            'MsgBox("Valeur ASCII : " & thecar)
            toto = toto & thecar.ToString
        Next
        MsgBox("toto : " & toto)

T'aurais pas tout simplement des caractéres non affichables ?

Nota : si c'est exhaustif, pense à utiliser les option strict on et option explicit

Cdt.

[will2taz]

Merci olsimare.

Alors je suis sous VS 2005, et mon problème est le suivant :

j'ai une string nommé "final" qui contient ceci :

4D 00 65 00 6E 00 74 .... etc....

Je découpe cette string en un tableu de string avec :

Code :

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

1
2
Dim TabStr() AsString = final.Split(" ")

Et après, je test la conversion de cette valeur Hexadecimal, en decimal, puis en ASCCI. Je test donc en affichant le resultat avec ce code :

Code :

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

1
2
3
4
5
6
7
ForEach str AsStringIn TabStr
  Dim ress AsInteger = Val("&H" & str)
  MsgBox("Valeur décimal : " & ress) 'Affiche : "Valeur décimal : 77"
  Dim thecar AsChar = Convert.ToChar(ress)
  MsgBox("Valeur ASCII : " & thecar) 'Affiche : "Valeur ASCII : M"
Next

Mais ce que je souhaite, c'est que chaque caractère affiché avec "MsgBox("Valeur ASCII : " & thecar)" soit stocké dans une variable de type string ou autre pour avoir la totalité de la phrase en hexa.

Mais lorsque j'essai de stocker ce charactère dans un string, je n'ai que le premier charactère (Le 'M' correspondant à la valeur '4D')

Une idée ???

Merci beaucoup !

[will2taz]

Aucune idée svp ???

Merci à tous

[smyley]

Donc,
Tu veux avoir 4D au lieu de M ? si tel est le cas éssaye ceci :

Code :

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

1
2
3
4
5
6
7
 
ForEach str AsStringIn TabStr
  Dim ress AsInteger = Val("&H" & str)
  MsgBox("Valeur décimal : " & ress) 'Affiche : "Valeur décimal : 77"
  Dim thecar As String = ress.ToString("X")
  MsgBox("Valeur ASCII : " & thecar) '
Next

[will2taz]

Euh non, en fait je souhaiterais obtenir tous les caractères ASCII dans ma string, et non pas seulement le premier, le M...

Merci