تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معلومة ::: Read From Xml File
#1
كاتب الموضوع : 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


أعتقد الكود واضح وما يحتاج لشرح
}}}
تم الشكر بواسطة:
#2
فى الكود السابق ماذا لو أردت قراءة عنصر محدد


طبعاً نحن نضع جملة شرطية للقراءة



كود :
If reader.NodeType = Xml.XmlNodeType.Element Then

كل ما فى الأمر أنك ستزيد الشرط

مثلاً قراءة أى حقل لعنصر ZIP_CODE


كود :
If reader.NodeType = Xml.XmlNodeType.Element And reader.LocalName = "ZIP_CODE" Then
}}}
تم الشكر بواسطة:
#3
هناك شئ فى الكود السابق

أنت تريد أن تقرأ النص فى الحقل وهذا الكود لا يحقق ذلك


كود :
MsgBox(reader.LocalName
)

فبدلاً من LocalName استخدم الخاصية ReadString



كود :
MsgBox(reader.ReadString)
}}}
تم الشكر بواسطة:
#4
حاول تتعرف على الخصائص للعنصر XmlReader أكثر وتطبيق ذلك

إن شاء الله راح نشرح كيفية التعامل مع العنصر XmlWriter أيضاً
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
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,367 28-05-14, 05:02 PM
آخر رد: Sajad
  save rtf file in database محمد عمر مصطفى 0 2,417 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 ) ضيف كريم