Comment créer un fichier XML simple avec ASP VB.NET ?

Version imprimable

15/09/2010, 16h10
olosta

Comment créer un fichier XML simple avec ASP VB.NET ?

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

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

Code:

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:

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

15/09/2010, 16h24
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 ?
15/09/2010, 16h29
sihammaster

Oups!!!!
Pour Vb.Net Oui mais sur Web Developer j'ai jamais essayé:calim2:
Esperons que quelqu'un autre pourra vous aidez.
15/09/2010, 16h35
olosta

J'espère aussi, merci quand meme :)
16/09/2010, 10h44
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
16/09/2010, 12h12
olosta

woah je capte rien:?

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:

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