Réécrire l'entête d'un fichier csv sur un nouveau fichier

**drake56** · 08/06/2009, 11h39

Bonjour, je voudrais récupérer la 1ère ligne de mon premier fichier csv pour la réécrire sur mon nouveau fichier csv (en + des données de la période choisie mais ça c'est géré)
merci

**tomlev** · 08/06/2009, 11h52

Dans un fichier texte, tu ne peux pas remplacer juste une ligne, il faut réécrire tout le fichier. Le plus simple, si le fichier est assez petit, c'est de tout lire avec File.ReadAllLines, modifier la première ligne, et tout réécrire avec File.WriteAllLines. Si le fichier est plus gros, il faut boucler en faisant des ReadLine/WriteLine

**drake56** · 08/06/2009, 12h00

Merci le fichier est plutôt gros, est ce que tu peux me donner un petit exemple avec readline/writeline ?

**tomlev** · 08/06/2009, 13h00

en fait tu ne peux pas écrire dans un fichier que tu es en train de lire, il faut donc passer par un fichier temporaire :

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
Dim fileName As String = "leFichier.txt"
Dim tmpFileName As String = fileName & ".tmp"
Dim n As Integer = 0
Using reader As New StreamReader(fileName)
    Using writer As New StreamWriter(tmpFileName)
        Dim line As String = reader.ReadLine()
        If n = 0 Then ' C'est la première ligne, donc l'entête
             ' Modification de l'en-tête, à toi de voir ce que tu mets dedans...
             line = Traitement(line)
        End If
        n = n + 1
        writer.WriteLine(line)
    End Using
End Using
 
' Renommage du fichier
File.Move(tmpFileName, fileName)

**drake56** · 08/06/2009, 13h30

Ok merci pour le code je pense que je vais m'en sortir maintenant, je te tiens au courant

**drake56** · 08/06/2009, 13h45

Ca ne fonctionne pas il veut pas StreamReader tout seul alors je rajoute IO. devant mais ça ne marche toujours pas sinon ça bloque au niveau de la modification du fichier aussi

**tomlev** · 08/06/2009, 14h44

Envoyé par ced56

Ca ne fonctionne pas il veut pas StreamReader tout seul

Ajoute "Imports System.IO" au début du fichier

Envoyé par ced56

alors je rajoute IO. devant mais ça ne marche toujours pas

C'est à dire ? Qu'est-ce qui ne marche pas ? ça compile pas ? ça fait une erreur à l'exécution ?

Envoyé par ced56

sinon ça bloque au niveau de la modification du fichier aussi

Ca veut dire quoi "ça bloque" ?

Sois précis si tu veux qu'on puisse t'aider...

**drake56** · 08/06/2009, 15h01

Je crois que c'est le fait que j'avais pas mis "Imports System.IO" qui fesait tout beugé !
Mais ce n'est toujours pas bon, j'ai impossible de créer un fichier déjà existant à ce niveau là

Code :

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

File.Move(tmpFileName, filename)

**tomlev** · 08/06/2009, 15h08

Envoyé par ced56

Mais ce n'est toujours pas bon, j'ai impossible de créer un fichier déjà existant à ce niveau là

Code :

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

File.Move(tmpFileName, filename)

ah oui, il faut supprimer l'ancien fichier avant (ou le sauvegarder ailleurs) :

Code :

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

1
2
File.Delete(filename)
File.Move(tmpFileName, filename)

**drake56** · 08/06/2009, 15h16

Merci toujours un problème cependant : Le processus ne peut pas accéder au fichier 'C:\Documents and Settings\Stagiaire\Bureau\prises.csv', car il est en cours d'utilisation par un autre processus.
Je te montre mon code au cas où :
-Déclaration des données :

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
        Dim filename As String = "C:\Documents and Settings\Stagiaire\Bureau\prises.csv"
        Dim fields As String()
        Dim delimiter As String = ";" 'caractère de séparation
        Dim ligne As String = ""
        Dim tmpFileName As String = filename & ".tmp"
        Dim n As Integer = 0
        Dim JeGArde As New System.Text.StringBuilder
        Dim Newfilename As String = "c:\prises.csv"
        Dim Lect As New IO.StreamReader(filename)
        Dim Debut = CDate(D_Deb.Value.ToShortDateString)
        Dim Fin = CDate(D_Fin.Value.ToShortDateString)
        Dim cpt As Integer
        ligne = Lect.ReadLine
        Fin = Fin.AddDays(1)
        cpt = 0

- Code pour écrire l'entête et le nouveau fichier csv :

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
        If cpt > 0 Then
            Using reader As New StreamReader(filename)
                Using writer As New StreamWriter(tmpFileName)
                    Dim line As String = reader.ReadLine()
                    If n = 0 Then ' C'est la première ligne, donc l'entête
                        ' Modification de l'en-tête, à toi de voir ce que tu mets dedans...
                        writer.WriteLine(line)
                    End If
                    n = n + 1
                    writer.WriteLine(line)
                End Using
            End Using
 
            ' Renommage du fichier
            File.Delete(filename)
            File.Move(tmpFileName, filename)
            My.Computer.FileSystem.WriteAllText(Newfilename, JeGArde.ToString, False)
            MsgBox("Votre nouveau fichier a été créé !", MsgBoxStyle.OkOnly, "Fichier disponible")
            Process.Start("c:\prises.csv") 'ouverture du fichier après sa création
            Me.Close()

**tomlev** · 08/06/2009, 15h31

Attention, dans ton code tu écris 2 fois la ligne d'en-tête... (une fois dans le if, et encore une fois après)

Envoyé par ced56

Merci toujours un problème cependant : Le processus ne peut pas accéder au fichier 'C:\Documents and Settings\Stagiaire\Bureau\prises.csv', car il est en cours d'utilisation par un autre processus.

Sur quelle ligne tu as cette erreur ?

**drake56** · 08/06/2009, 15h36

Sur celle ci :

Code :

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

File.Delete(filename)

**tomlev** · 08/06/2009, 15h41

Envoyé par ced56

Sur celle ci :

Code :

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

File.Delete(filename)

Bizarre... pourtant l'instruction Using garantit que le fichier sera bien refermé

Il n'y aurait pas un autre endroit dans ton code où tu accèdes à ce fichier ? Ou alors il est pas ouvert dans Excel ?

**drake56** · 08/06/2009, 15h49

Le fichier est bien fermé par contre il est vrai qu'il y a un accès à filename plus haut pour garder seulement les données de la période choisie :

Code :

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

1
2
3
4
5
6
7
8
9
10
            ligne = Lect.ReadLine
            While ligne IsNot Nothing 'tant que je ne suis à la fin on continue
                fields = ligne.Split(delimiter)
                If fields.GetValue(1) = "PRI" And fields.GetValue(0) >= Debut And fields.GetValue(0) <= Fin Then 'si les colonnes n°1 et 2 (index de début = 0) correspondent à ma condition je la stocke" Then
                    JeGArde.AppendLine(ligne)
                    cpt = cpt + 1
                End If
                ligne = Lect.ReadLine 'on passe à la ligne suivante
            End While
        End If

**tomlev** · 08/06/2009, 17h00

Lect est un StreamReader je suppose ? il faut que tu le refermes après usage, sinon le fichier reste bloqué. Le plus simple est d'utiliser un bloc Using comme j'ai fait

**drake56** · 09/06/2009, 08h55

C'est bien un StreamReader pour le fermer, il me suffit d'écrire

Code :

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

Lect.close()

?
Sinon je testerais avec le using

Edit : J'ai testé les 2 maintenant dans mon 1er fichier il ne garde plus que l'entête et dans le nouveau j'ai les données.