Remplacer caractères d'un fichier texte.

Version imprimable

Bonjour !

Alors je cherche à faire un script qui me permet de rechercher dans chaque fichier texte (playlist .m3u en fait...), contenu dans le dossier où j'exécute le script, le mot '\MUSIC\" et de le remplacer par "MUSIC\". C'est Le premier "\" qui m'embête et que je veux supprimer.

Exemple :

Citation:

#EXTM3U
\MUSIC\Maxime Dangles\MUSIC 2009\Strawberry.mp3
\MUSIC\Richard Wagner\Classique\La Chevauchée des Walkyries.mp3

Doit devenir :

Citation:

#EXTM3U
MUSIC\Maxime Dangles\MUSIC 2009\Strawberry.mp3
MUSIC\Richard Wagner\Classique\La Chevauchée des Walkyries.mp3

Donc le premier "\" doit disparaître.

J'ai essayer ça mais c'est pas concluant...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Dim oFSO,oFl Dim chemin Dim AN Dim UTF Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const ModeAscii = 0, ModeUnicode = -1 Dim texte chemin = "I:\" Set oFSO = CreateObject("Scripting.FileSystemObject") If oFSO.FolderExists(chemin) Then For each oFl in oFSO.GetFolder(chemin).Files if Right(oFl.Name,3)="m3u" Then Replace("\MUSIC\","\MUSIC\","MUSIC\") End If Next End If Wscript.echo "Finish !"
Merci pour votre aide ! :)

salut,

ta ligne "Replace..." est erronée ... la fonction replace permet de remplacer une suite de caractére par une autre dans une chaine .

tu dois donc tout d'abords :

Lire le fichier à traiter : :faq: Comment lire le contenu d'un fichier texte ?
Utiliser la fonction replace pour effectuer les modification dans la variable chaine voir un exemple d'utilisation de replace :Comment interpréter une chaîne string ?
Écrire la chaîne modifié dans le fichier initial : Comment écrire dans un fichier texte ?

Avant cela tu peu tester ta boucle, voir si elle parcours bien tous les fichiers à modifier : en modifiant ta ligne replace :

Code:

wscript.echo oFl.Name

Tu peu aussi créer une fonction qui prends en paramètre le nom du fichier à traiter et effectue le remplacement, ainsi avant de lancer ton script sur tous tes fichiers tu pourra tester ta modification sur un seul fichier :
Code:

1 2 3 4 5 6 7 8 sub Traitefichier ( stFichier ) 'Rajouter ici la lecture du fichier dont le nom est mémorisé par la variable stFichier , et stocke le résultat dans une variable (stContenu par exemple) ' ici le replace... stContenu = replace(stContenu ,"\MUSIC\","MUSIC\") ) 'Rajoute ici l'écriture de stContenu dans le fichier existant. end sub
tu pourra donc tester ta procédure par une ligne de code

Code:

traitefichier "MonFichier.mu3"

puis si OK placer cela dans ta boucle

Code:

traitefichier oFl.Name

29/10/2009, 18h06
Ultradoux

Merci pour ta réponse mais en fait mon script je le comprend pas moi même, c'est des copier coller de code que j'ai pris sur le site en les assemblant sauvagement en espérant que ça marche. Désolé mais c'est vraiment pas accessible pour un débutant.

J'ai bien lu la FAQ mais j'y comprend rien...

Citation:

Dim stRep 'Nom du répertoire à parcourir
Dim oFSO,oFl
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\Tmp"
If oFSO.FolderExists(stRep) Then
For each oFl in oFSO.GetFolder(stRep).Files
Wscript.Echo oFl.Name
Next
End If

C'est quoi oFl ? et .Name..? :roll:

Pfff, j'me prend la tête depuis ce matin juste pour enlever un p***** de caractère automatiquement en début de ligne. Ça doit pourtant pas être bien compliqué !!!

Fiouuuu ! J'ai réussi !!! :mouarf:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Const ForReading = 1, ForWriting = 2 
Dim oFSO,oFl 'Cherche pas c'est comme ça...
Dim f 'file
Dim playlist 'variable temporaire qui va recevoir le contenu du m3u
Dim chemin 'chemin à mettre pour qu'il prenne tous les fichier du dossier à GetFolder
Dim CONVERTER
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
CONVERTER = "CONVERTER.VBS"                             'Pour que le chemin ne pose pas de problème. La lettre du lecteur ne fera plus chier !!
Set CONVERTER = oFSO.GetFile(CONVERTER)
chemin = CONVERTER.ParentFolder
 
For each oFl in oFSO.GetFolder(chemin).Files
	if Right(oFl.Name,3)="m3u" Then
		Set f = oFso.OpenTextFile(oFl.Name, ForReading)
		while Not f.AtEndOfStream 
		playlist = f.ReadAll
		wend
		playlist = Replace (playlist, "\Music\", "Music\")
		Set f = oFso.OpenTextFile(oFl.Name, ForWriting)
		f.write playlist
	End if
Next