Olá,
Como o ficheiro XML não é muito grande, acho que com o seguinte código consegues resolver:
Segue abaixo o meu teste.
Abraço
Como o ficheiro XML não é muito grande, acho que com o seguinte código consegues resolver:
- Código:
Option Compare Database
Dim meuFicheiro As String, textoXml As String, textoLinha As String
Private Sub Comando0_Click()
meuFicheiro = Application.CurrentProject.Path & "\43140887456562000807550080001925541047421805-procNFe.xml"
Open meuFicheiro For Input As #1
Do Until EOF(1)
Line Input #1, textoLinha
textoXml = textoXml & textoLinha
Loop
Close #1
'MsgBox textoXml, vbInformation, "Conteodo do Xml"
MsgBox "Campo nNF: " & separaEntreDuasStringsXML(textoXml, "<nNF>", "</nNF>")
MsgBox "Campo xNome: " & separaEntreDuasStringsXML(textoXml, "<xNome>", "</xNome>")
MsgBox "Campo placa: " & separaEntreDuasStringsXML(textoXml, "<placa>", "</placa>")
End Sub
'2014 Alvaro Teixeira
Function separaEntreDuasStringsXML(strTotal As String, strInicio As String, strFim As String)
Dim i As Long, j As Long
i = InStr(strTotal, strInicio)
j = InStr(strTotal, strFim)
separaEntreDuasStringsXML = Mid(strTotal, i + Len(strInicio), j - i - Len(strInicio))
End Function
Segue abaixo o meu teste.
Abraço
- Anexos
- ler_xml_Line_Input.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (32 Kb) Baixado 589 vez(es)