Ir para o conteúdo

Escrever E Ler Xml


Criado por Marcos A. Sanches, Dez 16 2011 14:50

Não há respostas para este tópico
  • Por favor, faça o login para responder

#1 Marcos A. Sanches

Marcos A. Sanches
  • Marcos A. Sanches
  • Colaborador
  • 3 Revisões
  • LocalizaçãoSao José dos Campos

Revisou 16 dezembro 2011 - 14:50

*
REVISÃO POPULAR!

Função escrever XML

Public Sub EscreverXml(ByVal Servidor As String, ByVal Usuario As String, ByVal Senha As String, ByVal Banco As String, ByVal Porta As String)

        Dim Writer As XmlWriter = XmlWriter.Create(Application.StartupPath & "\frutas.xml", Nothing)

        Try
            Writer.WriteStartDocument()

            Writer.WriteStartElement("tipos")

            Writer.WriteElementString("dado1", "Abacaxi")
            Writer.WriteElementString("dado2", "Pera")

            Writer.WriteEndDocument()
            Writer.Close()

            MsgBox("Arquivo Gerado com sucesso!", vbInformation, "Mensagem")
            Application.Restart()
        Catch ex As Exception
            MsgBox("Ocorreu um erro: " & ex.Message, vbCritical, "Erro")
        End Try
    End Sub

Função para leitura do xml

Public Function LeXML() As String()
        Dim Caminho As String = Application.StartupPath & "\frutas.xml"
        Dim Reader As New XmlDocument
        Dim Dados(2) As String

        Reader.Load(Caminho)

        'Fruta 1 
        Dados(0) = Reader.SelectSingleNode("tipos").ChildNodes(0).InnerText

        'Fruta 2
        Dados(1) = Reader.SelectSingleNode("configuracao").ChildNodes(1).InnerText

        Return Dados
End Function

Atenciosamente
Marcos.




1 usuário(s) está(ão) lendo este código

1 membro(s), 0 visitante(s) e 0 membros anônimo(s)