mettre des caractères dans une string

Version imprimable

Voici mon code :
Code:

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.

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:

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.

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:

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:

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 !

11/11/2007, 11h50
will2taz

Aucune idée svp ??? :roll:

Merci à tous

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

Code:

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

11/11/2007, 13h48
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

Ahhh

Code:

1
2
3
4
5
6
7
8
9
 
Dim total As String = ""
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)
  total = total & thecar
  MsgBox("Valeur ASCII : " & total )
Next

11/11/2007, 14h06
will2taz

Oui, voila, en gros je souhaite faire sa, mais comme je le met dans le début de cette discussion, avec ma variable "toto", cela ne fonctionne pas car au final je n'ai qu'un seul charactère : le premier....

Peux être ai-je fais une erreur ???

Merci
11/11/2007, 14h11
smyley
Citation:
Envoyé par smyley

Ahhh

Code:

1 2 total = total & thecar
Mais ça devrait suffir ça normallement ? ( bien que je n'aime pas le VB.Net ) : on prend ce qu'il y a dans total, on ajoute thecar, et on remet dans total ...
11/11/2007, 14h18
will2taz

Oui, c'est vrai, la j'avoue que je ne comprend pas. Pourtant je lui demande de mafficher le resultat avec le MsgBox et ça fonctione ... :koi:

A mon avis, c est peut être un problème de type de données non ???

Je suis bloqué....
12/11/2007, 00h10
olsimare

Bonjour.

Le code est bon et devrait fonctionner.

Poste tout ton code (la class compléte ou le form), car à mon avis le probléme n'est pas dans celui que tu as mis.

Cdt.

Voici mon code. c'est un peu charabiat, mais c'était pour essayer de débugger :P

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
PublicClass Form1
 
Public LeMessage() AsChar

PrivateSub ReadToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReadToolStripMenuItem.Click
Try
 
Dim Donnees AsString = "4D0065006E0074"
'MsgBox(Donnees)
Dim outputStr AsNew List(OfString)()
 
i = 0
 
ReDim LeMessage(Donnees.Length + 1)
While i < Donnees.Length
 
 outputStr.Add(Donnees(i).ToString() + Donnees(i + 1).ToString())
 Dim res AsString = Donnees(i).ToString() + Donnees(i + 1).ToString()
 'On récupère la valeur décimal (Val) de l'hexa (&H)
 Dim res1 AsInteger = Val("&H" & res)
 'On la converti en ASCII
 'MsgBox(Convert.ToChar(res1))
 LeMessage(i) = Convert.ToChar(res1)
 'MsgBox("RESULTAT : " & LeMessage(i).ToString)
 i = i + 2
 
EndWhile
Dim final AsString = String.Join(" ", (DirectCast(outputStr.ToArray(), String())))
'MsgBox(final)
dim tHex AsString = ""
Dim TabStr() AsString = final.Split(" ")
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)
tHex = tHex & thecar.ToString
Next
 
MsgBox(tHex)
 
Catch ex As Exception
 MsgBox(ex.Message, MsgBoxStyle.Critical, "Erreur")
EndTry
EndSub

12/11/2007, 23h23
olsimare

Bonjour.

C'est les &H00 qui mettent la grouille ...

Si tu testes avec 4D656E74, ça marche tranquille.

Le &H00, je le connais comme low-value en cobol mais en .net, je ne sais pas trop ce que cela donne mais rien de bon apparemment.

Donc un petit if dans le for each pour ne pas les traiter me semble de bon aloi.

Cdt.
13/11/2007, 17h11
will2taz

Ah ouai... :?

Bon, je test ça et vous tiens au courant. Merci beaucoup !!!