Probleme lors d'une lecture de fichier XML VB2010

Version imprimable

Bonjour a tous,
Voila, j'ai un fichier xml de cette forme :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<Application>
    <Entry>Mahjong</Entry>
    <Name>
        <English>JungleBoy</English>
        <eng-GB>JungleBoy</eng-GB>
    </Name>
    <Vendor />
    <Description />
    <Icons>
        <MainMenu>
            <Type1>hkmj_512_V04_b(90).png</Type1>
            <Type2 />
        </MainMenu>
        <Setting />
        <Ticker />
        <QuickPanel />
        <LaunchImage>
            480x800_Splash_bada[1].png
            <Type1>480x800_Splash_bada[1].png</Type1>
            <Type2 />
        </LaunchImage>
    </Icons>
    <AutoScaling>
        <Enabled>true</Enabled>
        <BaseResolution>480x800</BaseResolution>
    </AutoScaling>
</Application>

Et je souhaite donc récupérer la valeur "hkmj_512_V04_b(90).png" qui est donc dans la balise Type1.
Pour cela j'utilise ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim XmlDoc As XmlDocument = New XmlDocument()
Dim x As Integer = 0
 Dim element As XmlNodeList
  Dim noeud, noeudEnf, noeudenfenf As XmlNode
        XmlDoc.Load(TxtBoxSpo.Text & "\Info\application.xml")
        element = XmlDoc.DocumentElement.GetElementsByTagName("Icons")
        For Each noeud In element
 
            For Each noeudEnf In noeud.ChildNodes
                If noeudEnf.LocalName = "MainMenu" Then
		 For Each noeudenfenf In noeudEnf.ChildNodes
                      	  If (noeudenfenf.LocalName = "Type1") And x = 0 Then
                           	 MsgBox(noeudenfenf.InnerText)
 
                            x = 1
 
                        End If
 Next
End If
            Next
        Next

Le problème est que le fichier xml est parfois différent et dans certain cas, il n'y a pas la balise "Type1" et la valeur que je recherche est directement dans la balise "MainMenu" et dans ce cas la mon code ne marche pas.
Je pensais peut être a vérifier la présence de la balise "Type1" mais comment faire ?
Merci d'avance pour vos réponses. @+

Ce serait nettement plus facile avec la sérialisation XML, ou avec Linq to XML
Code:

1 2 Dim doc As XDocument = XDocument.Load(xmlFilePath) Dim iconPath As String = doc.Root.<Icons>.<MainMenu>.<Type1>.Value

17/06/2011, 11h46
nimbus629

Merci pour ta réponse, sa marche parfaitement !
un seul problème, si la dernière ligne de mon fichier xml est vide, il me retourne une erreur

Citation:

'.', valeur hexadécimale 0x00, est un caractère non valide. Ligne 30, position 1.

En supprimant cette ligne vide, sa marche.

Merci @+
17/06/2011, 12h04
tomlev

Tu es sûr que c'est vraiment une ligne vide ? Normalement ça ne pose pas de problème (j'ai fait le test et ça marche très bien)

Par contre j'arrive à reproduire l'erreur en mettant un caractère nul à la fin du fichier (avec un éditeur hexadécimal), parce que ça fait que le document XML n'est plus valide (aucun caractère autre que des espaces ou retours chariots n'est autorisé après la fermeture de l'élément racine)
17/06/2011, 12h45
nimbus629

Effectivement il s'agit d'un espace.
Aurais tu une solution pour supprimer cette dernière ligne ?Je cherche un peu partout mais je n'ai rien trouvé qui fonctionne.
Merci encore pour tes réponses @+

Citation:

Envoyé par nimbus629

Effectivement il s'agit d'un espace.

Non, un espace ne pose pas de problème. D'après le message d'erreur c'est un caractère nul...

Citation:

Envoyé par nimbus629

Aurais tu une solution pour supprimer cette dernière ligne ?Je cherche un peu partout mais je n'ai rien trouvé qui fonctionne.

Bah déjà il vient d'où ce fichier ? C'est pas très normal qu'il se termine par un caractère null...

Au pire tu peux bidouiller comme ça :
Code:

1 2 3 4 Dim xml As String = File.ReadAllText(xmlFilePath) xml = xml.TrimEnd(Chr(0)) Dim doc As XDocument = XDocument.Parse(xml) Dim iconPath As String = doc.Root.<Icons>.<MainMenu>.<Type1>.Value
Mais ce serait mieux de régler le problème à la source, parce que ton fichier XML actuel n'est pas valide

17/06/2011, 13h51
nimbus629

C'est parfait, ton code fonctionne a merveille !
Merci beaucoup pour ton aide :)