Balise XML présente ou nonRésolu

Question

Bonjour,
mon problème est que je dois gèrer plusieurs versions de fichier XML.
Les dernières versions ont une balise que les ancienne n'ont pas.
POur èviter tout problème lors de la lecture des ancienne sverions il faut donc que je gère le fait qu'elles n'aient pas cette balise.
J'aimerais donc créer une fonction qu test ou non l'existence de la balis.
Voila où j'en suis dajns le code, il me manque le test pour savoir si la balise existe ou pas.

Function VerifierXML(parser As DOMdocument, balise1 As String, balise2 As String, valeurDefaut As String) As String

    If (parser.documentElement.selectSingleNode("InfoEtude").selectSingleNode("EtudeRefClient") ??EXISTE??) Then
    VerifierXML = parser.documentElement.selectSingleNode("InfoEtude").selectSingleNode("EtudeRefClient").Text
    Else
    VerifierXML = valeurDefaut 
End Function

Merci de votre aide.

Renfield · Accepted Answer

selectSingleNode renvoie un objet Node

si selectSingleNode renvoie Nothing (l'objet "vide").... c'est bon...

Function VerifierXML(parser As DOMdocument, balise1 As String, balise2 As String, valeurDefaut As String) As String
Dim oNode As XmlNode ' type a adapter)
     Set oNode =parser.documentElement.selectSingleNode("InfoEtude").selectSingleNode("EtudeRefClient") 
    If Nothing Is oNode Then
            VerifierXML = valeurDefaut 
    Else
        VerifierXML = oNode.Text
    End If
End Function

charly2812 · Answer

Merci beaucoup ca me va nickel!!!!

Balise XML présente ou non

2 réponses

Votre réponse

Discussions similaires