Discussion :

[TranTNS]

Bonjour,
Je suis débutant en XML.
Mon prog reçoit un fichier dvp.doc ou dvp.text mais son contenu est du XML.
exemple de dvp.text :
<developpez>
<membre
<nom>Cécile Muno</nom>
</membre>
</developpez>

Comment faire pour exploiter ce type de fichier comme XML en VB6?

J'ai changé (rename) par Explorer le préfixe dvp.text en dvp.xml mais lors de Load de ce document, j'ai une "Erreur de lecture du document XML".
Voici la séquence de programation:

' Chargement du document XML
oDvpDOMDocument.async = False ' permet de charger entièrement le document en mémoire avant le traitement
'Load le document
If oDvpDOMDocument.Load(App.Path & "\data\dvp.xml") Then
MsgBox "Document XML correctement chargé"
Else
MsgBox "Erreur de lecture du document XML"
End
End If

merci d'avance

[Damien10]

Moi aussi je commence dans ce domaine.

Voici ce que je fais pour lire un fichier XML, mais je veux bien avoir d'autres exemples :

Dim XMLDoc As MSXML2.DOMDocument

Dim Chp As String

Private Sub Form_Load()

Set oDvpDOMDocument = New DOMDocument

oDvpDOMDocument.async = False

If oDvpDOMDocument.Load(App.Path & "\data\dvp.xml") Then

MsgBox "Document XML correctement chargé"
AddNode oDvpDOMDocument.documentElement

Else

MsgBox "Erreur de lecture du document XML"
End

End If

end sub


Private Sub AddNode(ByRef XML_Node As IXMLDOMNode)

Dim xNodeList As IXMLDOMNodeList
Dim i As Long


If XML_Node.nodeName = "#text" Then


If Chp = "nom" Then
msgbox XML_Node.nodeTypedValue
End If



Else

Chp = UCase(Trim(XML_Node.nodeName))

End If


Set xNodeList = XML_Node.childNodes

For i = 0 To xNodeList.length - 1
AddNode xNodeList.Item(i)
Next

End Sub