Discussion :

[Johngtrs]

Bonjour à tous,

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

Code :

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

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 :

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

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 :

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

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

Il y aurait une solution ? Merci d'avance.

John.

[Johngtrs]

J'ai réussi en faisant comme ceci :

Code vbs :

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

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.

[hackoofr]

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

Code :

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

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

[Johngtrs]

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 ^^.