LEITURA DO XML

THIGO 08/06/2007 11:08:45
#220322

Amigos estou com problemas para fazer uma leitura do xml por eu nao entender muito do assunto gostaria de vcs uma ajuda o arquivo esta logoa abaixo so que ele e meio grandinho vc poderia me dar uma dica aonde posso começar e ler esse arquivo ou se vcs tem uma ideia de como eu fazer

desde ja agradeço

THIGO 08/06/2007 11:10:13
#220323

Amigos achei no site macoratti um exemplo de leitura, como eu poderia adptar ele em meu projeto para ler esse xml ai vai ele em anexo

ESLEYSANCHES 08/06/2007 11:12:17
#220324

Amigo, logo abaixo tem artigos que vão te ajudar pra caramba:

XML Ã¢Ã¢â€šÂ¬Ã¢â‚¬Å“ Introdução
http://www.macoratti.net/xml.htm

VB 6 - Integrando XML com VB
http://www.macoratti.net/xml_vb.htm

GERA XML A PARTIR DE UM BANCO DE DADOS - Minha autoria
http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=6288

Aqui no site
XML

Espero que te ajude !!
Abraços !!

THIGO 08/06/2007 12:17:17
#220353

- <cabecalho>
- <identificacaoTransacao>
  <tipoTransacao>ENVIO_LOTE_GUIAS</tipoTransacao> 
  <sequencialTransacao>13</sequencialTransacao> 
  <dataRegistroTransacao>2007-05-22</dataRegistroTransacao> 
  <horaRegistroTransacao>10:18:56</horaRegistroTransacao> 
  </identificacaoTransacao>
- <origem>
+ <codigoPrestadorNaOperadora>
  <CNPJ>02222222222222</CNPJ> 
  </codigoPrestadorNaOperadora>
  </origem>
- <destino>
  <registroANS>654321</registroANS> 
  </destino>
  <versaoPadrao>2.01.01</versaoPadrao> 
  </cabecalho>
- <prestadorParaOperadora>
- <loteGuias>
  <numeroLote>013</numeroLote> 
- <guias>
- <guiaFaturamento>
- <guiaSP_SADT>
- <identificacaoGuiaSADTSP>
  <registroANS>951623</registroANS> 
  <dataEmissaoGuia>2007-05-14</dataEmissaoGuia> 
  <numeroGuiaPrestador>741852</numeroGuiaPrestador> 
  </identificacaoGuiaSADTSP>
  <numeroGuiaPrincipal>258147</numeroGuiaPrincipal> 
- <dadosAutorizacao>
  <dataAutorizacao>2007-05-14</dataAutorizacao> 
  <senhaAutorizacao>6665</senhaAutorizacao> 
  <validadeSenha>2007-05-14</validadeSenha> 
  </dadosAutorizacao>
- <dadosBeneficiario>
  <numeroCarteira>123456</numeroCarteira> 
  <nomeBeneficiario>MARIA DE CARVALHO DOS SANTOS</nomeBeneficiario> 
  <nomePlano>VIP</nomePlano> 
  </dadosBeneficiario>

Amigo Como eu classico o arquivo xml tipo campo CNPJ trazer assim para mim

CNPJ = 1111111111

e assim como eu faço com os demais obrigado

USUARIO.EXCLUIDOS 08/06/2007 13:04:49
#220365

dim v as variant,s as string
xml="<CNPJ>123123123</CNPJ>"
v =split(xml,"<CNPJ>")
s = v(ubound(v))
v =split(s,"</CNPJ>")
s = v(lbound(v))

s vai ser = 123123123

THIGO 08/06/2007 13:05:31
#220366

Alguem poderia me ajudar

THIGO 08/06/2007 13:08:16
#220368

Amigo carrego assim

 Set myXML = New DOMDocument
    
    myXML.resolveExternals = True
    myXML.validateOnParse = True
    myXML.async = False
    myXML.Load (App.Path & "\ArquivoTESTE4.xml")
    
    If myXML.parseError.reason <> "" Then
       MsgBox myXML.parseError.reason & vbCrLf & _
            "Line: " & myXML.parseError.Line & vbCrLf & _
            "Pos: " & myXML.parseError.linepos
       Exit Sub
    End If
    
    
    For Each x In myXML.documentElement.parentNode
'Aqui como eu faço para pegar um por um dessa maneira ele tras tudo e nao do tipo que mostrei se alguem  poder ajudar agradeço        
Text1.Text = Text1.Text & x.childNodes(0).Text
                                  
    Next

THIGO 08/06/2007 13:39:23
#220381

Alguem saberia me ajudar obrigado

LCSD 08/06/2007 22:28:21
#220458

de uma olhada neste [txt-color=#ff0000]exemplo[/txt-color] q postei...ele faz leitura de pagina xml.....aproveite o codigo para implementar sua aplicação

THIGO 11/06/2007 08:31:30
#220607

Amigo nesse exemplo compreendi um pouco gostaria de uma juda se vc saberia como eu faço para pegar o restante exemplo

nesse arquivo como eu faço para pegar o restante dos dados tipo esse exemplo que o foxman passou ele pega o x.nodename que e por exemplo o "cabecalho" e assim vai como e que eu faço para pegar depois "identificacaoTransacao", "tipoTransacao ", "sequencialTransacao" e assim vai gostaria muito da ajuda de vcs por eu nao entender muito de xml obrigado o codigo que estou usando e esse

MousePointer = 11
    Dim xlink As String
    Set myXML = New DOMDocument
    myXML.resolveExternals = True
    myXML.validateOnParse = True
    myXML.async = False
    xlink = "C:\Documents and Settings    hiago\Desktop\ArquivoTESTE4.xml"
    myXML.Load (xlink)
    For Each X In myXML.documentElement.childNodes
        Select Case X.nodeName
               'Aqui Seria o cabecalho
               Case Is = "Cabeçalho"
                   'Aqui queria pegar fazendo outro select case a "identificacaoTransacao" e assim em diante como eu faço  

                   text1 = UCase$(X.childNodes(0).Text)
               Case Is = "sequencialTransacao"
                    Text2 = UCase$(X.childNodes(0).Text)
        End Select
    Next
End Sub

- <cabecalho>
- <identificacaoTransacao>
<tipoTransacao>ENVIO_LOTE_GUIAS</tipoTransacao>
<sequencialTransacao>13</sequencialTransacao>
<dataRegistroTransacao>2007-05-22</dataRegistroTransacao>
<horaRegistroTransacao>10:18:56</horaRegistroTransacao>
</identificacaoTransacao>
- <origem>
- <codigoPrestadorNaOperadora>
<CNPJ>02222222222222</CNPJ>
</codigoPrestadorNaOperadora>
</origem>
- <destino>
<registroANS>654321</registroANS>
</destino>
<versaoPadrao>2.01.01</versaoPadrao>
</cabecalho>
- <prestadorParaOperadora>
- <loteGuias>
<numeroLote>013</numeroLote>
- <guias>
- <guiaFaturamento>
- <guiaSP_SADT>
- <identificacaoGuiaSADTSP>
<registroANS>951623</registroANS>
<dataEmissaoGuia>2007-05-14</dataEmissaoGuia>
<numeroGuiaPrestador>741852</numeroGuiaPrestador>
</identificacaoGuiaSADTSP>
<numeroGuiaPrincipal>258147</numeroGuiaPrincipal>

THIGO 11/06/2007 09:27:41
#220615

e ae Alguem poderia me ajudar obrigado

Página 1 de 2 [13 registro(s)]

Tópico encerrado , respostas não são mais permitidas

Voltar