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 :Merci pour votre aide
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
Partager