Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #19643

Importare dati da file xml con VB6

Show all headers | View raw

Buongiorno a tutti.
Ho provato a cercare info senza trovarne.
Il mio problema è il seguente.
Apro dei files xml (fatture elettroniche) che hanno una certa struttura.
Con queste istruzioni verifico la corretta apertura:


Dim Obj As DOMDocument
Dim Verifica as boolean
Set Obj = New DOMDocument
Obj.async = False
Verifica = Obj.Load(App.Path & "\rfe\" & a)


poi per estrarre un singolo dato uso:

Set Nodo = Obj.documentElement.selectNodes("FatturaElettronicaBody/DatiGenerali/DatiGeneraliDocumento/Numero")
RnumeroFatt = 0
For Each Nome In Nodo
     RnumeroFatt = Val(Nome.Text)
Next

Se però devo fare un loop su una collezione devo fare:

Set Nodo = Obj.documentElement.selectNodes("FatturaElettronicaBody/DatiBeniServizi/DettaglioLinee")
For Each Nome In Nodo
    Set Nodo1 = Obj.documentElement.selectNodes("FatturaElettronicaBody/DatiBeniServizi/DettaglioLinee/NumeroLinea")
    For Each Nome1 In Nodo1
    Next Nome1
Next Nome

il problema è che non funziona perchè credo che il ciclo For Each non sia il modo giusto per recuperare i valori.
Come posso evitare il ciclo annidato prelevando direttamente il campo ?

Se necessario posso linkare il file xml.

Grazie in anticipo se qualcuno vorrà aiutarmi.
Cordiali saluti,
Lorenzo.

Back to it.comp.lang.visual-basic | Previous | Next — Next in thread | Find similar

Thread

Importare dati da file xml con VB6 Lorenzo Bonetto <bezvero@gmail.com> - 2019-09-30 03:25 -0700
  Re: Importare dati da file xml con VB6 "Sauro" <vicchi@crsscala.it> - 2019-10-11 11:10 +0200
  Re: Importare dati da file xml con VB6 "Sauro" <vicchi@crsscala.it> - 2019-10-11 11:30 +0200

csiph-web