Affecter les donnees d'un textbox a un label

**gastoncs** · 06/08/2011, 21h30

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** · 07/08/2011, 02h03

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** · 07/08/2011, 02h52

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** · 07/08/2011, 03h15

Envoyé par 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 !

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** · 07/08/2011, 03h30

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

**matll** · 07/08/2011, 03h42

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

**gastoncs** · 07/08/2011, 13h16

j'ai un dernier petit soucis, parfois les données reçu ce présente avec un saut de ligne entre adresse et commune contenant l'étage ou rdc, mais pas systématiquement:

Adresse : 8 Rue de la rose
1er étage
Commune : METZ

je pense qu'il faut rajouter un saut de ligne en regex ?

**matll** · 07/08/2011, 14h29

En effet il faut rajouter une ligne pour ta seconde ligne d'adresse. La regex peut se présenter de la façon suivante :

Code :

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

1
2
3
4
5
6
7
8
Dim regex As New Regex("Nom : (.*)\r\n" & _
    "Adresse : (.*)\r\n" & _
    "((.*)\r\n)?" & _
    "Commune : (.*)\r\n" & _
    "Produit : (.*)\r\n")
'' Groups :
'   1 : Nom         2 : Adresse     3 : Adresse2+sautLigne
'   4 : Adresse2()  5 : Commune     6 : Produit

@+
Mat

**gastoncs** · 07/08/2011, 14h31

Oui ca fonctionne, et la première ligne qui apparait est vide, avant nom, comment puis je la représenter en regex ?

super merci, tu a une doc sur les regex, un lien qui explique tous ca correctement ? parce que à chaque fois je te sollicite

**matll** · 07/08/2011, 14h37

Normalement la première ligne ne doit pas poser de problème car il doit commencer son découpage à partir de Nom, sauf si le saut de ligne apparait après "Nom".

Tu peux utiliser le tuto suivant qui explique très bien les regex :
http://lgmorand.developpez.com/dotnet/regex/

@+
Mat

**gastoncs** · 08/08/2011, 03h42

Re,

je reviens afin de trouver une autre solution à mon probléme, car je ne pense que les expressions régulières puissent résoudre mon soucis, en fait certaines lignes peuvent apparaitre en plus, ou bien être absente, par exemple :

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

OU bien :

**************************
Nom : laurent
Client : A23054
Adresse : 8 Rue de la rose
Etage : 1
Commune : METZ
Produit : peugeot 207
Garantie : Oui
**************************

Alors je me suis mis à faire ce code, que je vous explique :

Code :

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

1
2
3
Dim Scommune As String = "Commune : " 'libellé de la recherche
    Dim Icommune As Integer 'calcule la position du mot commune
    Dim Midcommune As String 'retourne la ville du client

dans mon textbox1 j'ai donc rajouté ce code :

Code :

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

1
2
3
Icommune = InStr(1, line, Scommune, CompareMethod.Binary) + Len(Scommune) 'Défini la position de commune + la longeur du mot commune 
            Midcommune = Mid(line, Icommune) 'extrait la ville qui commence à la fin de Icommune et s'arréte à la fin de la ligne
            Label4.Text = Midcommune 'affiche la commune dans un label

Le soucis est que je voudrai parcourir les lignes de mon tableau à la recherche du libellé 'commune :' pour afficher la ville, mais je n'y arrive pas avec ce code, rien ne s'affiche, pourquoi donc ??

Code :

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

1
2
3
4
5
 For Each line As String In TextBox1.Lines
            Icommune = InStr(1, line, Scommune, CompareMethod.Binary) + Len(Scommune) 'Défini la position de commune + la longeur du mot commune et des espaces avec les :
            Midcommune = Mid(line, Icommune) 'extrait la ville qui commence à la fin de Icommune et s'arréte 
            Label4.Text = Midcommune 'affiche la commune dans un label
        Next

que pensez vous ?

**matll** · 08/08/2011, 03h48

Il est clair que si tu souhaites utiliser les Expressions Régulières, il te faut connaitre la structure maximale du texte que tu récupéreras (enfin avec ce que je sais faire) et ensuite mettre un ? (0 ou 1) sur la ligne en question.

Si tu souhaites faire ton découpage, je conseillerais plus de faire un Split sur le ":"
Ainsi pour une ligne tu auras :

Code :

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

1
2
Dim libelle as String = ligne.Split(":")(0).Trim 'Ton libellé
Dim valeur as String = ligne.Split(":")(1).Trim 'Ta valeur

Ensuite tu peux utiliser un select sur libelle pour afficher dans le TextBox voulu ou alors utiliser l'introspection et une norme de nommage pour remplir ta textbox voulue.

Code :

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

1
2
3
4
5
6
Select Case libelle
Case "Commune"
    TextBoxCommune.Text = valeur
Case "Produit"
    TextBoxProduit.Text = valeur
End Select

Les fonctions InStr, Mid, Len sont à éviter en VB.Net car ce sont des reliques du vb6 qui disparaîtront dans des versions futures de .Net. Il y a pour ça des méthodes sur le chaines de caractères qui existent (String.Substring, String.Length...)

@+
Mat

**gastoncs** · 08/08/2011, 03h54

oula ok matll, j'ai pas trop bien saisis, (désolé j'ai du mal à cet heure ci) mais je place ceci à l'intérieur de ma boucle qui parcours les lignes de mon tableau ?

Code :

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

1
2
3
4
5
        For Each line As String In TextBox1.Lines
            Dim libelle As String = line.Split("Commune :")(0).Trim 'Ton libellé
            Dim valeur As String = line.Split(":")(1).Trim 'Ta valeur
            Label4.Text = valeur
        Next

Comme ca ?

**matll** · 08/08/2011, 04h00

Non tu ne fais pas comme ça, sur ton texte reçu que l'on va appeler chaine. En parcourant chaque ligne de ta chaine que tu fais le split, car c'est commun à tous les éléments.

Je fais un exemple et je reviens

**gastoncs** · 08/08/2011, 04h03

c'est sympa pacque la je suis totalement largué !

**matll** · 08/08/2011, 04h08

Voilà un petit exemple rapide :

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
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 & _
    "**************************"
Dim libelle As String
Dim valeur As String
For Each ligne As String In chaine.Split(ControlChars.NewLine)
    Try
        libelle = ligne.Split(":")(0).Trim 'Ton libellé
        valeur = ligne.Split(":")(1).Trim 'Ta valeur
        Select Case libelle
            Case "Commune"
                TextBox1.Text = valeur
            Case "Produit"
                TextBox2.Text = valeur
        End Select
    Catch ex As Exception
        'Pour catcher les exceptions sur le Split avec les *****
    End Try
Next

Tu mets autant de Case que tu as de TextBox et de libellés.

**gastoncs** · 08/08/2011, 04h18

Merci mais j'ai placé ton code, dans ma textbox, mais ca refuse de fonctionner, rien qui ne s'affiche dans mes label ???

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
 
 Dim inputData As String = "" 'récupére les données du port série
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim libelle As String
        Dim valeur As String
        For Each ligne As String In inputData.Split(ControlChars.NewLine)
            Try
                libelle = ligne.Split(":")(0).Trim 'Ton libellé
                valeur = ligne.Split(":")(1).Trim 'Ta valeur
                Select Case libelle
                    Case "Commune"
                        Label1.Text = valeur
                    Case "Produit"
                        Label4.Text = valeur
                End Select
            Catch ex As Exception
                'Pour catcher les exceptions sur le Split avec les *****
            End Try
        Next
    End Sub

**matll** · 08/08/2011, 04h21

As-tu quelque chose dans ta variable inputData ? As-tu regardé le comportement en exécution pas à pas ?

C'est un code que je mettrais plutôt dans l’évènement DataReceived de ton SerialPort.

ps : c'est pas dit que je réponde tout de suite, je risque de tomber de sommeil d'une minute à l'autre

@+
Mat

**gastoncs** · 08/08/2011, 04h30

en fait je ne suis pas au boulot donc j'ai pas la possibilité d'utiliser le serial port, mais je reçois bien les données de la variable inputData dans ma textbox, en faite je simule la réception d'un message en copier coller dans ma textbox

mais grace à ce code transmet la variable inputdata dans mon textbox1 :

Code :

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

1
2
3
 Public Sub DoUpdate()
        TextBox1.Text = TextBox1.Text & inputData
    End Sub

et dans ton code j'ai modifier en mettant :

Code :

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

For Each ligne As String In TextBox1.Text.Split(ControlChars.NewLine)

**gastoncs** · 08/08/2011, 04h43

Pardon c'est moi qui me suis trompé sur les labels

jsui nul, en tous cas ca fonctionne super bien ton code merci beaucoup

Affecter les donnees d'un textbox a un label

VB.NET

Discussions similaires

Partager

Partager