[vb6 - xml - dom]

smorrea

Nuovo Utente
29 Gen 2009
1
0
0
Ciao a tutti,
scusate se mi presento subito con una richiesta di aiuto ma al momento mi sembra di non avere altro in mente se non la soluzione di questo problema.
Parto dal presupposto di avere un file XML con queste caratteristiche:
<Entry>
Dato1
Dato2
etc
<Details>
<Detail>
Dato1
Dato2
etc
<Detail>
Dato1
Dato2
etc
<Detail>
Dato1
Dato2
Etc
</Detail>
</Detail>
</Detail>
</Details>
</Entry>

Come si puo' evincere , la prima parte del file è classico e di facile lettura. <Entry>. Ma è nella parte relativa ai 3 sottonodi <Detail> che iniziano i problemi.
Cioè , è vero che impostando :
Set nomedato = elemento.SelectNodes("Entry/Details/Detail/Dato1")
Set nomedato2 = elemento.SelectNodes("Entry/Details/Detail/Dato2")
Set nomeETC = elemento.SelectNodes("Entry/Details/Detail/Etc")

io accedo anche al primo sottonodo ma negli altri non riesco ad entrarci , ovvero non riescio a leggere correttamente i dati in esso contenuti.
Impostando un contatore di array mi da dei valori che sono subito sotto il nodo o addirittura i valori del nodo precedente.
Insomma un vero disastro.
Penso che la soluzione sarebbe quella di rinominare i 3 sottonodi con un nome univoco ma non so da dove cominciare per poterlo fare.
Allego alla presente il file XML zippato per l'eventuale visione.
Il mio codice di lettura è invece classico:

Dim obj As DOMDocument
Dim ritorno As IXMLDOMNodeList
Dim dettaglio As IXMLDOMNodeList
Dim elemento As IXMLDOMElement
Dim nodo As IXMLDOMNode

' CARICO IL FILE XML
Set obj = New DOMDocument
obj.async = False
obj.Load App.Path & "\sviluppo\" & tipo_gioco & ".xml"
Set elemento = obj.documentElement

' RECUPERO IL NODO CHE MI INTERESSA
Set ritorno = elemento.SelectNodes("Entry/Return")
Set evento = elemento.SelectNodes("Entry/Event")
Set betkind = elemento.SelectNodes("Entry/BetKind")
Set runner = elemento.SelectNodes("Entry/Runner")
Set bettype = elemento.SelectNodes("Entry/BetType")
Set Description = elemento.SelectNodes("Entry/Description")
Set dataevento = elemento.SelectNodes("Entry/Date")
Set Guid = elemento.SelectNodes("Entry/GUID")
Set isnew = elemento.SelectNodes("Entry/IsNew")
Set detectiondate = elemento.SelectNodes("Entry/DetectionDate")


For x = 0 To ritorno.Length - 1

MSFlexGrid1.Row = riga: MSFlexGrid1.col = colonna
MSFlexGrid1.Text = ritorno(x).Text
colonna = colonna + 1: MSFlexGrid1.col = colonna
MSFlexGrid1.Text = evento(x).Text
colonna = colonna + 1: MSFlexGrid1.col = colonna
MSFlexGrid1.Text = tipo_gioco
colonna = colonna + 1: MSFlexGrid1.col = colonna
MSFlexGrid1.Text = betkind(x).Text
colonna = colonna + 1: MSFlexGrid1.col = colonna
MSFlexGrid1.Text = runner(x).Text
colonna = colonna + 1: MSFlexGrid1.col = colonna
MSFlexGrid1.Text = bettype(x).Text
colonna = colonna + 1: MSFlexGrid1.col = colonna
MSFlexGrid1.Text = Description(x).Text
colonna = colonna + 1: MSFlexGrid1.col = colonna
MSFlexGrid1.Text = dataevento(x).Text
colonna = colonna + 1: MSFlexGrid1.col = colonna
MSFlexGrid1.Text = Guid(x).Text
colonna = colonna + 1: MSFlexGrid1.col = colonna
MSFlexGrid1.Text = isnew(x).Text
colonna = colonna + 1: MSFlexGrid1.col = colonna
MSFlexGrid1.Text = detectiondate(x).Text
colonna = 0: riga = riga + 1

Next x

'esco pulito
Set nodo = Nothing
Set ritorno = Nothing
Set elemento = Nothing
Set obj = Nothing


Grazie a tutti

Gaspare
 

Allegati

  • Soccer.zip
    16,8 KB · Visite: 267
Discussioni simili
Autore Titolo Forum Risposte Data
StephenSoftware [Visual Basic] Da VB6 a VB.NET Visual Basic 0
G Conversione da VB6 a PHP PHP 8
P [Visual Basic] Copiare file piu' grandi di 2 gb in vb6 senza usare filecopy,usando get e put Visual Basic 6
M [MySql - VB6 sp6] Problema connessione db con alcuni pc (errore Lost connection to MySQL server...). MySQL 1
V [Visual Basic] trovare versione di un .exe con vb6 Visual Basic 0
M VB6 Errore di run-time '91' Programmazione 2
A Ricerca interno RichTexbox Vb6 Presentati al Forum 1
P Rubrica in Vb6 Visual Basic 0
Z [VB.NET] equivalente del comando Attribute (vb6) in VB.NET .NET Framework 1
Z [VB6] Variabile Booleana e Load Form Visual Basic 1
Z [VB6] Listview Visual Basic 0
Z [VB6] Mschart / Listview Visual Basic 0
D VB6 Copiare contenuto di una cartella in un'altra cartella Visual Basic 1
C vb6 query sbagliata Visual Basic 1
T Programmatore vb6 Offerte e Richieste di Lavoro e/o Collaborazione 0
WorldWideWeb Invio SMS da VB6 Visual Basic 0
WorldWideWeb PDF e TXT in un form VB6 Visual Basic 0
WorldWideWeb Invio e-mail tramite oggetto CDO - VB6 Visual Basic 1
WorldWideWeb PictureBox.Circle (VB6) Visual Basic 1
S VB6 da checkbox a variabile Visual Basic 1
M webbrowser vb6 che non clicca bottone Visual Basic 0
c.ronaldo Winsock Problema (VB6) Programmazione 0
Q VB6 Caricamento spezzettato matrici di controlli Programmazione 0
M [VB6] Crystal report e Autenticazione Win MSSQL Programmazione 0
B vb6 Num Pari e Dispari Programmazione 3
B vb6 stampa foglio A4 Programmazione 18
C [VB6] visibilità delle variabili/matrici Programmazione 1
B VB6 e crystal report Visual Basic 0
B VB6 Conoscere l'id di un Rs appena creato Programmazione 2
B [Vb6] Stampare etichette su carta Visual Basic 5
O [vb6 e/o c++] connettersi a db access onlined a locale C/C++ 0
C [VB6] Ruotare e salvare due immagini. Visual Basic 0
S [VB6]parametri Programmazione 0
S [VB6]file dati Programmazione 0
A inviare informazioni con VB6 su un sito tramite GET o POST Programmazione 0
B salvataggio area excel in formato gif in vb6 Programmazione 0
X Controllo se record esistente(VB6) Visual Basic 1
C VB6 - XpressSideBar Programmazione 0
B Da XML a TXT x4 XML 0
B ciclare file xml con PHP PHP 1
P Rimozione automatica url da sitemap.xml con PHP PHP 1
P Modifica con PHP di un node in una sitemap xml PHP 0
M modificare un file .XML da database Sql PHP 13
T Da xsd a xml ed inserimento dati in excel XML 0
C Problema con dati meteo xml XML 1
R Cerco esperto XML Offerte e Richieste di Lavoro e/o Collaborazione 0
E [PHP] creare temporary table per dati da xml PHP 2
G XML raccolta brani XML 1
P [CERCO] Webmaster per cataloghi prodotti csv/xml Offerte e Richieste di Lavoro e/o Collaborazione 3
S aggiornare valore di un elemento xml con php PHP 8

Discussioni simili