Discussion :

[Golzinne]

Bonjour à tous,

J'ai un fichier A.txt qui contient

PAUL
JACQUES
LUC

je voudrais créer un fichier B.TXT qui contient

COMPTAGE 3
PAUL
JACQUES
LUC

En gros, je rajoute une première ligne qui résume des infos de mon fichier A.txt.

Pour ce faire j'utilise

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
Dim strLine As String
        Dim SR As System.IO.StreamReader
        Dim comptage As Integer
 
        'récupère le fichier sélectionné
 
        SR = System.IO.File.OpenText("\\BIG\AuraToTest\" & MyTxt)
 
        Do Until SR.Peek = -1
            comptage += 1
            strLine = SR.ReadLine
 
        Loop
 
        Dim SW = New System.IO.StreamWriter("\\BIG\AuraTested\" & MyTxt)
        SW.writeline("Comptage " & comptage)
        SW.write(SR.ToString)
        SW.close()
        SR = Nothing
        SW = Nothing

Il me compte donc bien mon nombre d'enregistrement qu'il met dans la variable comptage.

Le problème c'est qu'il ne me rajoute pas
PAUL
JACQUES
LUC
après la première ligne, mais j'obtiens

Comptage 3
System.IO.StreamReader

Comment réécrire tout le contenu de mon fichier après la ligne d'entête ?
Ou alors dois-je utiliser une autre technique qui consisterait à copier l'entièreté du fichier A.Txt dans B.txt et aller écrire mon entête en première position?

Merci de votre aide

[HULK]

ce que tu peux faire c'est ajouter chaque ligne de ton fichier dans un listbox intermédiaire par 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
 
 SR = System.IO.File.OpenText("\\BIG\AuraToTest\" & MyTxt)
 
        Do Until SR.Peek = -1
            comptage += 1
            listbox.items.add(SR.ReadLine)
        Loop
sr.close()
 
 Dim sw As StreamWriter = New StreamWriter("c:\fichierComptage.txt")
sw.writeline("Comptage " & i.tostring)
for each item as object in listbox.item
sw.writeline(listbox.item)
Next
sw.close()

[Golzinne]

Merci Hulk pour cette réponse,

Je dois reconnaître que j'avais pensé à ce genre de solution, mais j'espérais qu'on puisse vraiment coller l'ensemble du fichier (que j'ai bien été mettre dans mon objet SR) à la suite de mon premier enregistrement. J'aurais trouvé ça plus propre. Et quid de la solution de copier A.txt dans B.txt et d'arriver à écrire ma première ligne au début de B.txt ?

[HULK]

écrire à la suite on sait faire, mais au début je sais pas.

Il existe une surcharge permettant de ne pas écraser mais d'ajouter à la fin du fichier:

Dim SW As New StreamWriter ("MonFichier.txt", True) ' crée ou si existe ajoute

[Mehdi Feki]

Bon il ya beacoup plus simple, voila ce que je propose :

Code :

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

1
2
3
4
5
6
7
8
  Dim rdr As StreamReader = File.OpenText("source.txt")
        While Not rdr.EndOfStream
            rdr.ReadLine()
            Index += 1
        End While
        rdr.Close()
        File.WriteAllLines("dest.txt", New String() {"Comptage " & Index.ToString, File.ReadAllText("source.txt")})

J'espere que ca va t'aider.
A+

[Golzinne]

Salut mehdi_tn,

Tu n'as pas de me faire à une heure pareille !

J'ai testé, c'est pile ce qu'il me fallait. Alors je dis et aussi et je marque