Discussion :

[Joseldsm]

Bonjour à toutes et à tous !

Je souhaiterais modifier un fichier CSV, que j'ai créé auparavant avec Excel.
Je voudrais le modifier pour rajouter un ";" à la fin de la première ligne.

Pour se faire, après quelques recherches, j'ai ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Dim FichierCSV As Object
Dim text As String
 
FichierCSV = CreateObject("FileSystemObject")
FichierCSV.Open(chemin & NomFichier2 & ".csv", True)
text = v & ";" & NomNomenclature & ";"
FichierCSV.WriteLine(text)
FichierCSV.Save()
FichierCSV.Close()

Cependant, il doit y avoir une (ou plusieurs erreurs), car la lecture du code n'abouti pas; la ligne "FichierCSV.Open(chemin & NomFichier2 & ".csv", True)" semble contenir une erreur.

Merci pour votre aide !

[myNameIsFlo]

Bonjour,

je pense que le lien ci-dessous peu t'apporter une réponse.

http://www.dotnetperls.com/streamreader-vbnet

[Joseldsm]

Merci pour ton aide !

En effet j'arrive à accéder à mon fichier CSV.
Cependant, il me reste un soucis.

Voici mon code :

Code :

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

1
2
3
4
5
        Using FichierCSV As StreamWriter = New StreamWriter(chemin & NomFichier2 & ".csv")
            Text = v & ";" & NomNomenclature & ";"
            FichierCSV.WriteLine(Text)
            FichierCSV.Close()
        End Using

Je souhaite juste modifier la premier ligne de mon fichier CSV.
L'instruction "FichierCSV.WriteLine(Text)", ça marque bien mon texte sur la première ligne.

Cependant, le fait de faire un "New StreamWriter" écrase mon ancien fichier. Du coup j'ai bien ma première ligne comme je veux, mais le reste est supprimé.
Si j'utilise StreamReader, ça n'écrase pas mon fichier, mais je ne peux pas y accéder en écriture :/

[charouel]

Tu fait un StreamReader au début et tu récupéré le contenu de ton fihier et tu le met dans un string;
Apres tu fait un StreamWriter = ta-nouvelle_ligne + string de StreamReader

[Joseldsm]

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
        Using FichierCSV0 As StreamReader = New StreamReader(chemin & NomFichier2 & "0" & ".csv")
            Dim line As String
            line = FichierCSV0.ReadLine
 
            Using FichierCSV As StreamWriter = New StreamWriter(chemin & NomFichier2 & ".csv")
                Text = "FAB_" & CB & "-" & NomCodeCVS & ";" & NomNomenclatureCVS & ";"
                FichierCSV.WriteLine(Text)
 
                Do While (Not line Is Nothing)
                    Contenu.Add(line)
                    Console.WriteLine(line)
                    line = FichierCSV0.ReadLine
                    FichierCSV.WriteLine(line)
                Loop
 
                FichierCSV.Close()
            End Using
        End Using

Ca marche impeccable
Ca me parait un peu complexe pour faire quelque chose d'aussi simple, mais je m'en contenterais pour le moment.

Merci beaucoup !