lecture string ligne par ligne

Version imprimable

bonjour

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

Citation:

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:

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

09/02/2011, 12h32
WOLO Laurent

Quand vous faites le mode pas à pas, est ce que les données sont bien chargées dans ta collection ?
09/02/2011, 12h39
Jerede

Si l'ordre ne vais pas changer, tu peut toujours faire un split "\n" et re-spliter chaque ligne avec ":" puis un Trim. :mrgreen:
09/02/2011, 14h11
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 ...
09/02/2011, 16h25
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.
09/02/2011, 16h32
alex61

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

merci de vos réponse

cordialement

Bonjour,
un split simple sur le listbox devrait fonctionner :

Code:

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