recherche et remplace dans un fichier

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:

---

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

bonsoir,

est-tu sure de ton diagnostics... l'examen de ton code semble dire autre chose ici

Code:

---

st = f.readAll

---

tu lit le contenu de ton premier fichier

et en suite tout en effectuant ton remplacement tu écris le contenu complet de ton fichier par deux fois ici :

Code:

---

f.Write replace(st,"10.10.1.12","10.1.1.12")

---

et ici :

Code:

---

f.Write replace(st,"10.10.1.13","10.1.1.13")

---

...

si tu ne veux écrire le contenu de ton fichier qu'une seule fois tu peu soit passer par une variable intermédiaire soit cumuler les deux remplacement sur la même ligne :

Code:

---

f.Write replace(replace(st,"10.10.1.13","10.1.1.13"),"10.10.1.12","10.1.1.12")

---

merci pour votre réponse
puis je de cette facon en cumuler plusieurs ?
du style :
f.Write replace(replace(replace(st,"10.10.1.13","10.1.1.13"),"10.10.1.12","10.1.1.12", "10.10.1.17","10.1.1.17"))

merci beaucoup

Citation:

---

Envoyé par magalou68

merci pour votre réponse
puis je de cette facon en cumuler plusieurs ?
du style :
f.Write replace(replace(replace(st,"10.10.1.13","10.1.1.13"),"10.10.1.12","10.1.1.12", "10.10.1.17","10.1.1.17"))

merci beaucoup

---

oui, sauf que dans ton exemple dans ton cas les parenthèses ne sont pas bien placées..
C'est peu-être plus simple a comprendre en passant par une variable intermédiaire ...

Code:

---

1 2 3 4

st=replace(st,"10.10.1.13","10.1.1.13") st=replace(st,"10.10.1.12","10.1.1.12") st=replace(st,"10.10.1.17","10.1.1.17") ....

---

merci
mais j'avais deja essayé avec plusieurs variables mais ceci ne fonctionne pas
ou dois placer mes parentheses ? dans le cas
f.Write replace(replace(replace(st,"10.10.1.13","10.1.1.13"),"10.10.1.12","10.1.1.12", "10.10.1.17","10.1.1.17"))

merci encore
une débutante

Citation:

---

Envoyé par magalou68

merci
mais j'avais deja essayé avec plusieurs variables mais ceci ne fonctionne pas
...

---

bien sur que cela fonctionne !!