Discussion :

[Nissartis]

Bonjour à tous.

J'ai un soucis pour coder une partie de mon programme.
Cette tâche devra rajouter à la fin de chaque ligne d'un fichier, le caractere ;; (Double point-virgule).

L'ouverture et la fermeture du fichier ce passe correctement, mais je n'ai aucune idée comment faire cette édition.
En c++ il y avait un moyen par rapport a un "pointeur" qu'on positionne juste avant le caractere Retour a la ligne (\n), mais je n'ai pas réussis à l'adapter en VB.

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
fileread = New StreamReader(Chemin & "liste.txt")
        With fileread.BaseStream.Seek(0, SeekOrigin.Begin)  'Se positionne au début du fichier liste.
            While (fileread.Peek > 0)   'Tant qu'il a quelque chose a lire ...
                BufferLigne = fileread.ReadLine() 'Lit une ligne.
                cptLigne += 1 'Incremente le nombre de lignes.
                filewriteCsv = New StreamWriter(BufferLigne)    'Ouverture du fichier CSV.
                Console.WriteLine("Ouverture du fichier: " & BufferLigne)
 
                '----CODE POUR METTRE ';;' A LA FIN DU FICHIER ACTUELLEMENT OPEN----
 
                tempo(2000)
                filewriteCsv.Close()    'Fermeture du Fichier CSV.
            End While
        End With
        fileread.Close()    'Fermeture du Fichier Liste.

Pouvez-vous m'y aider ?

Nissartis.

[Totanne]

Perso, j'accederait au fichier plutôt par ReadAllLine qui te renvoi un tableau de lignes.
Il suffit ensuite de parcourir toutes les lignes du tableau et de rajouter ";;"

[Nissartis]

Hello Totanne !

Je vais un peu me renseigner sur cette fonction et je reviens au plus vite

[Nissartis]

Bon alors je reviens mais avec de mauvaises nouvelles :s

Impossible d'utiliser ta fonction, et j'ai beau chercher sur l'aide local de MSDN ou sur le net, je trouve vraiment pas d'exemple.

Petite precision quand même, mes fichiers où je dois rajouter ";;" a la fin de chaques lignes, font plus de 50000 lignes.

[Nissartis]

Bon c'est un peu le fouilli, mais ça donne ça en cherchant un peu partout :

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
With fileread.BaseStream.Seek(0, SeekOrigin.Begin)  'Se positionne au début du fichier liste.
            While (fileread.Peek > 0)   'Tant qu'il a quelque chose a lire ...
                BufferLigne = fileread.ReadLine() 'Lit une ligne.
                cptLigne += 1 'Incremente le nombre de lignes.
                filereadCsv = New StreamReader(BufferLigne)    'Ouverture du fichier CSV en lecture.
                Console.WriteLine("Ouverture du fichier: " & BufferLigne)
                BufferFile = filereadCsv.ReadToEnd 'Stock tout le fichier dans le buffer.
                filereadCsv.Close()    'Fermeture du Fichier CSV en Lecture.
                BufferFile = Replace(BufferFile, "\n", ";;\n")  'Remplace \n par ;;\n
                filewriteCsv = New StreamWriter(BufferLigne)    'Ouverture du fichier en Ecriture.
                filewriteCsv.Write(BufferFile)  'On ecrase le fichier avec les modifs.
                filewriteCsv.Close()    'Fermeture du fichier en Ecriture.
                tempo(1000)
            End While
        End With
        fileread.Close()    'Fermeture du Fichier Liste.

Par contre ça remplace pas

Des propositions ?

[Nissartis]

C'est bon je crois que j'ai trouvé
Merci a Totanne

Code :

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

BufferFile = Replace(BufferFile, Chr(13), ";;" & Chr(13))