Discussion :

[aus3004]

Bonsoir,

Je dois ajouter le contenu d'un document texte dans un autre document texte, pour cela j'utilise ceci :

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
Public Function sauv()
        Dim user As String = Environment.UserName
        Dim fichier As String = "C:\Users\" & user & "\AppData\Local\Logiciel\Sauv\" & Date.Now.ToString("dd.MM.yyyy") & "\" & Date.Now.ToString("HH.mm") & ".txt"
        Dim fichier2 As String = "C:\Users\" & user & "\AppData\Local\Logiciel\Sauv\MAJ.txt"
        Dim monStreamReader As New StreamReader(fichier)
        Dim monStreamReader2 As New StreamReader(fichier2)
        Dim ligne As String
        Dim ligne2 As String
        Do
            ligne = monStreamReader.ReadLine()
        Loop Until ligne Is Nothing
        monStreamReader.Close()
        Do
            ligne2 = monStreamReader2.ReadLine()
        Loop Until ligne2 Is Nothing
        monStreamReader2.Close()
 
        Dim monStreamWriter As New StreamWriter(fichier2)
        monStreamWriter.WriteLine(ligne + ligne2)
        monStreamWriter.Close()
    End Function

Le problème est que cela ne marche pas et après avoir touché au code pendant 2h, je craque et je vous demande ce que vous en pensez.
Le but est que toutes les lignes du fichier soient ajoutées aux lignes du fichier2 mais le fichier2 ce vide

Merci

[StormimOn]

En faisant

Code :

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

1
2
3
4
5
6
7
Do
    ligne = monStreamReader.ReadLine()
Loop Until ligne Is Nothing
 
Do
   ligne2 = monStreamReader2.ReadLine()
Loop Until ligne2 Is Nothing

ligne et ligne2 auront pour valeur Nothing à la fin, c'est à dire la condition de sortie. Normal puisque tu affectes à ces variables le retour de la méthode ReadLine de manière systématique. ligne vaudra la première ligne de ton fichier au premier tour de boucle, puis la seconde ligne au second tour, puis la troisième ligne et ainsi de suite. Mais jamais tu n'auras le cumul des lignes puisque tu ne gardes pas la trace des lignes déjà lues.

Si les fichiers ne sont pas trop volumineux, le plus simple serait d'utiliser la méthode File.ReadAllText qui renvoi le contenu de ton fichier. Et ensuite tu ajoutes tout ça dans le fichier à compléter avec la méthode File.AppendAllText.

Si les fichiers sont volumineux, alors à ce moment tu lis une ligne dans le fichier d'entrée et ensuite tu écris cette ligne dans le fichier de sortie. Et après tu boucles, tu lis une ligne tu l'écris, et ainsi de suite.

[aus3004]

Merci, pour ton aide, je connaissais pas cette méthode.

Code :

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

File.AppendAllText((fichier2), File.ReadAllText(fichier1))

bon dev