Discussion :

[damd2viz]

Bonjour,

Je ne parviens pas à trouver dans le forum un cas à adapter à ma problématique.

J'ai une centaines de fichiers .csv que je dois modifier avant de livrer.
Ces modifications sont classiques (renommage, horodatage ...), mais celle qui me pose problème consiste à ajouter, pour chacun de ces fichiers, une ligne d'entête.

Je souhaite donc réécrire chaque fichiers les uns après les autres en ajoutant en 1ère ligne une entête contenant des champs et un séparateur ; (avec un retour à la ligne)

exemple d'entête :
NOM;PRENOM;DEVICE;OS

Si vous avez un exemple que je puisse adapter...

merci

[sachadee]

salut,

Dans ton cas tu dois passer par un fichier temporaire ou l'on va écrire ton entête et ensuite faire un type du 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
21
:::Par SachaDee
:::www.bbat.forumeiros.com

@echo off

::::On récupère les fichiers Csv dans le repertoire courant
 
for /f "delims=" %%a in ('dir *.csv /aa /b') do (echo TRAITEMENT DE : %%a

::::on écrit ton entête dans le temporaire

                                    echo nom;date;xxx>tmp.tmp

::::On écrit fichier Csv à la suite de ton entête

                                    type "%%a">>tmp.tmp

::::on renomme le temporaire avec le nom original du Csv
                                    move tmp.tmp "%%a"
                                    pause)

Voilà

Amicalement

[hackoofr]

Voici une autre solution en Vbscript

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
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
Dim CheminDossier,AjoutText,Ext,Titre
CheminDossier = "C:\Test"
AjoutText = "NOM;PRENOM;DEVICE;OS"
Ext = "csv"
Titre = "Ajout d'entete dans les fichiers de type " & Ext

AjoutEntete CheminDossier,AjoutText,Ext

Sub AjoutEntete(CheminDossier,AjoutText,Ext)  
    dim fso,f,f1,fc,LireTout,vbscopy,ap,bname
    Set fso = CreateObject("Scripting.FileSystemObject")
    set f = fso.GetFolder(CheminDossier)
    set fc = f.Files
    for each f1 in fc
        set LireTout=fso.OpenTextFile(f1.path,1)
        On Error Resume Next
        vbscopy=LireTout.ReadAll
        If Err <> 0 Then MsgBox "Vérifier s'il y a un fichier qui est vide !",16,"Vérifier s'il y a un fichier qui est vide !"
        Err.Clear
        Ext=fso.GetExtensionName(f1.path)
        Ext=lcase(Ext)
        set ap=fso.OpenTextFile(f1.path,2,true)
        ap.writeLine AjoutText & VbNewLine
        ap.writeLine vbscopy
        ap.close
        bname=fso.GetBaseName(f1.path)
        set cop=fso.GetFile(f1.path)
        cop.copy(CheminDossier&"\"&bname&".csv")
    Next  
    MsgBox "L'ajout de l'entete dans les fichiers de type " & Ext & " est Terminé avec Succès !",64,Titre    
End Sub