Discussion :

[Bujkilla05]

Bonjour
je converti mon fichier xls en csv dans une application Windev avec le code ci-dessous
le format est bon mais les séparateurs sont des points virgules comment les transformer en virgule ????????

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
xl est un objet OLE dynamique = ObjetActif("Excel.Application")
fichierXLS est une chaîne
fichierXLS = "c:\MonFichier.xls "
SI xl=Null ALORS xl=allouer un objet OLE "Excel.Application"
xl>>Visible=Faux // Excel n'apparait pas à l'écran
xl>>displayAlerts=False
xl>>WorkBooks>>Open(fichierXLS )
fichierXLS=ExtraitChaîne((fichierXLS),1,".xls")+ ".xlcsv"
xl>>DisplayAlerts = True
xl>>ActiveWorkBook>>saveAs( fichierXLS,6)
xl>>ActiveWorkBook>>Close(Faux)
xl>>Quit()
libérer xl

j'ai cherché mais Je n'ai pas trouvé de réponse a mon problème un petit coup de main me serais bien utile
merci

[Voroltinquo]

Bonjour,
Une solution serait de lire ton fichier csv via les fonctions fChargeTexte, de remplacer les ";" par des "," et de sauvegarder de résultat via fSauveTexte.

[Bujkilla05]

merci pour votre réponse
j'ai rajouté le code ci-dessous cela fonctionne correctement

Code :

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

1
2
3
sChaineTemp est une chaîne = fChargeTexte("C:\fichier.csv")
sChaineTemp = Remplace(sChaineTemp,ChaineARemplacer,ChampDeRemplacement)
fSauveTexte("C:\fichier.csv",sChaineTemp)