Utiliser Gb.xml

Bonjour,

Gb.xml, ce composant fabuleux vous permet de manipuler les fichiers XML avec facilité. vous pouvez l'activer dans les propriétés de votre projet en cochant gb.xml

Aujourd'hui je vais tenter de vous en expliquer son fonctionnement.

ECRITURE :

L'ecriture est très simple. A ceci près que je ne trouve pas le moyen de modifier une item du fichier mais je dois réécrire tout le fichier. Si vous avez l'astuce, je suis preneur.

Pour la creation d'un fichier XML, il vous suffit d'ajouter ce code ci :

Dim writer As XmlWriter
writer = New XmlWriter
writer.Open(System.User.Home & "/toto.xml", True)

nous voila fin pret pour remplir notre fichier.
Ajoutons tout d'abord un commentaire :

writer.Comment("Hello from France")

creons maintenant une categorie nommée characters avec 2 propriétés serie et Heroes comme ceci :

writer.StartElement("characters")
writer.Attribute("serie", "Heroes")

maintenant donnons des propriétés à la catégorie heroes :

writer.StartElement("heroe")
writer.Attribute("id", "1")
writer.Attribute("name", "Francois hollande")

Regardez bien comment est rédigé ce code.

Maintenant, creons des balises standart :

writer.StartElement("bobi")
writer.Text("ewing")
writer.EndElement

writer.StartElement("played_by")
writer.Text("Hayden Panettiere")
writer.EndElement

writer.StartElement("ability")
writer.Text("Rapid cellular regeneration")
writer.EndElement

Le fichier est maintenant terminé, mais attention, nous ne devons pas nous arreter la. nous devons absoluement FERMER le document par la ligne :

writer.EndDocument()

Notez que ce composant est extremement sensible aux erreurs XML et que vous aurez l'erreur : xml parser error si votre fichier n'est pas conforme.

Pour la petite histoire, le composant n'accpte pas l'UTF-16 et me demande de l'ajuster à l'editeur UTF-8.

En bas a gauche se trouve le bouton pour creer ce fichier de facon automatique. vous le trouverez dans le repertoire /home/user/toto.xml.

cliquez sur le bouton ouvrir le fichier pour le lire. vous le voyez maintenant dans la textarea mis en forme.

LECTURE

Maintenant, nous allons lire dans ce fichier. La lecture est assez compliquée.

tout d'abord, voici le code pour ouvrir le fichier :

Dim reader As XmlReader
reader = New XmlReader
Try reader.Open(System.User.home & "/toto.xml")
If Error Then
Message.Error("Error when trying to open the toto.xml file!")
Return
Endif

Le fichier maintenant ouvert, nous faison une boucle do while pour parcourir le fichier comme ceci :

Do While True
Try reader.Read()
If reader.Eof Then Break

maintenant voici le listing des commandes que nous pouvons saisir sous cette forme :

reader.node.xxxxxxx (xxxxxxx correspond à toutes les commandes possibles)

notez que value, Name, et type sont les plus interessantes.
D'ailleurs, cliquez sur le bouton type+value+name et vous verrez dans quel ordre sont disposées ces valeurs...

n'oubliez pas de fermer la lecture par ce code :

Loop
reader.Close()

Voila. J'espere que ce tuto vous aura eclairé sur l'utilisation de ce composant.
A bientot.
;)

TELECHARGER L'EXEMPLE DES SOURCES EN GB3 ICI

Date de création : 27/04/2014 @ 20:04
Dernière modification : 27/04/2014 @ 20:04
Catégorie : Utiliser les fichiers
Page lue 3916 fois

Imprimer l'article