توضح هذه المقالة كيفية استخدام فئة 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

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