Índice

Solución 18.7 Realizar una consulta en un fichero XML

Sub SeleccionaAltitud()  
    Dim dblAltitudMini As Double  
    Dim dblAltitud As Double  
    Dim punto As MSXML2.IXMLDOMElement  
    Dim tracksegmento As MSXML2.IXMLDOMElement  
    Dim blnOK As Boolean  
    Dim objetoXML As MSXML2.DOMDocument60  
    Dim strRutaRecursos As String  
    Dim intNumPuntos As Integer  
    Dim intNumPunto As Integer  
    Dim intL As Integer  
    Call Ruta  
    strRutaRecursos = strRuta & _  
    "\Documentos XML\"  
  
    dblAltitudMini = Application.InputBox("Elija la altitud mínima", 1)  
    Set objetoXML = New MSXML2.DOMDocument60  
    blnOK = objetoXML.Load(strRutaRecursos & "RANDO.gpx")   ...