Supprimer une ligne d'un fichier csv [Résolu]

Messages postés
21
Date d'inscription
jeudi 12 mai 2011
Dernière intervention
9 juin 2011
- - Dernière réponse : Benjyii
Messages postés
21
Date d'inscription
jeudi 12 mai 2011
Dernière intervention
9 juin 2011
- 26 mai 2011 à 17:18
Bonjour,

J'ai un fichier csv et je cherche en VBScript a supprimer la première ligne...

quelqu'un peut il m'aider ? Merci
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
49
Date d'inscription
mardi 29 avril 2003
Dernière intervention
22 mai 2012
1
Merci
Bonjour,

Voici un bout de code rapide.
Il lit le fichier csv en entree et ecrit un fichier en sortie sans la première ligne.

Dim objFileSystem
Dim objFichierSortie
Dim objFichierEntree

Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set objFichierSortie = objFileSystem.CreateTextFile("c:\Temp\Temp.txt")
Set objFichierEntree = objFileSystem.OpenTextFile("c:\Temp\TestCSV.csv")

' Lecture de la première ligne d'entete.
Ligne = objFichierEntree.ReadLine
Do While Not objFichierEntree.AtEndOfStream
Ligne = objFichierEntree.ReadLine
objFichierSortie.WriteLine(Ligne)
Loop
objFichierSortie.Close
objFichierEntree.close
objFileSystem.DeleteFile "c:\Temp\TestCSV.csv"
objFileSystem.CopyFile "c:\Temp\Temp.txt", "c:\Temp\TestCSV.csv"
objFileSystem.DeleteFile "c:\Temp\Temp.txt"


En espérant que ca réponde à ton besoin.
A+
Sbt

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 104 internautes ce mois-ci

Commenter la réponse de cs_Sbt
Messages postés
21
Date d'inscription
jeudi 12 mai 2011
Dernière intervention
9 juin 2011
0
Merci
Merci ça marche :)
Commenter la réponse de Benjyii

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.