Visual Basic em Português

Este é o último artigo, por agora, sobre XML Literals. Os artigos anteriores mostraram diversas coisas importantes, como por exemplo, criar um ficheiro XML, ler e pesquisar informação (usando LINQ e Lambda Expressions), mas até agora ainda não foram referidos alguns pontos essenciais para a manipulação deste tipo de ficheiros: modificação, inserção e eliminação.

Neste artigo será mostrado como fazer estas operações com base no seguinte ficheiro XML, que terá o nome “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>

Modificar

Para modificar um ficheiro XML, depois de o ler, é apenas necessário escolher o elemento a modificar e atribuir um novo valor. De acordo com o ficheiro base, e para alterar no grupo “Magazine” de “MSDN Magazine” para outro valor, podíamos fazer:

Dim xmlFile = XDocument.Load(strFileName)
xmlFile...<magazineName>.Value = "Novo Valor"

Isto irá modificar o primeiro elemento que encontrar, uma vez que utilizamos a propriedade descendantes, que neste caso é a que pretendemos. Para modificar um elemento especifico, podemos uma vez mais recorrer a Lambda ou LINQ, e seleccionar apenas esse, como por exemplo, modificar um atributo no grupo “books”

Dim xmlFile = XDocument.Load(strFileName)
Dim element = xmlFile.<library>.<books>.<book>.Where(Function(f) _
                                                                             f.@name = "Equador")
element.@author = "Jorge Paulino"

Este exemplo indica o caminho completo, mas podemos, uma vez mais, usar a propriedade descendantes, simplificando o código (apenas em duas linhas):

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

Inserir

Para inserirmos um novo elemento no ficheiro XML, é necessário “construir” o novo XElement, e depois adiciona-lo à posição correcta. Podemos fazer isto pelo menos de duas formas: criando um XElement e os respectivos(caso existam) XAtributes:

Dim xmlFile = XDocument.Load(strFileName)
Dim element = New XElement("book", _
                                  New XAttribute("name", "XML Literals"), _
                                 New XAttribute("author", "Jorge Paulino"))
Dim parent = xmlFile...<books>.FirstOrDefault()
parent.Add(element)

Ou directamente no código:

Dim xmlFile = XDocument.Load(strFileName)
Dim element = <book name="XML Literals" author="Jorge Paulino"/>
Dim parent = xmlFile...<books>.FirstOrDefault()
parent.Add(element)

Neste segundo exemplo, e caso queiramos substituir o valor dos atributos por uma variável, podemos usar Embedded Expressions, utilizando as tags <%= %>, como já explicado num artigo anterior.

Eliminar

Eliminar um elemento é bastante simples e semelhante à modificação.

Dim xmlFile = XDocument.Load(strFileName)
xmlFile...<magazineName>.Remove()

Este exemplo mostra como remover os elementos com a tag “magazineName”. Mas atenção, este exemplo elimina todos os elementos com a tag indicada. Para apagarmos apenas um elemento especifico, temos de indicar qual.

Dim xmlFile = XDocument.Load(strFileName)
xmlFile...<book>.Where(Function(f) f.@author = "Stephenie Meyer").Remove()

 

Em todos os exemplos mostrados, é necessário gravar as alterações efectuadas, usando simplemente:

xmlFile.Save(strFileName)

E para já é tudo!

Espero que estes exemplos de XML Literals, em conjunto com Lambda e LINQ, tenham ajudado a uma mais fácil utilização de ficheiros XML.