Buongiorno a tutti!
Sto cercando di estrarre specifici elementi dalle fatture elettroniche XML nella cartella "fattureXML", per inserirli in un datagridview, nel seguente ordine: Denominazione, FormatoTrasmissione, Telefono, Comune, Telefono e Email.
-<FatturaElettronicaHeader>
-<DatiTrasmissione>
-<IdTrasmittente>
<IdPaese>IT</IdPaese>
<IdCodice>1020304050</IdCodice>
-</IdTrasmittente>
-<ProgressivoInvio>01GGAA</ProgressivoInvio>
-<FormatoTrasmissione>AABBCC</FormatoTrasmissione>
-<ContattiTrasmittente>
<Telefono>1020304050</Telefono
<Email></Email>
</ContattiTrasmittente>
</DatiTrasmissione>
-<CedentePrestatore>
-<DatiAnagrafici>
-<IdFiscaleIVA>
<IdPaese>IT</IdPaese>
<IdCodice>123456789</IdCodice>
</IdFiscaleIVA>
<CodiceFiscale>4928569285</CodiceFiscale>
-<Anagrafica>
<Denominazione>PincoPallino SRL</Denominazione
</Anagrafica>
<RegimeFiscale>RF01</RegimeFiscale>
</DatiAnagrafici>
-<Sede>
<Indirizzo>Viale Inventato, 50</Indirizzo>
<CAP>50102</CAP>
<Comune>Esempio</Comune>
<Provincia>XXX</Provincia>
<Nazione>IT</Nazione>
</Sede>
-<IscrizioneREA>
<Ufficio>XXX</Ufficio>
<NumeroREA>090807</NumeroREA
<CapitaleSociale>50000.00</CapitaleSociale
<SocioUnico>AB</SocioUnico
<StatoLiquidazione>BOH</StatoLiquidazione>
</IscrizioneREA>
-<Contatti>
<Telefono>0123456789</Telefono>
<Fax>010203456789</Fax
<Email></Email>
</Contatti>
</CedentePrestatore>
-</FatturaElettronicaHeader>
Sto provando da circa una settimana, ho cercato ovunque su internet e su alcuni libri, ma non riesco ad ottenere un risultato decente.
Attualmente sto provando con questo codice:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim fattureXML As String
fattureXML = "C:\Users\Tizio\Desktop\Files\fattureXML"
For each FattureXML in fattureXML
Dim opf2 As New OpenFileDialog
opf2.Filter = "XML FILES | *.xml"
If opf2.ShowDialog = DialogResult.OK Then
Dim bs As New BindingSource
Dim editflag As Boolean = False
'Dim filepath As String = opf2.FileName
Dim deflection As New DataSet
Try
deflection.ReadXml(opf2.FileName)
bs.DataSource = deflection.Tables(5)
DataGridView2.DataSource = bs
Catch ex As Exception
MsgBox("Errore")
End Try
End If
End Sub
End For
Domanda forse sciocca: per le cartelle esiste un percorso C:\Users\Tizio\Desktop\Files\MieiFiles, esiste anche per i file XML, per raggiungere più specifici dati, ad esempio quelli che ho indicato all'inizio della discussione?
Spero possiate aiutarmi, sono davvero in difficoltà. Vi ringrazio in anticipo.
Lorenzo