Discussion :

[nimbus629]

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

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
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 :

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
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. @+

[tomlev]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

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

En supprimant cette ligne vide, sa marche.

Merci @+

[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)

[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 @+

[tomlev]

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...

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nimbus629]

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