(06/08/2016, 07:37)ozanakkaya yazdı:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim xtw As New XmlTextWriter("yeni.xml", System.Text.Encoding.GetEncoding("iSO-8859-9"))

        xtw.Formatting = Formatting.Indented
        xtw.WriteStartDocument() 'XML belgesine versiyon bilgisi yazılıyor.


        xtw.WriteStartElement("AYLIKBILDIRGELER") 'ana root  
        
        xtw.WriteStartElement("ISYERI ISYERISICIL") '1 ======= 
        xtw.WriteAttributeString("", "144563245879512365485")
        xtw.WriteAttributeString("KONTROLNO", "16")
 
        xtw.WriteStartElement("BORDRO DONEMAY") '2 ======= 
        xtw.WriteAttributeString("", "5")
        xtw.WriteAttributeString("DONEMYIL", "2013")
        xtw.WriteAttributeString("BELGEMAHIYET", "A")
       

        xtw.WriteStartElement("BILDIRGELER") '3 ======= 
        xtw.WriteAttributeString("BELGETURU", "13")
        xtw.WriteAttributeString("KANUN", "00000")
        
        xtw.WriteStartElement("SIGORTALILAR") 'ana root
        xtw.WriteAttributeString("SIRA", "1")
        xtw.WriteAttributeString("SIGORTALISICIL", "480119971050")
        xtw.WriteAttributeString("AD", "ALİYE")
	xtw.WriteAttributeString("SOYAD", "SAFİ")
	xtw.WriteAttributeString("PEK", "1942.74")
	xtw.WriteAttributeString("GUN", "30")
	xtw.WriteEndElement() 

	xtw.WriteEndElement() 'KAPAT

        xtw.WriteEndElement() 'KAPAT
        xtw.WriteEndDocument()
        xtw.Close()

Kodu Seç

Kodu Kopyala

Üstteki kodu deneyip bilgi veriniz.