bonjour, je suis débutante et je souhaite rechercher et remplacer
des lignes dans un fichier texte ceci fonctionne pour la premiere ligne
replace (10.10.1.12 ....) mais pas pour la deuxième (10.10.1.13)
Voici mon script :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Fichier2 = "C:\Documents and Settings\TRANCHARD.SIEGE_DEV\Application Data\ICAClient\APPSRV.INI"
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Dim st
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.OpenTextFile(fichier2, ForReading)
st = f.readAll
f.Close
Set f = fso.OpenTextFile(fichier2, ForWriting)
f.Write replace(st,"10.10.1.12","10.1.1.12")
f.Write replace(st,"10.10.1.13","10.1.1.13")
f.close
Merci pour votre aide