COMO LER XML E MOSTRAR NUM LABEL
Tenho o xml abaixo que é do programa de imposto de renda de 2010 (Pessoa fÃsica)
Já tentei de tudo e não consigo ler os nodes
Estou fazendo assim para abrir o arquivo:
Dim arqXML As String = [Ô]C:\Dados\TesteXml\iddeclaracoes.xml[Ô]
Dim doc As New XmlDocument
doc.Load(arqXML)
Até aqui eu consegui abrir, mas como eu consigo os nomes dos nodes?
Porque se eu descobrir o nome, aà acho que é assim:
Dim Teste1 As String = objXml.SelectSingleNode([Ô]Nome do node[Ô]).ChildNodes(0).InnerText
Obrigado pela atenção,
segue o xml da receita federal
<?xml version=[Ô]1.0[Ô] encoding=[Ô]UTF-8[Ô]?>
<classe xmlns=[Ô]http://www.receita.fazenda.gov.br/declaracao[Ô] classeJava=[Ô]serpro.ppgd.irpf.ColecaoIdDeclaracao[Ô] tipoItens=[Ô]serpro.ppgd.irpf.IdentificadorDeclaracao[Ô]>
<item
cpf=[Ô]000.000.000-00[Ô]
declaracaoRetificadora=[Ô]0[Ô]
enderecoDiferente=[Ô]0[Ô]
exercicio=[Ô]2010[Ô]
nome=[Ô]MEU NOME AQUI[Ô]
numReciboDecRetif=[Ô][Ô]
numeroReciboDecAnterior=[Ô]000000000000[Ô]
tipoDeclaracao=[Ô]1[Ô]
tipoEspolio=[Ô]0[Ô]
transmitida=[Ô]0[Ô]/>
</classe>
Já tentei de tudo e não consigo ler os nodes
Estou fazendo assim para abrir o arquivo:
Dim arqXML As String = [Ô]C:\Dados\TesteXml\iddeclaracoes.xml[Ô]
Dim doc As New XmlDocument
doc.Load(arqXML)
Até aqui eu consegui abrir, mas como eu consigo os nomes dos nodes?
Porque se eu descobrir o nome, aà acho que é assim:
Dim Teste1 As String = objXml.SelectSingleNode([Ô]Nome do node[Ô]).ChildNodes(0).InnerText
Obrigado pela atenção,
segue o xml da receita federal
<?xml version=[Ô]1.0[Ô] encoding=[Ô]UTF-8[Ô]?>
<classe xmlns=[Ô]http://www.receita.fazenda.gov.br/declaracao[Ô] classeJava=[Ô]serpro.ppgd.irpf.ColecaoIdDeclaracao[Ô] tipoItens=[Ô]serpro.ppgd.irpf.IdentificadorDeclaracao[Ô]>
<item
cpf=[Ô]000.000.000-00[Ô]
declaracaoRetificadora=[Ô]0[Ô]
enderecoDiferente=[Ô]0[Ô]
exercicio=[Ô]2010[Ô]
nome=[Ô]MEU NOME AQUI[Ô]
numReciboDecRetif=[Ô][Ô]
numeroReciboDecAnterior=[Ô]000000000000[Ô]
tipoDeclaracao=[Ô]1[Ô]
tipoEspolio=[Ô]0[Ô]
transmitida=[Ô]0[Ô]/>
</classe>
Com o código abaixo, eu consegui ler os atributos do elemento item.
Dim xmlDoc As New XmlDocument()
xmlDoc.Load(Application.StartupPath.Replace([Ô]bin\Debug[Ô], [Ô][Ô]) & [Ô]XMLFile1.xml[Ô])
Dim noList As XmlNodeList = xmlDoc.GetElementsByTagName([Ô]item[Ô])
For i As Integer = 0 To noList.Count - 1
Dim xmlAttr As XmlAttributeCollection = noList(i).Attributes
MessageBox.Show([Ô]CPF: [Ô] & xmlAttr([Ô]cpf[Ô]).Value & [Ô] | Nome: [Ô] & xmlAttr([Ô]nome[Ô]).Value)
Next
Putz, valeu mesmo
A solução dos dois ficou perfeita, para minhas necessidades.
Pena que não dá pra votar nas duas repostas como melhor.
A solução dos dois ficou perfeita, para minhas necessidades.
Pena que não dá pra votar nas duas repostas como melhor.
Tópico encerrado , respostas não são mais permitidas