منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة اريد توضيح التعامل مع xml - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة اريد توضيح التعامل مع xml (/showthread.php?tid=9244)

الصفحات: 1 2


مساعدة اريد توضيح التعامل مع xml - Sajad - 13-06-13

السلام عليكم

نعم يقوم بحذف البيانات القديمة



مساعدة اريد توضيح التعامل مع xml - tariq2812 - 13-06-13

كود :
Dim settings As XmlWriterSettings = New XmlWriterSettings()

    Dim writer As XmlWriter


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        settings.NewLineOnAttributes = True
        settings.Indent = True


        writer = XmlWriter.Create("C:\Info.xml", settings)


        writer.WriteStartDocument()
        writer.WriteStartElement("Info")


        For a = 1 To 3


            writer.WriteStartElement(String.Format("mm{0}", a))
            writer.WriteElementString("Name", String.Format("Name={0}", a))
            writer.WriteElementString("Age", String.Format("Age={0}", a))
            writer.WriteElementString("Subject", String.Format("Subject={0}", a))
            writer.WriteElementString("Avg", String.Format("Avg={0}", a))

            writer.WriteEndElement()
        Next
        writer.WriteEndElement()
        writer.WriteEndDocument()
        writer.Close()

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        Dim Reader As New XmlDocument
        Reader.Load("C:\Info.xml")








        Dim mm As XmlElement = Reader.CreateElement("mm4")
        Dim Name As XmlElement = Reader.CreateElement("Name")
        Name.InnerText = "Name=4"


        Dim Age As XmlElement = Reader.CreateElement("Age")
        Age.InnerText = "Age=4"

        Dim Subject As XmlElement = Reader.CreateElement("Subject")
        Subject.InnerText = "Subject=4"

        Dim Avg As XmlElement = Reader.CreateElement("Avg")
        Avg.InnerText = "Avg=4"



        mm.AppendChild(Name)
        mm.AppendChild(Age)
        mm.AppendChild(Subject)
        mm.AppendChild(Avg)


        Reader.DocumentElement.AppendChild(mm)

        Reader.Save("C:\Info.xml")






    End Sub



مساعدة اريد توضيح التعامل مع xml - ali.alfoly - 13-06-13

جزاك الله خير اخى
طيب اريد شرح لهذا الامر يكون سهل وبسيط
للتعامل معها من اضافة وحذف وتعديل وقرءاة