كيفية قراءة بيانات ملف XML من عنوان URL باستخدام VB.NET

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كيفية قراءة بيانات ملف XML من عنوان URL باستخدام VB.NET

مُساهمة من طرف المبرمج الطموح في السبت سبتمبر 21, 2013 1:09 pm

بسم الله الرحمن الرحيم

توضح هذه المقالة كيفية استخدام فئة XmlTextReader لقراءة لغة التوصيف الموسعة (XML) من عنوان ويب URL.....ونفترض أن الملف المطلوب قرائته هو Books.xml ....سنتبع الخطوات التالية :

_ نقوم فى البداية باستيراد مساحة الاسم التالية :
الرمز:
Imports System.Xml
_ نقوم بالاعلان عن ثابت وليكن بأسم URLString لتخزين مصدر البيانات أو بمعنى اصح رابط url الذى يحتوى على ملف xml وذلك على النحو التالى :
الرمز:
const URLString as String = "http://localhost/books.xml"
_إنشاء مثيل من الفئة XmlTextReader وتمرير عنوان URL الية على النحو التالى .
الرمز:
Dim reader As XmlTextReader = New XmlTextReader (URLString)
و بشكل عام يتم استخدام الفئة XmlTextReader إذا كنت تحتاج إلى الوصول إلى  البيانات الخام مثل XML وبالتالي، توفر XmlTextReader إليه أسرع لقراءة XML.

_ نقوم بقراءة بيانات ملف XML وذلك من خلال الاسلوب Read وذلك عن طريق حلقة تكرارية للحصول على كافة سجلات الملف و ذلك على النحو التالى :
الرمز:
Do While (reader.Read())
      Console.WriteLine(reader.Name)
Loop

Console.ReadLine()
_ لو أكتفينا بالكود السابق ستظهر البيانات بطريقة عشوائية ...ولذلك سنقوم بفحص العقد لمعالجة بيانات XML بطريقة صحيحة حيث يحتوي كل سجل على عقده node يمكن تحديد من الخاصية NodeType و تحتوى كل عقدة على اسم فريد و قيمة والتى تمثل بيانات ملف xml ولذلك سنقوم بتطوير الكود اعلاه ليصبح كما يلى :

الرمز:
Do While (reader.Read())
Select Case reader.NodeType
Case XmlNodeType.Element
Console.Write("<" + reader.Name)
Console.WriteLine(">")
Case XmlNodeType.Text 'Display the text in each element.
Console.WriteLine(reader.Value)
Case XmlNodeType.EndElement .
Console.Write("</" + reader.Name)
Console.WriteLine(">")
End Select
Loop
و الكود النهائى سيكون على النحو التالى :

الرمز:
mports System.Xml
Module Module1

    Sub Main()
        Const URLString As String = "http://localhost/books.xml"
        Dim reader As XmlTextReader = New XmlTextReader(URLString)
        Do While (reader.Read())
            Select Case reader.NodeType
                Case XmlNodeType.Element 'Display beginning of element.
                    Console.Write("<" + reader.Name)
                    If reader.HasAttributes Then 'If attributes exist
                        While reader.MoveToNextAttribute()
                            'Display attribute name and value.
                            Console.Write(" {0}='{1}'", reader.Name, reader.Value)
                        End While
                    End If
                    Console.WriteLine(">")
                Case XmlNodeType.Text 'Display the text in each element.
                    Console.WriteLine(reader.Value)
                Case XmlNodeType.EndElement 'Display end of element.
                    Console.Write("</" + reader.Name)
                    Console.WriteLine(">")
            End Select
        Loop


    End Sub

End Module

المبرمج الطموح
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 117
النقاط : 213
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيفية قراءة بيانات ملف XML من عنوان URL باستخدام VB.NET

مُساهمة من طرف السنى في الأحد سبتمبر 22, 2013 2:19 pm


جزاك الله خيرا اخى الكريم

السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى