VisualBasic: Поиск записи в XML-документа

Доля поиска записи в XML-документе проще всего воспользоваться классом DataSet (для получения доступа к этому документу) и классом DataView (для просмотра документа). Метод Sort обеспечивает сортировку записей, а метод Find - поиск. Далее приведенный пример демонстрирует на XML-файле, как реализуется данная идеология поиска.

 Module  Module1
  Sub  Main()
 Findrecord("Bond")
  End Sub

Sub Findrecord( ByVal lastname As String ) Dim ds As DataSet = New DataSet() ds.ReadXml("c:\list.xml") Dim dv As DataView = New DataView(ds.Tables("Employee")) dv.Sort = "LastName" Dim row As Integer = dv.Find(lastname) Dim msg As String = String .Empty If row < 0 Then Console.WriteLine("Employee was not found") Else msg = dv(row)("FirstName").ToString() & vbCr msg += dv(row)("LastName").ToString() & vbCr msg += dv(row)("E-Mail").ToString() & vbCr MessageBox.Show(msg) End If Console.ReadLine() End Sub End Module

Теперь немного поясню. XML-файл содержит имя, фамилию и E-Mail различных людей. В данном примере будет искаться запись с фамилией (lastname) Bond. По окончании поиска выведется сообщение с результатами. Я не буду показывать содержимое XML-файла, так как он идет вместе с исходником.

Исходник к статье можно скачать здесь.

 


Страница сайта http://silicontaiga.ru
Оригинал находится по адресу http://silicontaiga.ru/home.asp?artId=4794