Discussion :

[Johngtrs]

Bonjour,

J'aimerais savoir comment faire pour modifier les lignes que j'ai dans mon fichier texte.

J'ai 22 000 lignes comme ceci :

Code :

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

1
2
3
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

Et j'aimerais remplacer le début des chemins de fichier par :

Code :

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

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

C'est possible ? Il faut aussi remplacer les back slash par les slash. Merci d'avance.

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