Discussion :

[alex61]

bonjour

alors voila j'ai un petit souci lors du traitement du texte ci dessous

Civilité : Mr
Nom : nom
Email : cnom@aol.com
Téléphone : 0623900007
Fax : 0970110087
Société : SARL****
Effectif : moins de 10
Secteur d'activité : Batiment - entreprise de
metallerie/serrurerie
Précision :
Fonction : Logistique / Achats /Qualité
Adresse : 1 RUE DES eeeeee
Code Postal : 574000
Ville : KERBACH
Pays : France
Projet : entre 1 et 3 mois

ce texte est extrait d'un mail , il est envoyer automatiquement par un site web pour des demande de documentation

moi je doit extraire les info qu'il m'envoie dans le corps du message
( adresse mail , nom , etc... )

j'aimerais lire cette chaine ligne par ligne pour pouvoir extraire facilement les donnée

j'ai commencer par placer tout ca dans une richtextbox
et l'ai lu ligne par ligne , ce qui donne

Code :

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

1
2
3
4
5
6
7
8
9
 For Each line As String In RichTextBox1.Lines
 
            If (line.Contains("Civilité  : ") = True) Then
 
                Civilite = line.Remove(0, "Civilité  : ".Length)
 
 
            End If
        Next line

normalement ce bout de code devrait me faire apparaitre ce qu'il y a derrière "Civilité : " , mais rien

après si quelqu'un a une autre solution pour lire une string ligne par ligne , je prend


cordialement

[WOLO Laurent]

Quand vous faites le mode pas à pas, est ce que les données sont bien chargées dans ta collection ?

[Jerede]

Si l'ordre ne vais pas changer, tu peut toujours faire un split "\n" et re-spliter chaque ligne avec ":" puis un Trim.

[alex61]

en faite ca marche , ma seul erreur est de ne pas avoir rempli le richtextbox en cliquant sur ma listbox qui contient le sujet des mail ( je suis un gros boulet )


mais il n'y a pas un moyen de lire cette chaine ligne par ligne sans passer par une textbox

j'ai essayer de faire un tableau contenant chaque ligne en séparant la chaine en fonction de convert.tochar("10") qui est censé faire un retour a la ligne , mais ca ne fonctionner pas ...

[SaumonAgile]

Essaie de faire un split de ta chaine en utilisant une Regex qui matches les fins de ligne en mode Multiline.
Tu obtiendras une ligne par match.

Sinon un bête split sur '\n' devrait fonctionner normalement.

[alex61]

OK je verrai ca un peu plus tard car j'améliore un autre projet plus urgent

merci de vos réponse


cordialement

[chrismonoye]

Bonjour,
un split simple sur le listbox devrait fonctionner :

Code :

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

1
2
3
4
5
6
        For Each it As String In ListBox1.Items
            Dim split As String() = it.Split(New [Char]() {":"c})
            If split(0).ToString = "Civilité " Then
                MessageBox.Show(split(1).ToString)
            End If
        Next