J'ai 1 fichier XML à lire avec des balises identiques par leur nom - voir des hiérarchies de balises complètement identiques - avec
pour seule différence le libellé dans la propriété LABEL.
Exemple de balises <toto> :
<toto label="titi">données</>
<toto label="tutu">données</>
J'ai donc des problèmes de confusion de balises (ou redondance) à partir du moment où je capture les balises et leurs valeurs par
leur Nom et pas par une propriété LABEL quelconque.
Existe-t-il - en dehors des outils d'analyse XML fournis par exemple avec l'éditeur UltraEdit - un moyen de lire le nom d'une balise
et son label afin d'avoir l'information complète.
Merci d'avance pour vos suggestions.
(question posée sur un forum vb restée sans réponse)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gilles LAURENT [MVP]
" teddy" a écrit dans le message de news: | Bonjour à tous,
Bonjour,
[...] | Existe-t-il - en dehors des outils d'analyse XML fournis par exemple | avec l'éditeur UltraEdit - un moyen de lire le nom d'une balise et | son label afin d'avoir l'information complète.
Function GetElementByLabel(strFile, strTag, strLabel, strValue) Set oXml=CreateObject("Microsoft.XMLDom") oXml.Load strFile Set colTags=oXml.GetElementsByTagName(strTag) For Each oTag In colTags Set colAttr=oTag.Attributes For Each oAttr In colAttr If oAttr.Name=strLabel And oAttr.Value=strValue Then Set GetElementByLabel=oTag End If Next Next End Function --- Coupez ici : getElementByLabel.vbs ---
-- Gilles LAURENT MVP Windows Server - Admin Frameworks http://glsft.free.fr
" teddy" <teddy@wanadoo.fr> a écrit dans le message de
news:OV60uQU4IHA.2064@TK2MSFTNGP02.phx.gbl
| Bonjour à tous,
Bonjour,
[...]
| Existe-t-il - en dehors des outils d'analyse XML fournis par exemple
| avec l'éditeur UltraEdit - un moyen de lire le nom d'une balise et
| son label afin d'avoir l'information complète.
Function GetElementByLabel(strFile, strTag, strLabel, strValue)
Set oXml=CreateObject("Microsoft.XMLDom")
oXml.Load strFile
Set colTags=oXml.GetElementsByTagName(strTag)
For Each oTag In colTags
Set colAttr=oTag.Attributes
For Each oAttr In colAttr
If oAttr.Name=strLabel And oAttr.Value=strValue Then
Set GetElementByLabel=oTag
End If
Next
Next
End Function
--- Coupez ici : getElementByLabel.vbs ---
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
" teddy" a écrit dans le message de news: | Bonjour à tous,
Bonjour,
[...] | Existe-t-il - en dehors des outils d'analyse XML fournis par exemple | avec l'éditeur UltraEdit - un moyen de lire le nom d'une balise et | son label afin d'avoir l'information complète.
Function GetElementByLabel(strFile, strTag, strLabel, strValue) Set oXml=CreateObject("Microsoft.XMLDom") oXml.Load strFile Set colTags=oXml.GetElementsByTagName(strTag) For Each oTag In colTags Set colAttr=oTag.Attributes For Each oAttr In colAttr If oAttr.Name=strLabel And oAttr.Value=strValue Then Set GetElementByLabel=oTag End If Next Next End Function --- Coupez ici : getElementByLabel.vbs ---
-- Gilles LAURENT MVP Windows Server - Admin Frameworks http://glsft.free.fr
teddy
Tag, Label, Value, Data : voilà beaucoup de données disséminées à regrouper pour écrire ces données dans une structure de table SQL.. Merci beaucoup pour ces précisions. Teddy
"Gilles LAURENT [MVP]" a écrit dans le message de news:
" teddy" a écrit dans le message de news: | Bonjour à tous,
Bonjour,
[...] | Existe-t-il - en dehors des outils d'analyse XML fournis par exemple | avec l'éditeur UltraEdit - un moyen de lire le nom d'une balise et | son label afin d'avoir l'information complète.
Function GetElementByLabel(strFile, strTag, strLabel, strValue) Set oXml=CreateObject("Microsoft.XMLDom") oXml.Load strFile Set colTags=oXml.GetElementsByTagName(strTag) For Each oTag In colTags Set colAttr=oTag.Attributes For Each oAttr In colAttr If oAttr.Name=strLabel And oAttr.Value=strValue Then Set GetElementByLabel=oTag End If Next Next End Function --- Coupez ici : getElementByLabel.vbs ---
-- Gilles LAURENT MVP Windows Server - Admin Frameworks http://glsft.free.fr
Tag, Label, Value, Data : voilà beaucoup de données disséminées à regrouper
pour écrire ces données dans une structure de table SQL..
Merci beaucoup pour ces précisions.
Teddy
"Gilles LAURENT [MVP]" <glsft@free.fr> a écrit dans le message de news:
e4ZmGHn4IHA.1200@TK2MSFTNGP04.phx.gbl...
" teddy" <teddy@wanadoo.fr> a écrit dans le message de
news:OV60uQU4IHA.2064@TK2MSFTNGP02.phx.gbl
| Bonjour à tous,
Bonjour,
[...]
| Existe-t-il - en dehors des outils d'analyse XML fournis par exemple
| avec l'éditeur UltraEdit - un moyen de lire le nom d'une balise et
| son label afin d'avoir l'information complète.
Function GetElementByLabel(strFile, strTag, strLabel, strValue)
Set oXml=CreateObject("Microsoft.XMLDom")
oXml.Load strFile
Set colTags=oXml.GetElementsByTagName(strTag)
For Each oTag In colTags
Set colAttr=oTag.Attributes
For Each oAttr In colAttr
If oAttr.Name=strLabel And oAttr.Value=strValue Then
Set GetElementByLabel=oTag
End If
Next
Next
End Function
--- Coupez ici : getElementByLabel.vbs ---
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
Tag, Label, Value, Data : voilà beaucoup de données disséminées à regrouper pour écrire ces données dans une structure de table SQL.. Merci beaucoup pour ces précisions. Teddy
"Gilles LAURENT [MVP]" a écrit dans le message de news:
" teddy" a écrit dans le message de news: | Bonjour à tous,
Bonjour,
[...] | Existe-t-il - en dehors des outils d'analyse XML fournis par exemple | avec l'éditeur UltraEdit - un moyen de lire le nom d'une balise et | son label afin d'avoir l'information complète.
Function GetElementByLabel(strFile, strTag, strLabel, strValue) Set oXml=CreateObject("Microsoft.XMLDom") oXml.Load strFile Set colTags=oXml.GetElementsByTagName(strTag) For Each oTag In colTags Set colAttr=oTag.Attributes For Each oAttr In colAttr If oAttr.Name=strLabel And oAttr.Value=strValue Then Set GetElementByLabel=oTag End If Next Next End Function --- Coupez ici : getElementByLabel.vbs ---
-- Gilles LAURENT MVP Windows Server - Admin Frameworks http://glsft.free.fr