[RaggiTech]

تعرفنا علي كيفية ارسال الخصائص مع تكوين الملف


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


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

كود :

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 من الداخل وتعرف على الفرق