Version imprimable
Bonjour,
Je voudrai pouvoir changer sur un ficher csv les virgules par des points virgules, j'ai trouvé que la fonction replace permet de changer une chaine de caractère par une autre mais je ne sais pas comment comencer le programme ni la syntaxe car je ne connais pas vbscript.
Merci
Dans ce cas là un petit tour sur la :faq: qui expliquera cela mieux que moi.
pour préciser la réponse à Ced ... dans la :faq:
tu as
pour lire ton fichier text :arrow: Comment lire le contenu d'un fichier texte ?
utilise la fonction replace par exemple pour remplacer tes ; ...voir son aide : Où trouver l'aide en ligne pour VBScript ?
écrire ton nouveau fichier :arrow: Comment écrire dans un fichier texte ?
;)
Rebonjour,
voilà j'ai pu écrire ces lignes mais je ne sais si c'est la bonne syntaxe?!
replace_str.vbs [fichier] [str_find] [str_replace]
Sub Replace("D:Export\BW\Réalisé.csv", ",", ";")
End Sub
Dans ce cas là il faudrait préciser également qu'il y trouvera :
Comment écrire un script VBS ?
Le typage des variables.
Et que après avoir lut tout cela, il pourra faire son programme, et retournera sur le forum pour résoudre ses problèmes à l'aide des milliers de poste présent sur le forum (utiliser la fonction rechercher) et à l'aide de :google: .
Et si par infortune il ne trouve pas de solution à ses problèmes, il nous les soumettra via un post et on se fera plaisirs de l'aider. ;)
Oups j'arrive trop tard apparement :)
Heu... Tu as posté tout ton code là ?
bein je ne sais par quoi commencer et ce que je dois ajouter!
As tu été voir la FAQ ?
oui je l'ai lu ;)
Bon voila ce que j'ai résussi à faire:
Code:
2
3
4
5
6
7
tu peu nous préciser ton environnement de développement ...?
c'est quoi Text.SelStart ?
Bonjour tout le monde,
le programe ci dessous remplace des , par des ; sur le fichier "Réalisé.csv". Pour cela il a fallu :
- créer un fichier source et un fichier cible
- transformer chaque ligne du fichier source et l'écrire dans le fichier cible (boucle)
- fermer les fichiers
- renommer le fichier source (ajouter .old à la fin du nom)
- renommer le fichier cible (avec le nom du fichier source)
- effacer le fichier source
Mon souci est au niveau de la boucle qui doit parcourir tout le fichier puis le copier dans un autre fichier File.csv par exemple ainsi que renommer les fichiers.
Si vous pouvez m'aider ? Merci
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Ton problème viens d'une mauvaise compréhension de replace :
Regarde ici.
En plus tu ne sembles pas avoir compris la notion de variable, ou du moins comment afficher son contenu puisque tu ecris File2.writeline ("TEMP_Line"). Ce qui à mon avis donne en résultat un fichier composé de plein de TEMP_Line. Regarde du coté de la FAQ pour les base en VBS.
Ton code devrait être plus comme cela :
Il faut utiliser le bouton # pour les balises de code ;)Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18Dim oFSO Dim File1 Dim File2 Dim TEMP_Line As String Set oFSO = CreateObject("Scripting.FileSystemObject") Set File1 = FSO.OpenTextFile("D:\Export\BW\Réalisé.csv", 1, False) Set File2 = FSO.OpenTextFile("D:\Export\BW\File.csv", 2, True) Do While Not File.AtEndOfStream TEMP_Line = File.ReadLine Replace(TEMP_Line, ",", ";") File2.writeline (TEMP_Line) Loop File1.Close File2.Close Set File1 = fso.GetFile("D:\Export\BW\Réalisé.csv") File1.delete
Salut,
pour faire simple chez microsoft tu vas retrouver l'article "How Can I Convert a Comma-Separated Values File to a Tab-Separated Values File?". Leur exemple propose de remplacer des ";" par des tabulations mais je pense que l'esprit de cet artcile va dans le sens de ta demande :
http://www.microsoft.com/technet/scr...5/hey0406.mspx
et eventuellement "How Can I Create a CSV File?"
http://www.microsoft.com/technet/scr...4/hey1028.mspx
Un peu de reflexion et de concentration et ca devrait répondre à tes attentes....
A++