Bonjour,
Je mets ici en ligne un code que j'avais réalisé avec un de mes contacts MSN et amis, il y a quelques temps, afin qu'il puisse mieux apréhender l'utilisation du DOM, et comprendre un peu mieux l'XML
bien sur, rien de révolutionnaire ici, mais je pense que ça pourrais en aider quelques uns...
il s'agit simplement d'afficher dans une zone de liste le RSS des dernières sources déposées sur VbFrance, et e pouvoir filtrer l'affichage, en recherchant une chaine dans la description des sources...
Source / Exemple :
'# Une fonction qui pourrait être utile... (A ADAPTER)
'# Cette fonction nous permet de récupérer le texte d'un noeud, sans générer d'erreur...
'# On utilise pour cela, un noeud racine (optionnelle)
'# Et une requète XPATH
Private Function GetNodeText(ByRef vsQuery As String, Optional ByRef voRoot As IXMLDOMNode) As String
Dim oRoot As IXMLDOMNode
Dim oNode As IXMLDOMNode
If voRoot Is Nothing Then
'# Si on ne fournis pas de racine, le point de départ (noeud parent) du noeud recherché
'# est tout simplement le document, le tout premier noeud : 'rss'
Set oRoot = moDOM
Else
'# Sinon, on prend bien évidemment le noeud fournis en parametre
Set oRoot = voRoot
End If
'# Ici, on appelle la méthode de notre objet Node, qui permet d'extraire un autre noeud.
Set oNode = oRoot.selectSingleNode(vsQuery)
'# Si l'extraction a été fructueuse,
If Not oNode Is Nothing Then
'# On renvoie le texte de l'element
GetNodeText = oNode.Text
End If
End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.