Bonjour à tous,
Je dois lire un fichier un fichier XSD avec VB.Net, et j'ai un peu de mal.
Voici le fichier XSD (simplifié, mais suffisant) :
Je voudrais pouvoir récupérer toutes les informations contenues dans ce fichier.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 <?xml version="1.0"?> <xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema"> <xs:group name="TOTO"> <xs:choice> <xs:element name="Personne" type="Personne" /> <xs:element name="Telephone" type="Telephone" /> </xs:choice> </xs:group> <xs:group name="TATA"> <xs:choice> <xs:element name="Abonné" type="Abonné" /> <xs:element name="Communication" type="Communication" /> </xs:choice> </xs:group> </xs:schema>
J'ai trouvé cette page :
http://dotnet.developpez.com/faq/vbn..._readXml_Xpath
Mais quand j'essaye le code suivant :
Ca ne me donne que la première valeur de chaque balise (Personne et Abonné).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Dim iter As XPathNodeIterator = nav.Select("xs:schema/xs:group/xs:choice", mgr) ' Pour chaque choix While iter.MoveNext ' On récupère la ligne qui nous intéresse. Dim lineElement As String = iter.Current.SelectSingleNode("xs:element", mgr).OuterXml() ReDim iBaseXML_Plugin.tabTypEntXSD(0) iBaseXML_Plugin.tabTypEntXSD(0) = get_typ_ent_from_xsd(lineElement) MsgBox("type = " & iBaseXML_Plugin.tabTypEntXSD(0)) End While
Comment puis-je lire toutes les valeurs, et pas uniquement la première ?
Merci d'avance pour votre aide.
Partager