<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<Articoli_Table>
<articolo>
<Id>1</Id>
<Codice>172-32-1176</Codice>
<Marca>TOSHIBA</Marca>
<Modello>e-STUDIO456SE</Modello>
<Descrizione>Multifunzione TOSHIBA a e-STUDIO456SE</Descrizione>
<Offerta>True</Offerta>
</articolo>
<articolo>
<Id>2</Id>
<Codice>172-32-1174</Codice>
<Marca>TOSHIBA</Marca>
<Modello>e-STUDIO356SE</Modello>
<Descrizione>Multifunzione TOSHIBA a e-STUDIO356SE</Descrizione>
<Offerta>False</Offerta>
</articolo>
</Articoli_Table>
Adesso passiamo a scrivere il codice che ci aiutera a scrivere tale struttura :
CODICE VISUAL STUDIO 2010 - VISUAL BASIC .NET - VB.NET:
Imports System.Xml
Public Class WriteFileXML
Dim filePath As String = "c:\Demo.xml"
Private Sub CreFileDemoXML(ByVal filePaths As String)
Dim Scrivi As New XmlTextWriter(filePaths, System.Text.Encoding.UTF8)
Scrivi.WriteStartDocument(True)
Scrivi.Formatting = Formatting.Indented
Scrivi.Indentation = 2
Scrivi.WriteStartElement("Articoli_Table")
createNodo(1, "172-32-1176", "TOSHIBA", "e-STUDIO456SE", "Multifunzione TOSHIBA a e-STUDIO456SE", True, Scrivi)
createNodo(2, "172-32-1174", "TOSHIBA", "e-STUDIO356SE", "Multifunzione TOSHIBA a e-STUDIO356SE", False, Scrivi)
Scrivi.WriteEndElement()
Scrivi.WriteEndDocument()
Scrivi.Close()
End Sub
Private Sub createNodo(ByVal pId As String, ByVal pCode As String, ByVal pMarca As String, _
ByVal pModello As String, ByVal pDescrizione As String, _
ByVal pOfferta As Boolean, ByVal scrivi As XmlTextWriter)
scrivi.WriteStartElement("articolo")
scrivi.WriteStartElement("Id")
scrivi.WriteString(pId)
scrivi.WriteEndElement()
scrivi.WriteStartElement("Codice")
scrivi.WriteString(pCode)
scrivi.WriteEndElement()
scrivi.WriteStartElement("Marca")
scrivi.WriteString(pMarca)
scrivi.WriteEndElement()
scrivi.WriteStartElement("Modello")
scrivi.WriteString(pModello)
scrivi.WriteEndElement()
scrivi.WriteStartElement("Descrizione")
scrivi.WriteString(pDescrizione)
scrivi.WriteEndElement()
scrivi.WriteStartElement("Offerta")
scrivi.WriteString(pOfferta)
scrivi.WriteEndElement()
scrivi.WriteEndElement()
End Sub
Private Sub ReadFileXML_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'Creo il file XML Demo.xml che contiene i valori
CreFileDemoXML(filePath)
End Sub
End Class