Discussion :

[raphxyz]

Bonjour à tous,

Voilà, je me prends la tête depuis un moment sur un petit bout de code qui commence quelque peu à m'énerver.

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
29
Private Function ListerXyZToolsIntegre() As Boolean
        Dim XmlDoc As XmlDocument = New XmlDocument()
        XmlDoc.Load("" & Application.StartupPath & "\xyztools.references.xml")
 
        Dim element As XmlNodeList = XmlDoc.DocumentElement.GetElementsByTagName("Tool")
        Dim noeud, noeudEnf As XmlNode
 
        Dim i As Integer = 0
        For Each noeud In element
            For Each noeudEnf In noeud.ChildNodes
                Select Case noeudEnf.LocalName
                    Case "Nom" : ListeIntegre(i, 0) = noeudEnf.InnerText
                    Case "Version" : ListeIntegre(i, 1) = noeudEnf.InnerText
                    Case "Url" : ListeIntegre(i, 2) = noeudEnf.InnerText
                    Case "TypeRech" : ListeIntegre(i, 3) = noeudEnf.InnerText
                    Case "ValRech" : ListeIntegre(i, 4) = noeudEnf.InnerText
                    Case "CmdSilent" : ListeIntegre(i, 5) = noeudEnf.InnerText
                    Case "PatchFile" : ListeIntegre(i, 6) = noeudEnf.InnerText
                    Case "RedemarrageObl" : ListeIntegre(i, 7) = noeudEnf.InnerText
                    Case "FichierDesinstallation" : ListeIntegre(i, 8) = noeudEnf.InnerText
                    Case "RegSuppression" : ListeIntegre(i, 9) = noeudEnf.InnerText
                End Select
            Next
            i += 1
        Next
 
        Return True
 
    End Function

Pouriez-vous me dire si vous voyez une erreur?
- Sachant que ce n'est pas un manque d'Imports.

Code :

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

1
2
Imports System.Xml
Imports System.IO

- Que le fichier XML est à la bonne place. Dossier "debug" pour les tests.

Je cherche à incrémenter une variable public définie de la façon suivante:

Code :

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

Public ListeIntegre(16, 16) As String

Quand je fais un test en MsgBox(), il arrête de s'afficher apres le "Load()" donc le problème viendrait de là mais pourquoi?

Merci d'avance pour votre aide

[Pol63]

try/catch

[chrismonoye]

Bonjour,
teste :

Code :

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

XmlDoc.Load(Application.StartupPath & "\xyztools.references.xml")

La propriété StartupPath retourne un String, donc pas besoin de guillemets.

[raphxyz]

Tout d'abord, merci pour vos réponses.

Bonjour,
teste :

Code :

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

XmlDoc.Load(Application.StartupPath & "\xyztools.references.xml")

La propriété StartupPath retourne un String, donc pas besoin de guillemets.

Pour le guillemets, je ne les ai pas mis, c'était juste à force de chercher une solution, que j'ai tester ça mais tout en me disant que cela n'avait effectivement rien avoir.

try/catch

Merci pour cette piste, je vais tester ça. Je vous tient au couran des prochaines évolutions

[raphxyz]

Grand merci!

Le Try/Catch m'a permis de découvrir l'erreur qui venait de mon fichier XML contenant deux esperluettes & non échappées.

Bien à vous