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-файла, так как он идет вместе с исходником.

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