Recuperation nom fichier et localtion

Bonjour à tous,

J'ai fais une commande qui me permet de récupérer l'emplacement d'un fichier :

Code:

---

dir *.gp* /s /b > toto.txt

---

gp* est une extension guitare pro où * peut prendre les valeurs gp3 gp4 gp5, bref.

ça me donne 22 000 lignes dans une fichier texte de ce type là :

Code:

---

1 2 3 4

C:\Program Files (x86)\EasyPHP-5.3.9\www\domaine\Tablatures\Cradle Of Filth - Hallowed Be Thy Name.gp3 C:\Program Files (x86)\EasyPHP-5.3.9\www\domaine\Tablatures\Guitar Pro Tabs - My Songbook\C\Children Of Bodom - Black Widow.gp3 C:\Program Files (x86)\EasyPHP-5.3.9\www\domaine\Tablatures\tablatures\Dream Theater\Dream Theater - Another Day.gp3

---

Mais j'aimerais changer le début du lien sur toutes les lignes et mettre des slash à la place des back slash, pour que ça donne cela

Code:

---

1 2	http://localhost/domaine/Tablatures/Cradle Of Filth - Hallowed Be Thy Name.gp3

---

Il y aurait une solution ? Merci d'avance.

John.

J'ai réussi en faisant comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Const ForReading = 1 Const ForWriting = 2 Set objFSO = CreateObject("Scripting.FileSystemObject" ) Set objFile = objFSO.OpenTextFile("C:\Scripts\tabfic.txt", ForReading) strText = objFile.ReadAll objFile.Close strNewText = Replace(strText, "\", "/") Set objFile = objFSO.OpenTextFile("C:\Scripts\tabfic.txt", ForWriting) objFile.WriteLine strNewText objFile.Close

---

Grâce à la fonction replace, on peut remplacer ce que l'on veut. 2eme paramètre l'endroit à modifier, 3eme paramètre, par quoi on veut remplacer.

:salut:
Je crois aussi il vous manque un 2ème remplacement non :koi:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Const ForReading = 1 Const ForWriting = 2 Set objFSO = CreateObject("Scripting.FileSystemObject" ) Set objFile = objFSO.OpenTextFile("gp.txt", ForReading) strText = objFile.ReadAll objFile.Close strNewText = Replace(strText, "C:\Program Files (x86)\EasyPHP-5.3.9\www", "http://localhost") Set objFile = objFSO.OpenTextFile("gp1.txt", ForWriting,True) objFile.WriteLine strNewText objFile.Close Set objFile = objFSO.OpenTextFile("gp1.txt", ForReading) strText = objFile.ReadAll objFile.Close Set objFile = objFSO.OpenTextFile("gp2.txt", ForWriting,True) strNewText2 = Replace(strText, "\", "/") objFile.WriteLine strNewText2 objFile.Close

---

Non, en fait j l'ai fais en 2 fois ^^, j'ai juste changer les paramètres, une fois pour les / et une fois pour l'emplacement.

Merci quand même ^^.