XML no vb.net

[AnonymousKesha 11]

Hoje vou deixar um artigo que creio nunca ter visto por aqui. A criação e leitura de arquivos XML no VB.

 

XML é como se fosse um bloco de notas ordenado, mas com algumas vantagens:

 

*Estrutura organizada

*Leitura realizada independente de plataforma(windows,OS,Linux) ou hardware , até o nosso amiguinho Arduino consegue criar arquivos XML, o que se refere a linguagem de baixo nível (0 ou 1)

 

* Interpretado por todas as linguagens(vb.net, c#, c++, html e por ai vai...)

 

* E como sitado possui suporte a Unicode, ou seja suas tags, textos.... podem ser escritos em qualquer linguagem de alto - nível (português, inglês, russo...)

 

Para criar é simples:

 

Informamos a versão:

<?xml version="1.0"?>

 

Criamos uma tag pai:

<cliente>

 

Agora as novas tags:

<nome>Tiago.A</nome>

<cpf>000.000.000-00</cpf>

 

E quando terminado as tags fechamos a tag pai:

</cliente>

 

Bom hora de adaptar isso para o VB

 

Novo projeto

 

Novas variáveis globais:

 

Dim LISTA As New ListBox

Dim nome As String

Dim cpf As String

 

Uma nova rotina:

Private Sub CombinarString()

nome = "<nome>" & txtnome.Text & "</nome>"

cpf = "<cpf>" & txtcpf.Text & "</cpf>"

End Sub

 

Nessa rotina pegamos a variável global demos o valor <nome> + o que está escrito na txtnome.text + </nome>, abrimos a tag , colocamos o texto e fechamos. Assim por diante.

 

Private Sub listarString()

LISTA.Items.Add("<?xml version=" & """" & "1.0" & """" & "?>")

LISTA.Items.Add("<cliente>")

LISTA.Items.Add(nome)

LISTA.Items.Add(cpf)

LISTA.Items.Add("</cliente>")

LISTA.Items.Add("<!-- Data criação:" & Date.Today & "-->")

End Sub

 

Nessa rotina foi adicionado a LISTA a versão do xml, a tag pai foi aberta, as variáveis nome e cpf foram adicionadas, fechamos a tag pai e colocamos um comentário que tem a data atual.

 

Private Sub SalvarXML()

Dim arq As New IO.StreamWriter("C:\XML\ArqXML.xml, True)

For i As Integer = 0 To LISTA.Items.Count - 1

arq.WriteLine(LISTA.Items(i).ToString())

Next

arq.Close()

MsgBox("Salvo com sucesso!", MsgBoxStyle.Information, Title:="XML")

Me.Close()

End Sub

 

Nessa rotina a LISTA é percorrida, e salva no formato .xml

 

Obs. Crie a pasta XML em C:\ caso contrario vai haver um erro ao salvar.

 

Agora em um button vai as rotinas na seguinte ordem:

 

CombinarString()

listarString()

SalvarXML()

 

 

 

Realizar a leitura de um arquivo XML.

 

-Add uma listbox

-Um button

 

Variável global:

Dim local As String = "C:\LocalArquivo\Arquivo.xml"

 

 

Nova rotina:

Private Sub LerXML()

Try

Dim reader As XmlTextReader = New XmlTextReader(local)

Dim elementos As ArrayList = New ArrayList

Do While (reader.Read())

Select Case reader.NodeType

Case XmlNodeType.Element

If reader.HasAttributes Then 'Se existirem atributos

While reader.MoveToNextAttribute()

'Pega o valor do atributo.

elementos.Add(reader.Value)

End While

End If

Case XmlNodeType.Text

'Incluir o texto do elemento no ArrayList

elementos.Add(reader.Value)

End Select

Loop

 

Dim num As String

For Each num In elementos

ListBox1.Items.Add(num)

Next

Catch

ListBox1.Items.Add("ERRO NA LEITURA DO XML")

End Try

End Sub

 

No button:

LerXML()

 

 

 

A manipulação desses arquivos é gigante, como ler tags especificas, integrar sistemas, gerar relatórios... basta fazer um bom uso!

[palani3 0]

ya im learing some other software in java xml anything plz send me url

 

 

thanks