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 29 30 31 32 33 34 35 36
| Dim stm As New FileStream("test.xml", FileMode.Open)
Dim stmWriter As New StreamWriter(stm)
Dim settings As New XmlWriterSettings()
Using writer As XmlWriter = XmlWriter.Create(stmWriter, settings)
writer.WriteStartDocument()
writer.WriteStartElement("recettes")
writer.WriteStartElement("recette")
writer.WriteAttributeString("Nom", AjoutRecette.edName.Text)
writer.WriteAttributeString("Type", CStr(AjoutRecette.cbType.SelectedIndex + 1))
writer.WriteAttributeString("Url", AjoutRecette.edUrl.Text)
writer.WriteAttributeString("Note", CStr(AjoutRecette.raNote.Value))
'writer.WriteAttributeString("img", AjoutRecette.edImage.Text)
writer.WriteAttributeString("Comm", AjoutRecette.edComm.Text)
writer.WriteAttributeString("ing1", AjoutRecette.edIng1.Text)
writer.WriteAttributeString("ing2", AjoutRecette.edIng2.Text)
writer.WriteAttributeString("ing3", AjoutRecette.edIng3.Text)
writer.WriteAttributeString("ing4", AjoutRecette.edIng4.Text)
writer.WriteAttributeString("vin", AjoutRecette.edVin.Text)
writer.WriteEndElement()
writer.WriteEndElement()
writer.Close()
End Using |
Partager