Dans le but de modifier un fichier XML je procède ainsi:
Ouverture+lecture lignes+condition de valeur...ecrire texte.
voici un bout de code de ce que je chreche à faire pour l'instant j'ai utilisé la méthode OpenTextFile peut être il ya mieux??!!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim objFichier,MyFile 
Set objFichier=createObject("Scripting.FileSystemObject") 
Const ForReading=1,ForWriting =2,ForAppending=8 
Set MyFile= objFichier.OpenTextFile("servers.xml",ForReading,True) 
dim ligne 
Do While Not MyFile.AtEndOfStream 
ligne=MyFile.Readline 
if (MyFile.Readline="Data")then 
MsgBox "ceci est un succes de recherche" 
end if 
 
wscript.echo ligne 
Loop 
MyFile.Close 
 
wscript.quit 0
le problème est au niveau de la condition if .Quelqu'un peut-il m'aider sur la syntax???


Merci de votre aide.