Discussion :

[Yanos]

Bonjour,

Je travaille sous VB Express 2005 et j'ai une application à faire qui prend les donnée dans un fichier XML (dont j'ai la cartographie) pour les placer d'une certaine façon dans un fichier Excel.

Je suis dans les tutoriels de developpez depuis 3 jours mais je suis perdu et je ne trouve pas ce que je veux. Je voudrais connaitre la procédure pour ouvrir un fichier XML et récupérer les variables. J'ai seulement besoin de lire le fichier et pouvoir mettre les variables dans un objet que j'aurai créé (un objet dont les paramètres seront les mêmes que l'enregistrement XML)

Pour ouvrir le fichier j'ai ça mais j'ai une erreur (la fonction ne retourne pas de valeur)

Code :

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

1
2
3
4
5
6
7
Public Function openXML(ByVal fichier As String)
        Dim XMLStruct As New XmlDocument
 
        XMLStruct.Load(fichier)
        root = XMLStruct.DocumentElement
 
    End Function

et donc forcément je n'ai pas pu essayer la lecture

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Public Function lectureXML(ByVal valeur As String) As String
        Dim temp As String
        Dim position As Integer
 
        temp = root.Item(valeur).InnerText
        position = InStr(temp, vbCr)
        If position <> 0 Then
            Return (Mid(temp, 1, position - 1))
        Else
            Return (temp)
        End If
    End Function

Est-ce que ça vous semble correcte comme utilisation?

[Yanos]

salut,

je suis tjr bloqué au niveau de la lecture du fichier XML.
J'arrive à l'ouvrir mais pas à le lire.
J'ai le nom du noeud, la variable à récuperer mais rien y fait.

ça me met une erreur au niveau de

Code :

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

  temp = root.Item(valeur).InnerText

et il me dit que je dois mettre un new mais ça me parait bizard de faire ça.

au pire vous n'auriez pas un code VB.NET qui me permet de lire le fichier XML?

[LE NEINDRE]

Bonjour Yanos,
pour lire un fichier xml j'utlise cette méthode:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
private xml_doc = new XmlDocument();
private StreamReader str;
public string xml_local_directory;
...
...
this.str = File.OpenText(my_xml_file);
xml_doc.Load(str);
str.Close();
this.xml_local_directory = xml_doc.SelectSingleNode("/Settings/Local_Directory/Directory").InnerText.Trim();

SelectSingleNode permet de récupérer un noeud unique.
Si tu as plusieurs noeuds qui ont le même nom, tu peux encore utiliser la méthode SelectNodes qui récupère tes noeuds dans un XmlNodeList, tableau de noeuds.

Bonne journée !

[EDIT] C'est en C# mais y'a la même chose en VB je pense ... [/EDIT]