Discussion :

[TEXMEX]

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.

[SilkyRoad]

bonsoir

ce n'est pas du VBS mais tu pourras peut etre adapter la procédure dans ce lien

http://www.developpez.net/forums/vie...ght=parsenodes



bonne soiree
michel