Problème d'une chaine incomplète

Version imprimable

Bonjour tout le monde,
j'ai écris un script permettant de lire le contenu d'un fichier texte puis le formater et l'afficher à l'écran. chaque ligne lue est traitée puis ajoutée dans une chaine de type string. la chaine construite est affichée à l'écran dans un textbox multiligne. voici une partie du code :

Code:

1
2
3
4
 
'LECTURE FICHIER
fs = New FileStream(filename, FileMode.Open, FileAccess.Read)
sr = New StreamReader(fs)

Lecture des lignes du fichier

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
 
content = sr.ReadLine.Trim
While Not content Is Nothing
     If content.StartsWith("Solde_PME") Then
             chaine = content.Replace("Solde_PME>LON/6=", "Solde PME " + s.PadLeft(14)).Trim + ControlChars.CrLf
                    End If
.
.
.
.
                    If content.StartsWith("Code_Etape") Then
 
                        If content.StartsWith("Code_Etape_ET1") Then
                            chaine += content.Replace("Code_Etape_ET1>ASC/30=", "Code Etape Et.1 " + s.PadLeft(8)).Trim + ControlChars.CrLf
                        End If
 
                        If content.StartsWith("Code_Etape_ET2") Then
                            chaine += content.Replace("Code_Etape_ET2>ASC/30=", "Code Etape Et.2 " + s.PadLeft(8)).Trim + ControlChars.CrLf
                        End If
 
                        If content.StartsWith("Code_Etape_ET3") Then
                            chaine += content.Replace("Code_Etape_ET3>ASC/30=", "Code Etape Et.3 " + s.PadLeft(8)).Trim + ControlChars.CrLf
                            chaine += "------------------------------------------------------" + ControlChars.CrLf
                        End If
 
                        If content.StartsWith("Code_Etape1") Then
                            chaine += content.Replace("Code_Etape1>ASC/6=", "Code étape 1 " + s.PadLeft(11)).Trim + ControlChars.CrLf
                        End If
 
                        If content.StartsWith("Code_Etape2") Then
                            chaine += content.Replace("Code_Etape2>ASC/6=", "Code étape 2 " + s.PadLeft(11)).Trim + ControlChars.CrLf
                        End If
 
                        If content.StartsWith("Code_Etape3") Then
                            chaine += content.Replace("Code_Etape3>ASC/6=", "Code étape 3 " + s.PadLeft(11)).Trim + ControlChars.CrLf
                        End If
 
                        If content.StartsWith("Code_Etape4") Then
MsgBox("je suis en étape 4")                          
chaine += content.Replace("Code_Etape4>ASC/6=", "Code étape 4 " + s.PadLeft(11)).Trim + ControlChars.CrLf
                           MsgBox(chaine)
                       End If
 
                    End If
 
content = sr.ReadLine()
End While

Le problème est que l'étape 4 ne s'affiche pas même s'il existe bien dans le fichier. j'ai rajouté un msgbox :

Code:

MsgBox("je suis en étape 4")

J'ai bien le message qui s'affiche. j'ai rajouté

Code:

MsgBox(chaine)

mais la chaine ne contient pas la ligne de l'étape 4.
Avez-vous une idée du problème ?
Si vous avez des question , n'hésitez pas. Merci

28/09/2007, 14h25
iron182

tu as bien respecté la casse de "Code_Etape4" ?
et quand tu debug "content", tu as bien "Code_Etape4" dans la chaine ?
ca doit forcément marcher sinon

Citation:

tu as bien respecté la casse de "Code_Etape4" ?
et quand tu debug "content", tu as bien "Code_Etape4" dans la chaine ?
ca doit forcément marcher sinon

Oui, la casse est respectée.
Code_Etape4 existe dans le fichier, et je rentre dans le bloc if lui correspondant :
Code:

1 2 3 4 5 If content.StartsWith("Code_Etape4") Then MsgBox("je suis en étape 4") chaine += content.Replace("Code_Etape4>ASC/6=", "Code étape 4 " + s.PadLeft(11)).Trim + ControlChars.CrLf MsgBox(chaine) End If
les 2 msgbox s'affichent, sauf que la chaine ne reçoit pas

Code:

content.Replace("Code_Etape4>ASC/6=", "Code étape 4 " + s.PadLeft(11)).Trim + ControlChars.CrLf

J'ai me suis dit peut être c'est lié à la taille

28/09/2007, 16h47
iron182

non ca ne peut pas etre un probleme de taille ...

et quand tu debug il y a quoi dans

Code:

content.Replace("Code_Etape4>ASC/6=", "Code étape 4 " + s.PadLeft(11)).Trim + ControlChars.CrLf

?

au lieu ControlChars.CrLf je ne saurais que trop te conseiller Environment.Newline
28/09/2007, 17h06
paradeofphp

tu peux me dire pourquoi tu me conseille d'utiliser Environment.Newline au lieu de ControlChars.CrLf ?? Merci
28/09/2007, 17h08
Aspic

Citation:

Envoyé par paradeofphp

tu peux me dire pourquoi tu me conseille d'utiliser Environment.Newline au lieu de ControlChars.CrLf ?? Merci

Et tu as essayé avec VbCrLf ?
28/09/2007, 17h13
iron182

Citation:

Envoyé par paradeofphp

tu peux me dire pourquoi tu me conseille d'utiliser Environment.Newline au lieu de ControlChars.CrLf ?? Merci

parce que ControlChars.CrLf c'est spécifique VB
alors que Environment.Newline c'est une propriété générique du framework ...
28/09/2007, 17h18
paradeofphp

merci pour ton explication iron182.
Sinon j'ai essayé Environment.NewLine et VbCrLf et rien n'a changé.
28/09/2007, 17h21
iron182

normal que ca ne change rien
neanmoins la seul réponse que je peux te donner c'est que dans ton fichier il n'y a pas exactement ecris "Code_Etape4>ASC/6="
sinon met ton fichier a dispo quelque part et on va vérifier :)
28/09/2007, 17h28
paradeofphp

Tenez :

Citation:

Code_Etape1>ASC/6=21
Version_Etape1>ASC/3=V02
Finalite_Etape1>ASC/1=A
Niveau_Etape1>ASC/2=N2
Code_Etape2>ASC/6=21
Version_Etape2>ASC/3=V02
Finalite_Etape2>ASC/1=A
Niveau_Etape2>ASC/2=N2
Code_Etape3>ASC/6=
Version_Etape3>ASC/3=
Finalite_Etape3>ASC/1=
Niveau_Etape3>ASC/2=
Code_Etape4>ASC/6=
Version_Etape4>ASC/3=
Finalite_Etape4>ASC/1=

Mon affichage se termine après

Citation:

Finalite_Etape3>ASC/1=

Bonjour.

J'ai fait le test avec le contenu que tu donnes et :

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
 
        Dim sr As New System.IO.StreamReader("C:\Temp\Test.txt")
        Dim content As String = sr.ReadLine.Trim
        Dim chaine As String = ""
 
        While Not content Is Nothing
 
            If content.StartsWith("Code_Etape") Then
                If content.StartsWith("Code_Etape_ET1") Then
                    chaine += content.Replace("Code_Etape_ET1>ASC/30=", "Code Etape Et.1 " + s.PadLeft(8)).Trim + ControlChars.CrLf
                End If
 
                If content.StartsWith("Code_Etape_ET2") Then
                    chaine += content.Replace("Code_Etape_ET2>ASC/30=", "Code Etape Et.2 " + s.PadLeft(8)).Trim + ControlChars.CrLf
                End If
 
                If content.StartsWith("Code_Etape_ET3") Then
                    chaine += content.Replace("Code_Etape_ET3>ASC/30=", "Code Etape Et.3 " + s.PadLeft(8)).Trim + ControlChars.CrLf
                    chaine += "------------------------------------------------------" + ControlChars.CrLf
                End If
 
                If content.StartsWith("Code_Etape1") Then
                    chaine += content.Replace("Code_Etape1>ASC/6=", "Code étape 1 " + s.PadLeft(11)).Trim + ControlChars.CrLf
                End If
 
                If content.StartsWith("Code_Etape2") Then
                    chaine += content.Replace("Code_Etape2>ASC/6=", "Code étape 2 " + s.PadLeft(11)).Trim + ControlChars.CrLf
                End If
 
                If content.StartsWith("Code_Etape3") Then
                    chaine += content.Replace("Code_Etape3>ASC/6=", "Code étape 3 " + s.PadLeft(11)).Trim + ControlChars.CrLf
                End If
 
                If content.StartsWith("Code_Etape4") Then
                    MsgBox("je suis en étape 4")
                    chaine += content.Replace("Code_Etape4>ASC/6=", "Code étape 4 " + s.PadLeft(11)).Trim + ControlChars.CrLf
                    Console.WriteLine(chaine)
                End If
 
            End If
 
            content = sr.ReadLine()
        End While

Ca marche trés bien puisque j'ai ça :
Code étape 1 a;b;c;d21
Code étape 2 a;b;c;d21
Code étape 3 a;b;c;d
Code étape 4 a;b;c;d

Moralité, c'est pas dans le code que tu as posté que ce situe le probléme ou le contenu du fichier que tu donnes ne correspond pas au vrai contenu du fichier (caractère spécial qui traîne ??).
A mon avis, tu modifies la chaîne en amont sans t'en rendre compte.

Cdt.

Bonjour,
j'ai suis la trace de la fonction, j'ai trouvé que le problème vient de là :

Code:

1
2
3
                        If content.Trim.StartsWith("Finalite_Etape3") Then
                            chaine += content.Replace("Finalite_Etape3>ASC/1=", "Finalité étape 3 " + s.PadLeft(7)).Trim + vbCrLf
                                 End If

Lorsque je désactive la ligne contenu dans le bloc if, j'ai un affichage correcte et la chaine retournée est complète. Mais je comprends pas pourquoi car j'ai D'autres "Finalité Etape" que j'affiche avant sans avoir de problème par la suite.

Voici mon code traitant cette partie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
If content.Trim.StartsWith("Finalite_Etape") Then
                        If content.StartsWith("Finalite_Etape1") Then
                            chaine += content.Trim.Replace("Finalite_Etape1>ASC/1=", "Finalité étape 1 " + s.PadLeft(7)).Trim + vbCrLf
                        End If
 
                        If content.Trim.StartsWith("Finalite_Etape2") Then
                            chaine += content.Trim.Replace("Finalite_Etape2>ASC/1=", "Finalité étape 2 " + s.PadLeft(7)).Trim + vbCrLf
                        End If
 
                        If content.Trim.StartsWith("Finalite_Etape3") Then
                            chaine += content.Replace("Finalite_Etape3>ASC/1=", "Finalité étape 3 " + s.PadLeft(7)).Trim + vbCrLf
                        End If
 
                        If content.Trim.StartsWith("Finalite_Etape4") Then
                            chaine += content.Trim.Replace("Finalite_Etape2>ASC/1=", "Finalité étape 2 " + s.PadLeft(7)).Trim + vbCrLf
                        End If
                    End If

03/10/2007, 11h45
paradeofphp

Bonjour tout le monde,
excusez-moi les amis, je relance ce sujet puisque je suis toujours coincé :cry:
aidez-moiii :lol:
03/10/2007, 19h22
olsimare

Bonjour.

Peux-tu poster l'intégralité du code pour éclairer ?

Cdt.
03/10/2007, 19h40
Aspic

Citation:

Envoyé par paradeofphp

Bonjour tout le monde,
excusez-moi les amis, je relance ce sujet puisque je suis toujours coincé :cry:
aidez-moiii :lol:

Un peu plus de précision serait la bienvenue :)

Bonjour tout le monde,
je réexplique mon problème.

j'ai fichier contenant plusieurs lignes, entre autres :

Citation:

...
Version_Etape1>ASC/3=V02
Finalite_Etape1>ASC/1=A
Niveau_Etape1>ASC/2=N2
Code_Etape2>ASC/6=21
Version_Etape2>ASC/3=V02
Finalite_Etape2>ASC/1=A
Niveau_Etape2>ASC/2=N2
Code_Etape3>ASC/6=
Version_Etape3>ASC/3=
Finalite_Etape3>ASC/1=A
Niveau_Etape3>ASC/2=
Code_Etape4>ASC/6=
Version_Etape4>ASC/3=
Finalite_Etape4>ASC/1=A
Niveau_Etape4>ASC/2=
...

J'ai besoin de formater ces lignes pour les afficher à l'écran dans un textbox multilignes. Pour ce faire, j'ai développé cette fonction qui permet de lire ligne par ligne et la formater :

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
    Function ReadAllFile() As String
        Dim fs As FileStream
        Dim sr As StreamReader
        Dim dir As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\idBadge"
        Dim ret As String = ""
        Dim content As String
        Dim chaine As String
 
 
        Dim filename As String = System.IO.Path.Combine(dir, "OUT" + UserConnecte + "1.txt")
 
        Try
            'LECTURE FICHIER
            fs = New FileStream(filename, FileMode.Open, FileAccess.Read)
            sr = New StreamReader(fs)
            Dim lieu_nais, date_nais, prenom, boursier, lecteur, Ine As String
            'Return chaine
 
 
            'LECTURE FICHIER EN ENTIER
            content = sr.ReadLine.Trim 'lire le Num Crypté sur la 1ère ligne
            Dim s As String = ": "
            Dim pme As String = ""
            Dim soldepme As String
            Dim datepme As String = ""
 
            chaine += "N° CSN " + s.PadLeft(17) + content + vbCrLf
 
            content = sr.ReadLine.Trim
 
            '_CSNCrypte = sr.ReadLine.Trim 'lire le Num Crypté sur la 1ère ligne
            'content = sr.ReadLine.Trim
 
 
 
            If content = "0" Then  'Lire résultat sur la 2ème ligne: 0 -> Succès
                content = sr.ReadLine.Trim
                While Not content Is Nothing
 
                    If content.StartsWith("Code_Etape") Then
 
                        If content.StartsWith("Code_Etape_ET1") Then
                            chaine += content.Replace("Code_Etape_ET1>ASC/30=", "Code Etape Et.1 " + s.PadLeft(8)).Trim + vbCrLf
                        End If
 
                        If content.StartsWith("Code_Etape_ET2") Then
                            chaine += content.Replace("Code_Etape_ET2>ASC/30=", "Code Etape Et.2 " + s.PadLeft(8)).Trim + vbCrLf
                        End If
 
                        If content.StartsWith("Code_Etape_ET3") Then
                            chaine += content.Replace("Code_Etape_ET3>ASC/30=", "Code Etape Et.3 " + s.PadLeft(8)).Trim + vbCrLf
                            chaine += "------------------------------------------------------" + vbCrLf
                        End If
 
                        If content.StartsWith("Code_Etape1") Then
                            chaine += content.Replace("Code_Etape1>ASC/6=", "Code étape 1 " + s.PadLeft(11)).Trim + vbCrLf
                        End If
 
                        If content.StartsWith("Code_Etape2") Then
                            chaine += content.Replace("Code_Etape2>ASC/6=", "Code étape 2 " + s.PadLeft(11)).Trim + vbCrLf
                        End If
 
                        If content.StartsWith("Code_Etape3") Then
                            chaine += content.Replace("Code_Etape3>ASC/6=", "Code étape 3 " + s.PadLeft(11)).Trim + vbCrLf
                        End If
 
                        If content.StartsWith("Code_Etape4") Then
                            chaine += content.Replace("Code_Etape4>ASC/6=", "Code étape 4 " + s.PadLeft(11)).Trim + vbCrLf
                        End If
 
                    End If
 
                    If content.StartsWith("Version_Etape") Then
                        If content.StartsWith("Version_Etape1") Then
                            chaine += content.Replace("Version_Etape1>ASC/3=", "Version étape 1 " + s.PadLeft(8)).Trim + vbCrLf
                        End If
 
                        If content.StartsWith("Version_Etape2") Then
                            chaine += content.Replace("Version_Etape2>ASC/3=", "Version étape 2 " + s.PadLeft(8)).Trim + vbCrLf
                        End If
 
                        If content.StartsWith("Version_Etape3") Then
                            chaine += content.Replace("Version_Etape3>ASC/3=", "Version étape 3 " + s.PadLeft(8)).Trim + vbCrLf
                        End If
 
                        If content.StartsWith("Version_Etape4") Then
                            chaine += content.Replace("Version_Etape4>ASC/3=", "Version étape 4 " + s.PadLeft(8)).Trim + vbCrLf
                        End If
                    End If
 
                    If content.Trim.StartsWith("Finalite_Etape") Then
                        If content.StartsWith("Finalite_Etape1") Then
                            chaine += content.Trim.Replace("Finalite_Etape1>ASC/1=", "Finalité étape 1 " + s.PadLeft(7)).Trim + vbCrLf
                        End If
 
                        If content.Trim.StartsWith("Finalite_Etape2") Then
                            chaine += content.Trim.Replace("Finalite_Etape2>ASC/1=", "Finalité étape 2 " + s.PadLeft(7)).Trim + vbCrLf
                        End If
 
                        If content.StartsWith("Finalite_Etape3") Then
                            chaine += content.TrimEnd.Replace("Finalite_Etape3>ASC/1=", "Finalité étape 3 " + s.PadLeft(7)).Trim + vbCrLf
 
 
                        End If
 
                        If content.Trim.StartsWith("Finalite_Etape4") Then
                            chaine += content.TrimEnd.Replace("Finalite_Etape4>ASC/1=", "Finalité étape 4 " + s.PadLeft(7)).Trim + vbCrLf
                        End If
                    End If
 
                    If content.StartsWith("Niveau_Etape") Then
                        If content.StartsWith("Niveau_Etape1") Then
                            chaine += content.Replace("Niveau_Etape1>ASC/2=", "Niveau étape 1 " + s.PadLeft(9)).Trim + vbCrLf
                            chaine += "------------------------------------------------------" + vbCrLf
                        End If
 
                        If content.StartsWith("Niveau_Etape2") Then
                            chaine += content.Replace("Niveau_Etape2>ASC/2=", "Niveau étape 2 " + s.PadLeft(9)).Trim + vbCrLf
                            chaine += "------------------------------------------------------" + vbCrLf
                        End If
 
                        If content.StartsWith("Niveau_Etape3") Then
                            chaine += content.Replace("Niveau_Etape3>ASC/2=", "Niveau étape 3 " + s.PadLeft(9)).Trim + vbCrLf
                            chaine += "------------------------------------------------------" + vbCrLf
                        End If
 
                        If content.StartsWith("Niveau_Etape4") Then
                            chaine += content.Replace("Niveau_Etape4>ASC/2=", "Niveau étape 4 " + s.PadLeft(9)).Trim + vbCrLf
                        End If
                    End If
 
                    content = sr.ReadLine()
 
                End While
            End If
            fs.Close()
 
            Return chaine
 
        Catch ex As Exception
           Return ex.Message
        Finally
            If Not fs Is Nothing Then fs.Close()
            If Not sr Is Nothing Then sr.Close()
        End Try
 
    End Function

Le problème que j'ai rencontré est le suivant :
La chaine retournée ne contient pas les lignes se trouvant après Finalité Etape 3. Lorsque j'ai vérifier cette ligne

Citation:

Finalite_Etape3>ASC/1=

, j'ai remarqué qu'elle se termine par un espace. Pour l'enlever, j'ai rajouté un TRim, puis un TrimEnds mais ça donne rien :

Code:

1
2
If content.StartsWith("Finalite_Etape3") Then
   chaine += content.TrimEnd.Replace("Finalite_Etape3>ASC/1=", "Finalité étape 3 " + s.PadLeft(7)).Trim + vbCrLf

J'ai remplacé manuellement cette espace par une valeur 'A', j'ai pu afficher les lignes qui suivent jusqu'à la ligne Finalité Etape 4 qui se termine également par espace. de même, j'ai remplacé cet espace par une valeur, j'ai eu un affichage complet.

Ma conclusion est que cet espace qui me pose problème. Mais je comprends pas pourquoi le trim ne le supprime pas et pourquoi il est origine du problème ??? j'espère que j'ai pu eclaircir davantage le problème. j'attens vos idées. Merci.

04/10/2007, 14h01
paradeofphp

allez les amis, j'attends toujours.
j'ai donné plus d'explication mais j'ai pas eu de retour :cry:
04/10/2007, 23h45
olsimare

Bonjour.

J'ai repris le code, retester, avec un espace et caractére spécial, ça pose pas de probléme.

Comme le contenu du fichier et du code que tu donnes n'est pas exhaustif, je peux pas grand chose pour toi...

T'as éditer le fichier en hexa pour voir si ce caractére est bien un espace (avec ultraedit ou autre éditeur qui fait ça) ?

Cdt.