[VBS] Ecrire ds un fichier XML
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:
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.
