تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معلومة ::: Write To Xml File
#1
كاتب الموضوع : BADRMEDIA


شرحنا فى درس سابق كيفية القراءة من ملف Xml

لكن كيف نكتب ملف Xml ونتعامل معه بالكتابة فيه

سنستخدم العنصر XmlWriter

أنشأ مشروع - ضع زر أمر Button

أضف هذا الكود له



كود :
Dim writer As System.Xml.XmlWriter = System.Xml.XmlWriter.Create("C:\BADRMEDIA.xml")
writer.WriteStartElement("AddressList")
writer.WriteEndElement()
writer.Close()

عرفنا متغير من نوع العنصر XmlWriter وأنشأنا ملف BADRMEDIA.xml

وضعنا عنوان للعنصر - AddressList






في الكود السابق سيتكون لدينا ملف على القرص المحلي C باسم BADRMEDIA.xml

سيكون محتواه كالتالي



<?xml version="1.0" encoding="utf-8"?><AddressList />
}}}
تم الشكر بواسطة:
#2
فى المثال السابق أنشأنا ملف Xml وفقط مجرد اسم للملف واسم للعنصر

لكن خصائص الملف ماذا لو أردت أن تنشأها

مثلاً خاصية Encoding

فيتم ذلكمع انشاء الملف


لنري المثال الأتى من خلال الكود



كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim st As New System.Xml.XmlWriterSettings
st.Encoding = System.Text.Encoding.UTF8
Dim writer As System.Xml.XmlWriter = System.Xml.XmlWriter.Create("C:\BADRMEDIA.xml", st)
writer.WriteStartElement("AddressList")
writer.WriteEndElement()
writer.Close()

Catch ex As Exception
MsgBox("" & ex.Message & "", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight, "BADRMEDIA SoftWare ")
End Try

End Sub



}}}
تم الشكر بواسطة:
#3
تعرفنا علي كيفية ارسال الخصائص مع تكوين الملف


لنري شئ هام الآن


نفذ هذا الكود تحت زر الأمر



كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim st As New System.Xml.XmlWriterSettings
st.Encoding = System.Text.Encoding.UTF8
Dim writer As System.Xml.XmlWriter = System.Xml.XmlWriter.Create("C:\BADRMEDIA.xml", st)
writer.WriteStartElement("AddressList")
writer.WriteStartElement("ZIP_CODE")
writer.WriteEndElement()
writer.Close()

Catch ex As Exception
MsgBox("" & ex.Message & "", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight, "BADRMEDIA SoftWare ")
End Try

End Sub

أضفنا عنصر جديد اسمه ZIP_CODE

أذهب إلى مكان انشاء الملف وافتح الملف واطلع على محتواه ماذا تجد ؟؟؟؟


تجد محتوي الملف فى هذا الشكل



كود :
[color=#000080]<?xml version=[COLOR=#0000ff]"1.0"[/color] encoding=[color=#0000ff]"utf-8"[/color]?>[/COLOR][color=#000080]<AddressList>[/color][color=#000080]<ZIP_CODE />[/color][color=#000080]</AddressList>[/color]

ماذا لو أنشأنا عناصر أخري سيكون الملف صعب القراءة من الداخل لك

لذا جاء دور الخاصية المسئولة عن تنسيق الملف وللقيام بذلك نقوم بالآتي


أول شئ لابد أن نفعل الخاصية Indent ونجعلها تساوي True

ثم نتجه للخاصية IndentChars ونحدد نوع التنسيق المراد

وإليك هذا الكود




كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim st As New System.Xml.XmlWriterSettings
st.Encoding = System.Text.Encoding.UTF8
st.Indent = True
st.IndentChars = ControlChars.Tab
Dim writer As System.Xml.XmlWriter = System.Xml.XmlWriter.Create("C:\BADRMEDIA.xml", st)
writer.WriteStartElement("AddressList")
writer.WriteStartElement("ZIP_CODE")
writer.WriteEndElement()
writer.Close()

Catch ex As Exception
MsgBox("" & ex.Message & "", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight, "BADRMEDIA SoftWare ")
End Try

End Sub


اذهب الان واطع على ملف Xml من الداخل وتعرف على الفرق

}}}
تم الشكر بواسطة:
#4
تكلمنا عن انشاء الملف وعن خصائصه وتكوين العناصر

لكن حتى الان لم نسند قيم للعناصر

الأمر سهل جدا

كل ما فى الأمر أنه بعد انشاء العنصر - ترسل له قيمة فقط




كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim st As New System.Xml.XmlWriterSettings
st.Encoding = System.Text.Encoding.UTF8
st.Indent = True
st.IndentChars = ControlChars.Tab
Dim writer As System.Xml.XmlWriter = System.Xml.XmlWriter.Create("C:\BADRMEDIA.xml", st)
writer.WriteStartElement("AddressList")
writer.WriteStartElement("ZIP_CODE")
writer.WriteValue("123-5555")
writer.WriteEndElement()
writer.Close()

Catch ex As Exception
MsgBox("" & ex.Message & "", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight, "BADRMEDIA SoftWare ")
End Try

End Sub

}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [VB.NET] استيراد ملف اكسل الى vb.net Import Excel File Table –datagridview Sheet samo2000 1 2,879 20-02-22, 05:49 PM
آخر رد: رضوان الجماعي
  معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! أسامة أحمد 4 6,080 18-07-21, 02:53 AM
آخر رد: kebboud
  File Signature silverlight 5 4,318 29-05-19, 10:38 PM
آخر رد: egbest2
  معلومة ::: ListBox Blue Sky 14 22,003 14-11-16, 11:32 PM
آخر رد: فارس جراح
  [مقال] Check the file format of an Image silverlight 3 3,366 28-05-14, 05:02 PM
آخر رد: Sajad
  save rtf file in database محمد عمر مصطفى 0 2,416 21-12-13, 02:50 AM
آخر رد: محمد عمر مصطفى
  معلومة مهمه فى المصفوفات ali.alfoly 2 3,727 30-08-13, 02:25 AM
آخر رد: ali.alfoly
  من المنتدى القديم - معلومة ::: ProgressBar ( للاخ BADRMEDIA ) المبرمج علي نوري 2 3,820 23-08-13, 11:17 PM
آخر رد: nin9e
  من المنتدى القديم - معلومة ::: CheckBox ( للاخ BADRMEDIA ) المبرمج علي نوري 1 2,914 30-11-12, 05:54 PM
آخر رد: مبرمج أوتار
  معلومة :: الحل لمشكلة الخطأ في الكود For Each i As Button In Me.Controls Aly El-Haddad 2 3,562 10-11-12, 09:15 PM
آخر رد: Mr. DotNet

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم