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...