Este é o terceiro artigo sobre XML Literals, depois de uma introdução e de falarmos de Embedded Expressions. Neste, iremos falar sobre a leitura de informação de um arquivo XML.

Um dos benefícios do uso de XML Literals é a facilidade de ler informação e, com isso, melhorar o código e reduzir o tempo de desenvolvimento. Existem algumas formas de ler informação, como por exemplo LINQ ou Lambda Expressions, e como num artigo anterior já foi referido alguma coisa sobre LINQ, neste artigo será apenas utilizado Lambda.

Estes métodos de pesquisa serão a base para modificar dados, apagar ou inserir novos elementos, mas isso será mostrado brevemente.

Arquivo: myFile.xml

<?xml version="1.0" encoding="utf-8" standalone="yes" ?> 
<!--Lista de livros e revistas > 
<library> 
  <books> 
     <book name="Crepúsculo"author="Stephenie Meyer" /> 
     <book name="Equador"author="Miguel S. Tavares" /> 
     <book name="O Sétimo Selo"author="José R. dos Santos" /> 
  </books> 
  <magazine> 
     <magazineName>MSDN Magazine</magazineName> 
     <magazineName>Code Magazine</magazineName> 
</magazine> 
</library> 

A leitura de um arquivo começa sempre pela sua leitura para uma variável, e para isso utilizamos um XDocument. Depois, mediante o tipo de informação que queremos pesquisar/ler, utilizam-se diferentes métodos.

Nota: O nome do arquivo icheiro está guardado na variável strFileName

Dim strFileName As String = “d:myFile.xml”

Uma leitura simples de um elemento, por exemplo magazineName, será feita da seguinte forma:

Dim xmlFile = XDocument.Load(strFileName) 
Debug.WriteLine(xmlFile...<magazineName>.Value)

Tão simples com isso! Este método utiliza a propriedade descendants, que irá procurar todos os elementos que tenham a tag indicada.

O resultado, na Immediate Window será MSDN Magazine, ou seja, o primeiro elemento que encontrar. Mas podemos também procurar por um valor nos elementos com a mesma tag, neste caso 2, utilizando, por exemplo, Lambda.

Dim xmlFile = XDocument.Load(strFileName) 
Debug.WriteLine(xmlFile...<magazineName>.Where(Function(f) _   
                         f.Value = "Code Magazine").Value)

Para mostrar um atributo da categoria, o método é semelhante. Desta vez, como se trata de um atributo, é usado a @, seguida do nome do atributo.

Dim xmlFile = XDocument.Load(strFileName) 
Debug.WriteLine(xmlFile...<book>.@author)

Mas isso irá mostrar apenas o primeiro autor, do primeiro elemento. E se quisermos o nome do autor do livro Equador? Podemos utilizar uma vez mais Lambda.

Dim xmlFile = XDocument.Load(strFileName) 
Debug.WriteLine(xmlFile...<book>.Where(Function(f) _  
                      f.@name = "Equador").@author)

Dessa forma, pesquisamos o elemento cujo atributo name é igual a Equador, e mostramos o nome do author.

Estes são mais alguns exemplos que mostram como é simples ler informação de um arquivo XML usando XML Literals!