Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Vb6 XML lecture et ecriture

3 réponses
Avatar
Alain L.
j'ai un petit probl=E8me en VB 6.0=20
pour lire puis modifier un fichier XML
format=E9 avec des attributs.

<?xml version=3D'1.0' encoding=3D'utf-8' ?>
<jdeRequest pwd=3D'ROBOT' type=3D'ube' user=3D'TOTO'=20
environment=3D'RI7334'>
<ACTION TYPE=3D'LAUNCH_JOB'>
<JOBQUEUE VALUE=3D'QB7334'/>
<REPORT_NAME VALUE=3D'R4981'/>
<REPORT_VERSION VALUE=3D'EXPL10001'/>
...

3 réponses

Avatar
François Picalausa
Bonjour/soir,

Pour lire un tel fichier, utilise, dans les références Microsoft XML.
Toute les indications d'utilisation sont sur la msdn:
http://msdn.microsoft.com/library/en-us/xmlsdk/htm/sdk_intro_6g53.asp

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"Alain L." a écrit dans le message de
news:0b3401c38d76$d11ad5c0$
j'ai un petit problème en VB 6.0
pour lire puis modifier un fichier XML
formaté avec des attributs.

<?xml version='1.0' encoding='utf-8' ?>
<jdeRequest pwd='ROBOT' type='ube' user='TOTO'
environment='RI7334'>
<ACTION TYPE='LAUNCH_JOB'>
<JOBQUEUE VALUE='QB7334'/>
<REPORT_NAME VALUE='R4981'/>
<REPORT_VERSION VALUE='EXPL10001'/>
...


Avatar
François Picalausa
Bonjour/soir,

je n'en suis pas si sûr...
http://msdn.microsoft.com/library/en-us/xmlsdk/htm/xml_obj_ixmldomattribute_34kl.asp
montre comment faire celà.
et on est toujours dans la même rubrique.. cqfd ;-)

Tu as aussi un exemple tout en VB:
http://msdn.microsoft.com/downloads/samples/internet/xml/xmltree/default.asp

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"Alain L" a écrit dans le message de
news:255f301c38daf$2b016210$
le chemin
http://msdn.microsoft.com/library/en-
us/xmlsdk/htm/sdk_intro_6g53.asp

est pour les fichier au format
<TOTO>Le Texte</TOTO>

je ne trouve rien pour
<TOTO ATTRIB1='Le Texte' ATTRIB2='Le Texte 2'/>
(c'est en attibut)


-----Message d'origine-----
Bonjour/soir,

Pour lire un tel fichier, utilise, dans les références Microsoft XML.
Toute les indications d'utilisation sont sur la msdn:
http://msdn.microsoft.com/library/en-


us/xmlsdk/htm/sdk_intro_6g53.asp

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"Alain L." a écrit dans le message de
news:0b3401c38d76$d11ad5c0$
j'ai un petit problème en VB 6.0
pour lire puis modifier un fichier XML
formaté avec des attributs.

<?xml version='1.0' encoding='utf-8' ?>
<jdeRequest pwd='ROBOT' type='ube' user='TOTO'
environment='RI7334'>
<ACTION TYPE='LAUNCH_JOB'>

<REPORT_NAME VALUE='R4981'/>
<REPORT_VERSION VALUE='EXPL10001'/>
...




.




Avatar
BossHog
Bonjour,
d'une je ne voit pas de noeud root dans ton xml mais bon admettons:

1- tu charge ton objet DOM
2 tu le requête


<?xml version='1.0' encoding='utf-8' ?>
<root>
<jdeRequest pwd='ROBOT' type='ube' user='TOTO' environment='RI7334'>
<ACTION TYPE='LAUNCH_JOB'>
<REPORT_NAME VALUE='R4981'/>
<REPORT_VERSION VALUE='EXPL10001'/>
</root>

Set MyObjXML = CreateObject("MSXML2.DOMDOCUMENT.4.0")
MyObjXML.validateOnParse = False
MyObjXML.async = False

Dim MyNode, ActionValue
Set MyNode = MyObjXML.selectNodes("root/ACTION")
'Recup de la valeur de l'attribut TYPE du noeud ACTION
ActionValue = MyNode.attributes.getNamedItem("TYPE ").nodeValue

Set MyNode = Nothing
Set MyObjXML = Nothing
' Ouala c'est tout, si j'ai bien compris ta demande

Pour info je cherche de la doc sur les classes imbriquée ou sous-classée en
VB6
si tu connais..... dit moi
merci
@+
Boss Hog


"François Picalausa" wrote in message
news:#
Bonjour/soir,

je n'en suis pas si sûr...



http://msdn.microsoft.com/library/en-us/xmlsdk/htm/xml_obj_ixmldomattribute_
34kl.asp
montre comment faire celà.
et on est toujours dans la même rubrique.. cqfd ;-)

Tu as aussi un exemple tout en VB:



http://msdn.microsoft.com/downloads/samples/internet/xml/xmltree/default.asp

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"Alain L" a écrit dans le message de
news:255f301c38daf$2b016210$
> le chemin
> http://msdn.microsoft.com/library/en-
> us/xmlsdk/htm/sdk_intro_6g53.asp
>
> est pour les fichier au format
> <TOTO>Le Texte</TOTO>
>
> je ne trouve rien pour
> <TOTO ATTRIB1='Le Texte' ATTRIB2='Le Texte 2'/>
> (c'est en attibut)
>
>
>> -----Message d'origine-----
>> Bonjour/soir,
>>
>> Pour lire un tel fichier, utilise, dans les références Microsoft XML.
>> Toute les indications d'utilisation sont sur la msdn:
>> http://msdn.microsoft.com/library/en-
> us/xmlsdk/htm/sdk_intro_6g53.asp
>>
>> --
>> François Picalausa (MVP VB)
>> FAQ VB : http://faq.vb.free.fr
>> MSDN : http://msdn.microsoft.com
>>
>>
>> "Alain L." a écrit dans le message de
>> news:0b3401c38d76$d11ad5c0$
>>> j'ai un petit problème en VB 6.0
>>> pour lire puis modifier un fichier XML
>>> formaté avec des attributs.
>>>
>>> <?xml version='1.0' encoding='utf-8' ?>
>>> <jdeRequest pwd='ROBOT' type='ube' user='TOTO'
>>> environment='RI7334'>
>>> <ACTION TYPE='LAUNCH_JOB'>
>>>
>>> <REPORT_NAME VALUE='R4981'/>
>>> <REPORT_VERSION VALUE='EXPL10001'/>
>>> ...
>>
>>
>> .