Discussion :

[gastoncs]

Bonsoir, j'ai un programme en vb qui recptionne les données du port série, ainsi elle s'affichent dans une textbox au format ASCII. Les données paraissent sous la forme suivante :

**************************
Nom : laurent
Adresse : 8 Rue de la rose
Commune : METZ
Produit : peugeot 207
**************************

Et je souhaiterais pouvoir extraire les données pour chaque libelle dans des label, exemple
Nom : laurent
Adresse : 8 rue de la rose

Comment faire ?

[matll]

Salut,

Je te conseillerais d'utiliser des expression régulières pour découper ta chaîne de caractère.

Voici un code qui fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'Recréation de la chaîne pour test
Dim chaine As String = "**************************" & ControlChars.CrLf & _
    "Nom : laurent" & ControlChars.NewLine & _
    "Adresse : 8 Rue de la rose" & ControlChars.NewLine & _
    "Commune : METZ" & ControlChars.NewLine & _
    "Produit : peugeot 207" & ControlChars.NewLine & _
    "**************************"
 
    'Création de l'expression régulière
    Dim regex As New Regex("Nom : (.*)\r\n" & _
        "Adresse : (.*)\r\n" & _
        "Commune : (.*)\r\n" & _
        "Produit : (.*)\r\n")
    '' Groups :
    '   1 : Nom     2 : Adresse     3 : Commune     4 Produit
 
    Dim match As Match = regex.Match(chaine)
    If (match.Success) Then
        Console.WriteLine("NOM : " & match.Groups(1).Value)
        Console.WriteLine("ADRESSE : " & match.Groups(2).Value)
        Console.WriteLine("COMMUNE : " & match.Groups(3).Value)
        Console.WriteLine("PRODUIT : " & match.Groups(4).Value)
    End If

Si tu as plusieurs résultats, à la place du If, tu peux faire une boucle While pour parcourir tout tes résultats.

Code :

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

1
2
3
4
5
6
7
8
While (match.Success)
    Console.WriteLine("NOM : " & match.Groups(1).Value)
    Console.WriteLine("ADRESSE : " & match.Groups(2).Value)
    Console.WriteLine("COMMUNE : " & match.Groups(3).Value)
    Console.WriteLine("PRODUIT : " & match.Groups(4).Value)
    'Passage au résultat suivant
    match = match.NextMatch
End While

Pour toi, bien entendu, remplace les Console.WriteLine par tes TextBox.Text

Si tu as d'autres questions, n'hésites pas.

P.S. : Je sais, les vbCrLf, c'est pas beau, mais je connais pas la nouvelle syntaxe et c'était rapide à écrire pour moi -> remplacés par des ControlChars.NewLine ou ControlChars.CrLf, mais plus long à écrire

@+
Mat

[gastoncs]

merçi pour ton aide mais je ne comprend pas certaines choses, dans ce code :

Code :

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

1
2
3
4
5
6
Dim chaine As String = "**************************" & ControlChars.CrLf & _
    "Nom : laurent" & ControlChars.NewLine & _
    "Adresse : 8 Rue de la rose" & ControlChars.NewLine & _
    "Commune : METZ" & ControlChars.NewLine & _
    "Produit : peugeot 207" & ControlChars.NewLine & _
    "**************************"

mais chaine provient de ce que je recois de mon port série, alors je ne peux pas lui rajouter : & ControlChars.NewLine & _
a chaque ligne !

[matll]

merçi pour ton aide mais je ne comprend pas certaines choses, dans ce code :

Code :

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

1
2
3
4
5
6
Dim chaine As String = "**************************" & ControlChars.CrLf & _
    "Nom : laurent" & ControlChars.NewLine & _
    "Adresse : 8 Rue de la rose" & ControlChars.NewLine & _
    "Commune : METZ" & ControlChars.NewLine & _
    "Produit : peugeot 207" & ControlChars.NewLine & _
    "**************************"

mais chaine provient de ce que je recois de mon port série, alors je ne peux pas lui rajouter : & ControlChars.NewLine & _
a chaque ligne !

chaine n'était pour moi que pour tester la portion de code comme l'indiquait le commentaire précédant la déclaration, toi il faut que tu utilises la chaine que tu reçois.

[gastoncs]

merci ca fonctionne, j'avais pas lu ton commentaire.
merci beaucoup

[matll]

De rien, penses à marquer ton poste Résolu

(et tu n'as pas marqué non plus ton ancien post sur lequel tu avais un pb d'encodage à la reception, indique la solution, et )

@+
Mat