Traitement d'un fichier texte

**Savak** · 31/08/2012, 09h40

Bonjour,

Voilà mon problème : je doit modifier un fichier texte de 80 Megas. Je vous laisse imaginer le nombre de ligne...

En gros, à partir d'une certaine ligne (La ligne "[CONSULT]" pour être exact), il faut que je rajoute une ligne après chaque ligne "<ID>un numéro</ID>". Cette ligne à ajouter est la suivante : "<MEDECIN>2</MEDECIN>"

Voici le code que j'ai créé pour faire ce que j'ai décris ci-dessus :

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
24
25
26
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 
        Dim Ligne As String
        Dim SR As New StreamReader(TextBox1.Text)
        Dim depart As Boolean = False
 
        Do Until SR.Peek = -1
 
            Ligne = SR.ReadLine()
            File.AppendAllText(TextBox1.Text & " traité.txt", Ligne & vbNewLine)
 
            If Ligne.Contains("[CONSULT]") Then
                depart = True
            End If
 
            If depart = True And Ligne.Contains("<ID>") = True Then
                File.AppendAllText(TextBox1.Text & " traité.txt", "<MEDECIN>2</MEDECIN>" & vbNewLine)
            End If
 
        Loop
 
        SR.Close()
 
        MsgBox("Traitement terminé")
 
    End Sub

Après traitement du fichier, deux soucis surviennent :
- Une ligne "<MEDECIN>2</MEDECIN>" est créé tout à la fin du fichier alors que la ligne précédente est "[END EXPORT]"
- Toutes les lettres avec des accents (ex : é, è, à, etc.) sont remplacées par le symbole suivant : �

Le but de ce post est de m'aider à identifier la source de ces deux erreurs.

Merci d'avance pour votre aide. Et n'hésitez surtout pas à me dire si je n'es pas été clair. J'ai tendance à m'embrouiller dans mes explications...

**Vince** · 31/08/2012, 10h44

Envoyé par Savak

- Une ligne "<MEDECIN>2</MEDECIN>" est créé tout à la fin du fichier alors que la ligne précédente est "[END EXPORT]"

Normal le mode append permet d'écrire à la "fin du fichier" comme pour un log par exemple.

Dans ton cas tu dois ouvrir un Streamreader qui lit le fichier d'entrée et un streamwriter qui réécrit le fichier modifié, ensuite tu supprime le fichier d'entrée (tu peux en faire un .bak au cas où) et tu l'écrase avec le nouveau généré et modifié.
exemple :

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
24
25
 
Dim strLigne As String
Dim monStreamReader As New System.IO.StreamReader(<chemin fichier d entrée>, System.Text.Encoding.Default) 'Stream pour lire le fichier d'entrée
Dim monStreamWriter As New System.IO.StreamWriter(<chemin du fichier de sortie>) 'Stream pour l ecriture
 
Do
     'Lecture fichier d'entrée
     strLigne = monStreamReader.ReadLine
 
     If strLigne Is Nothing Then
          Exit Do
     End If
 
     if strLigne = ... then
          strLigne  = strLigne + "..."
     end if
 
     'Ecriture du fichier de sortie
     monStreamWriter.WriteLine(strLigne)
     monStreamWriter.Flush()
 
Loop Until strLigne Is Nothing
 
monStreamReader.Close()
monStreamWriter.Close()

Et à la fin tu écrase ton fichier d'entrée avec celui que tu as réécris

**Savak** · 31/08/2012, 12h02

Hum... Ok pour la méthode "Append". En effet, en y regardant de plus près, le fait que cette ligne soit rajouté à la toute fin du fichier est totalement normal.

Par contre, ce que tu me dit là ne répond pas à mon second problème. Tu me dis qu'il y a une autre méthode pour jouer avec un fichier texte, d'accord. Mais en quoi cela va m'aider à comprendre pourquoi ce symbole bizarre (�) vient m'embêter? Ou alors cela a un lien avec la classe "File"? Je n'ai pas trop compris pourquoi tu m'as parlé des StreamReader et StreamWriter... Mon programme fonctionne mais mes lettres à accent sont remplacées, c'est tout.

Merci d'éclairer ma lanterne!

**Savak** · 31/08/2012, 12h46

Ça, c'est tout moi... Je parle sans savoir. Tu avais raison, en utilisant les StreamReader et StreamWriter, je ne retrouve plus de symbole à la place de mes lettres à accent.

Voici mon code :

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
24
25
        Dim strLigne As String = String.Empty
        Dim monStreamReader As New System.IO.StreamReader(TextBox1.Text, System.Text.Encoding.Default)
        Dim monStreamWriter As New System.IO.StreamWriter(TextBox1.Text & " traité.txt")
        Dim depart As Boolean = False
 
        Do Until monStreamReader.Peek = -1
            'Lecture fichier d'entrée
            strLigne = monStreamReader.ReadLine()
 
            If strLigne.Contains("[CONSULT]") = True Then
                depart = True
            End If
 
            If depart = True And strLigne.Contains("<ID>") = True Then
                strLigne = strLigne & vbNewLine & "<MEDECIN>2</MEDECIN>"
            End If
 
            'Ecriture du fichier de sortie
            monStreamWriter.WriteLine(strLigne)
            monStreamWriter.Flush()
 
        Loop
 
        monStreamReader.Close()
        monStreamWriter.Close()

Par contre, j'ai toujours cette ligne avec ""<MEDECIN>2</MEDECIN>" à la fin...

**Vince** · 31/08/2012, 13h21

Et si tu remets "depart" à false :

Code :

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

1
2
3
4
5
 
If depart = True And strLigne.Contains("<ID>") = True Then
     strLigne = strLigne & vbNewLine & "<MEDECIN>2</MEDECIN>"
     depart = False
End If

OU

Code :

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

1
2
3
4
5
6
 
If strLigne.Contains("[CONSULT]") = True Then
     depart = True
Else
     depart = False
End If

Parce que là dans ton code une fois qu'il est à Vrai il reste toujours à Vrai...

Puis ton code tu peux l'écrire plus simplement sans booléen :

Code :

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

1
2
3
4
 
     If strLigne.Contains("[CONSULT]") And strLigne.Contains("<ID>") Then
          strLigne = strLigne & vbNewLine & "<MEDECIN>2</MEDECIN>"
     End If

**Savak** · 31/08/2012, 13h27

Non, aucune des deux solution ne fonctionne. Mais ne t'embête pas trop. Je peux toujours intervenir manuellement pour la dernière ligne, ce n'est pas trop gênant.

Par contre, c'est vrai que je peux le simplifier

. Je fais ça de suite!

Merci en tout cas, tu m'as déjà bien aidé!