Criando e lendo um arquivo XML com VB6

E aí, programadores!

Independente do porte do sistema, em dado momento, é necessário importar/exportar informações de/para aplicações externas. Neste cenário, um dos arquivos mais utilizados em operações desta natureza é o arquivo XML. Eu, particularmente, costumo utilizá-lo também para armazenar informações que identificam os parâmetros de configuração de aplicações desktop ou web. Basicamente, vamos criar um arquivo via código e em seguida fazer uma leitura afim de exibir seu conteúdo em um controle RichTextBox.

Abra o Visual Basic 6 e crie um novo projeto do tipo Standard EXE. Vamos adicionar uma referência ao controle RichTextBox. Clique no menu Project > Components,  marque a opção Microsoft Rich Textbox Control 6.0 e clique no botão Aplicar (e OK).

Com o controle já disponível na Toolbox, dê um duplo-clique sobre o RichTextBox para adicioná-lo ao Form.

Redimensione a caixa de texto no Form para que preencha a maior parte do formulário, e adicione um controle CommandButton conforme a imagem.

Com o design da janela pronta, vamos adicionar uma referência no projeto para conseguirmos criar o arquivo XML. Clique no menu Project > References e marque a opção Microsoft XML, v6.0 ou inferior.

Dê um duplo-clique no botão, e escreva o trecho de código abaixo.

Private Sub Command1_Click()

    Dim doc As DOMDocument

    Set doc = New DOMDocument

    doc.loadXML "<?xml version=""1.0""?>" & _

                "<ponline>" & _

                " <config>" & _

                "  <servidor>(local)\SQLEXPRESS</servidor>" & _

                "  <usuario>desenvolvedor</usuario>" & _

                "  <senha>t3cl@</senha>" & _

                " </config>" & _

                "</ponline>"

    doc.save "C:\config.xml"

    MsgBox "Arquivo XML criado com sucesso!", , "Programação On-Line"

End Sub

Pressione a tecla F5 para rodar a aplicação e clique no botão. Em seguida, veja o arquivo já criado na imagem a seguir.

Para concluir o artigo, vamos criar uma rotina para abrir o arquivo no controle RichTextBox. Dê um duplo-clique no meio do Form (para que o VB crie o evento Load) e escreva a listagem abaixo no escopo do evento.

Private Sub Form_Load()

    Dim doc As DOMDocument, Temp(3) As String

    Set doc = New DOMDocument

    doc.Load "C:\config.xml"

   

    Temp(0) = doc.documentElement.childNodes(0).childNodes(0).Text

    Temp(1) = doc.documentElement.childNodes(0).childNodes(1).Text

    Temp(2) = doc.documentElement.childNodes(0).childNodes(2).Text

   

    RichTextBox1.Text = "Servidor: " & Temp(0) & vbCrLf & _

                        "Usuário: " & Temp(1) & vbCrLf & _

                        "Senha: " & Temp(2) & vbCrLf

End Sub

Rode a aplicação mais uma vez, e perceba que agora o controle será carregado com os dados do arquivo XML. 

É isso, o arquivo XML é uma ótima alternativa para manter informações temporárias ou permamentes.

Até o próximo artigo!