06-10-12, 09:09 PM
كاتب الموضوع : BADRMEDIA
عندك ملف Xml وتريد القراءة منهإذن سنستخدم القارئ XmlReader
لنري هذا المثال :
================================================== =
أنشأ على القرص المحلي C ملف Xml باسم VB4ARAB.Xml
اكتب فى محتواه
كود :
[color=#000080]<?xml version=[COLOR=#0000ff]"1.0"[/color] encoding=[color=#0000ff]"utf-8"[/color]?>[/COLOR]
[i][color=#000080]<!--BADRMEDIA-->[/color][/i]
[color=#000080]<Address_Lists>[/color]
[color=#000080]<AddressList ID=[COLOR=#0000ff]"111"[/color]>[/COLOR]
[color=#000080]<ZIP_CODE>[/color]123-4567[color=#000080]</ZIP_CODE>[/color]
[color=#000080]<ADDRESS>[/color]BADRMEDIA[color=#000080]</ADDRESS>[/color]
[color=#000080]</AddressList>[/color]
[color=#000080]<AddressList ID=[COLOR=#0000ff]"222"[/color]>[/COLOR]
[color=#000080]<ZIP_CODE>[/color]333-7777[color=#000080]</ZIP_CODE>[/color]
[color=#000080]<ADDRESS>[/color]BADRMEDIA[color=#000080]</ADDRESS>[/color]
[color=#000080]</AddressList>[/color]
[color=#000080]<AddressList ID=[COLOR=#0000ff]"333"[/color]>[/COLOR]
[color=#000080]<ZIP_CODE>[/color]111-2222[color=#000080]</ZIP_CODE>[/color]
[color=#000080]<ADDRESS>[/color]BADRMEDIA[color=#000080]</ADDRESS>[/color]
[color=#000080]</AddressList>[/color]
[color=#000080]</Address_Lists>[/color]
لتجعل وجود فراغ فى صفحة Xml لأول سطر
أضف زر أمر Button واضف له هذا الكود
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim reader As System.Xml.XmlReader = System.Xml.XmlReader.Create("C:\VB4ARAB.xml")
While reader.Read
If reader.NodeType = Xml.XmlNodeType.Element Then
' نظهر اسم العنصر
MsgBox(reader.LocalName)
End If
End While
' نغلق الاتصال
reader.Close()
Catch ex As Exception
MsgBox("" & ex.Message & "", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight, "BADRMEDIA SoftWare ")
End Try
End Sub
أعتقد الكود واضح وما يحتاج لشرح