Discussion :

[forest.y]

Bonjour,

Je dois modifier en automatique un fichier extension csv avant de l'utiliser sous excel

exemple de fichier "fichier1.csv"
attention le caractère point n'a pas position fixe

123QV45;000.12;51.1
454QV45;000.18;52.001
865QV45;001.22;5.02
254QV45;007.02;000000.2

Je dois remplacer le caractère . par une virgule avant l'ouverture du fichier sous excel

@echo off > fichier2.csv
for /F "delims=" %%A in (fichier1.csv) do (
set var=%%A
set var=%var:.=,%
echo %var% >> fichier2.csv)

merci pour votre aide

[minnesota]

Salut,

Il faut cliquer sur ,
si tu trouves pas, il faut alors cliquer sur
et si tu trouves toujours pas, alors sur il faut alors cliquer sur

[forest.y]

Je te remercie pour les liens mais je les connaissais deja et mon fichier bat
est une compile de ces liens mais il ne marche pas donc je demande de l'aide

[forest.y]

Après plusieurs essais (plusieurs heures)

La partie du programme qui remplace les . par des , fonctionne

Code :

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

1
2
3
set chaine=123QV45;000.12;51.1
set chaine=%chaine:.=,%
echo %chaine% >> fichier2.csv

La partie boucle du programme pour lire toutes les lignes l'une apres l'autre de mon fichier fonctionne

Code :

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

1
2
for /F "delims=" %%A in (fichier1.csv) do (
echo %%A >> fichier2.csv)

Et si je rassemble les deux

Code :

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

1
2
3
4
for /F "delims=" %%A in (fichier1.csv) do (
set chaine=%%A
set chaine=%chaine:.=,%
echo %chaine% >> fichier2.csv)

ÇA NE MARCHE PLUS J'AI UN PROBLÈME AVEC MA VARIABLE CHAINE ET %%A

JE NE COMPREND PLUS RIEN !!!

[minnesota]

JE NE COMPRENT PLUS RIEN HELP HELP !!!!!!

Et pourtant, j'avais anticipé

[forest.y]

Puisqu' on est jamais servi mieux que par soi même
Le batch c'est pas pour moi on passe au VBS et miracle sa marche
la preuve :

Code vb :

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 filesys, text, readfile, contents,createfile 
set filesys = CreateObject("Scripting.FileSystemObject") 
set readfile = filesys.OpenTextFile("c:\test\fichier1.csv", 1, false) 
set writefile = filesys.CreateTextFile("c:\test\fichier2.csv", 2, false) 
 
do while readfile.AtEndOfStream=false 
  contents = readfile.ReadLine 
  contents = replace(contents,".",",")
  writefile.write(contents)
  writefile.write(VbCrLf)
 
loop 
 
readfile.close
writefile.close

Donc merci a moi (je plaisante ) et si quelqu'un a la solution pour mon batch pour ma culture perso

@+