Discussion :

[magalou68]

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

[SfJ5Rpw8]

bonsoir,

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

Code :

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

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 :

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

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

et ici :

Code :

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

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 :

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

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

[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

[SfJ5Rpw8]

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 :

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

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")
....

[magalou68]

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

[SfJ5Rpw8]

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

bien sur que cela fonctionne !!