[VB 6] cancellare nodi su file xml da VB6

[xonica]

ho un file: 'file.xml'

- <Modifiche>
  <Operazione ID="1">DELETE * FROM DatiGenerali WHERE Regione='Puglia' AND Provincia='Bari' AND Comune='Modugno'</Operazione> 
  <Operazione ID="1">INSERT INTO DatiGenerali (Regione, Provincia, Comune, Abitanti, Indirizzo, Numero, Cap, Telefono, Fax, Mail, Sito, SindacoNominativo, SindacoTelefono, SindacoFax, SindacoMail, DataElezione, AreaPolitica, RefAmministrativoNominativo, RefAmministrativoTelefono, RefAmministrativoFax, RefAmministrativoMail, CODGXG, txtNote, Aggiornato, DataAggiornamento) VALUES ('Puglia','Bari','Modugno','','via le mani', '','70026','','','','','Angelo','','','','12/11/2003','','','','','','1','',0,'')</Operazione> 
  <Operazione ID="1">DELETE * FROM DatiGenerali WHERE Regione='Puglia' AND Provincia='Bari' AND Comune='Modugno'</Operazione> 
  <Operazione ID="1">INSERT INTO DatiGenerali (Regione, Provincia, Comune, Abitanti, Indirizzo, Numero, Cap, Telefono, Fax, Mail, Sito, SindacoNominativo, SindacoTelefono, SindacoFax, SindacoMail, DataElezione, AreaPolitica, RefAmministrativoNominativo, RefAmministrativoTelefono, RefAmministrativoFax, RefAmministrativoMail, CODGXG, txtNote, Aggiornato, DataAggiornamento) VALUES ('Puglia','Bari','Modugno','','le mani', '','70026','','','','','Angelo','','','','12/11/2003','','','','','','1','',0,'')</Operazione> 
  <Operazione ID="1">DELETE * FROM DatiGenerali WHERE Regione='Puglia' AND Provincia='Bari' AND Comune='Modugno'</Operazione> 
  <Operazione ID="1">INSERT INTO DatiGenerali (Regione, Provincia, Comune, Abitanti, Indirizzo, Numero, Cap, Telefono, Fax, Mail, Sito, SindacoNominativo, SindacoTelefono, SindacoFax, SindacoMail, DataElezione, AreaPolitica, RefAmministrativoNominativo, RefAmministrativoTelefono, RefAmministrativoFax, RefAmministrativoMail, CODGXG, txtNote, Aggiornato, DataAggiornamento) VALUES ('Puglia','Bari','Modugno','','le mani', '','70026','','','','','Angelo Magrone','','','','12/11/2003','Alleanza Nazionale','','','','','1','',0,'')</Operazione> 
  <Operazione ID="1">DELETE * FROM DatiGenerali WHERE Regione='Puglia' AND Provincia='Bari' AND Comune='Modugno'</Operazione> 
  <Operazione ID="1">INSERT INTO DatiGenerali (Regione, Provincia, Comune, Abitanti, Indirizzo, Numero, Cap, Telefono, Fax, Mail, Sito, SindacoNominativo, SindacoTelefono, SindacoFax, SindacoMail, DataElezione, AreaPolitica, RefAmministrativoNominativo, RefAmministrativoTelefono, RefAmministrativoFax, RefAmministrativoMail, CODGXG, txtNote, Aggiornato, DataAggiornamento) VALUES ('Puglia','Bari','Modugno','','le mani', '','70026','','','','','Angelo Magrone','','','','12/11/2003','Alleanza Nazionale','','','','','1','',0,'')</Operazione> 
  <Operazione ID="2">DELETE * FROM DatiGenerali WHERE Regione='Puglia' AND Provincia='Bari' AND Comune='Modugno'</Operazione> 
  <Operazione ID="2">INSERT INTO DatiGenerali (Regione, Provincia, Comune, Abitanti, Indirizzo, Numero, Cap, Telefono, Fax, Mail, Sito, SindacoNominativo, SindacoTelefono, SindacoFax, SindacoMail, DataElezione, AreaPolitica, RefAmministrativoNominativo, RefAmministrativoTelefono, RefAmministrativoFax, RefAmministrativoMail, CODGXG, txtNote, Aggiornato, DataAggiornamento) VALUES ('Puglia','Bari','Modugno','','le mani', '','70100','','','','','Angelo Magrone','','','','12/11/2003','Alleanza Nazionale','','','','','1','',0,'')</Operazione> 
  </Modifiche>

ho bisogno di cancellare per esempio i nodi che hanno ID=1... si può fare e se si come si fa?

E' MOLTO IMPORTANTE E URGENTE

[xonica]

X CHI AVEVA VOGLIA DI RISPONDERE...... può anche non farlo dato che ho trovato la soluzione..

Dim xmldoc As DOMDocument
Dim docroot As IXMLDOMElement
Dim query As IXMLDOMNode

docroot.removeChild query
xmldoc.Save (App.Path & "\file.xml")

cmq rendo noto a tutti che ce un'ottima guida per apprendere l'uso dell'XLM con VB su www.html.it/xml/tutorial/

[Toeke]

Per completezza, la stavo sviluppando pure io :P

Dim MyXml        As New MSXML2.DOMDocument30
Dim ListaNodi    As IXMLDOMNodeList
Dim Elemento   As IXMLDOMElement
Dim i               As Integer

If MyXml.Load(App.Path & "\MyFile.xml") Then
  Set ListaNodi = MyXml.getElementsByTagName("Operazione")
  For i = 0 To ListaNodi.length - 1
    Set Elemento = ListaNodi.Item(i)
    If Elemento.getAttribute("ID") = "1" Then
      Call Elemento.parentNode.removeChild(Elemento)
    End If
    Set Elemento = Nothing
  Next i
  Set ListaNodi = Nothing
End If
Call MyXml.save(App.Path & "\MyFile.xml")