Discussion :

[olosta]

Bonjour,

J'ai fouiné sur de nombreux sites internet pour trouver la soluce, mais malheureusement, je ne trouve pas le moyen de créer un fichier XML en VB.NET. Les solutions proposées ne marchent en général pas, ou sont beaucoup trop complexe pour ce dont j'ai besoin.

Je ne demande pas ici à ce que l'on me montre comment un XML est fait, mais comment on fait un exemple de XML avec quelques balises, en VB.NET.

Merci d'avance =)

[sihammaster]

Bonjour,
Création d’un fichier xml depuis vb.net :
Voila des exemples assez simples:
1)Avec XMLDocument

Code :

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

1
2
3
4
5
6
7
Sub RedactionXML()
'Create the XmlDocument.
Dim doc AsNew Xml.XmlDocument
        doc.LoadXml(("<Student type='regular' Section='B'><Name> bla bla bla</Name></Student>"))
'Enregistrer le document dans un fichier.
doc.Save("C:\std.xml")
end Sub

2)Avec XmlTextWriter:

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
Sub RedactionXML()
'Créer un nouveau fichier dans C: \ \ 
Dim textWriter As XmlTextWriter = New XmlTextWriter("C:\\myXmFile.xml", Nothing)
'Ouvre le document
        textWriter.WriteStartDocument()
'Écrire des commentaires
        textWriter.WriteComment("Sample Example")
' Write first element 
textWriter.WriteStartElement("Student")
        textWriter.WriteStartElement("r", "RECORD", "urn:record")
 
textWriter.WriteStartElement("Name", "")
textWriter.WriteString("Student")
textWriter.WriteEndElement()
element 'Ecrire un élément de plus
textWriter.WriteStartElement("Address", "")
        textWriter.WriteString("Colony")
        textWriter.WriteEndElement()
       'WriteChars
        textWriter.WriteStartElement("Char")
Dim ch() AsChar = {"b", "l", "last"}
        textWriter.WriteChars(ch, 0, ch.Length)
textWriter.WriteEndElement()
 'Fin du document.
textWriter.WriteEndDocument()
' fermer
        textWriter.Close()
EndSub

Voila, Bonne continuation

[olosta]

Wow! merci pour la rapidité.
J'ai oublié de préciser que j'utilisais Microsoft Visual Web Developer 2010 Express, est ce qu'il est possible que votre code proposé marche sur cet environnement ? Sinon, savez vous s'il est possible de créer des doc XML depuis Web Developer ?

[sihammaster]

Oups!!!!
Pour Vb.Net Oui mais sur Web Developer j'ai jamais essayé
Esperons que quelqu'un autre pourra vous aidez.

[olosta]

J'espère aussi, merci quand meme

[olosta]

J'ai peut etre trouver un truc... à voir.
Je vais lire les tartines, et je reviens =>http://www.microapp.com/contenus_pro...63/extrait.pdf

[olosta]

woah je capte rien

[olosta]

Bon à force de galérer, j'ai fini par trouver (ouf!)

Voici la réponse pour ceux qui veulent créer un truc simple (de la simplicité naît le compliqué) :
J'ai mis ça dans un bouton par exemple (en prenant soin de créer le répertoire C:/test dans l'exemple) :

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
Dim xmlWriter As New XmlTextWriter("C:\test\test.xml", Encoding.UTF8)
 
        With xmlWriter
            .Formatting = Formatting.Indented
            .WriteStartDocument()
            .WriteStartElement("Orders")
            .WriteStartElement("Item")
            .WriteAttributeString("id", "1")
            .WriteAttributeString("SKU", "998123")
            .WriteAttributeString("Description", "Super Widget")
            .WriteAttributeString("Quantity", "100")
            .WriteEndElement()
            .WriteStartElement("Item")
            .WriteAttributeString("id", "2")
            .WriteAttributeString("SKU", "81312")
            .WriteAttributeString("Description", "Turbo Flangellator")
            .WriteAttributeString("Quantity", "50")
            .WriteEndElement()
            .WriteEndElement()
            .Close()
        End With
    End Sub