Foros del Web » Programando para Internet » ASP Clásico »

Recoger datos de un XML

Estas en el tema de Recoger datos de un XML en el foro de ASP Clásico en Foros del Web. Alguien me puede orientar o dar algun ejemplo de como recoger algunos datos del siguiente XML: http://www.meteo.cat/servmet/opendat...i_comarcal.xml Muchas gracias!...
  #1 (permalink)  
Antiguo 09/03/2011, 14:35
 
Fecha de Ingreso: abril-2007
Mensajes: 85
Antigüedad: 17 años
Puntos: 0
Recoger datos de un XML

Alguien me puede orientar o dar algun ejemplo de como recoger algunos datos del siguiente XML:

http://www.meteo.cat/servmet/opendat...i_comarcal.xml

Muchas gracias!
  #2 (permalink)  
Antiguo 10/03/2011, 00:51
Avatar de Julcar  
Fecha de Ingreso: noviembre-2007
Ubicación: C:\inetpub\wwwroot\Guayaquil
Mensajes: 1.507
Antigüedad: 16 años, 5 meses
Puntos: 54
Respuesta: Recoger datos de un XML

Código ASP:
Ver original
  1. <&#37;
  2. Class XMLParser
  3.   Private sFile
  4.   Private oXML
  5.  
  6.   Public Property Get LoadXML(file)
  7.     sFile = file
  8.   End Property
  9.  
  10.   Private Sub Class_Initialize
  11.     Set oXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
  12.   End Sub
  13.  
  14.   Public Sub OpenXML()
  15.     oXML.Load(sFile)
  16.     oXML.Async = False
  17.   End Sub
  18.  
  19.   Public Sub SaveXML(path)
  20.     oXML.Save(path)
  21.   End Sub
  22.  
  23.   Public Function ReadAttribute(node, attr)
  24.     Dim sNode, sAttr
  25.    
  26.     Set sNode = oXML.GetElementsByTagName(node)
  27.    
  28.     sAttr = sNode.item(0).getAttribute(attr)
  29.     ReadAttribute = sAttr
  30.   End Function
  31.  
  32.   Public Function ReadNode(node)
  33.     Dim sNode, vNode, n
  34.  
  35.     Set sNode = oXML.GetElementsByTagName(node)(0)
  36.     vNode = sNode.childnodes(0).nodevalue
  37.     ReadNode = vNode
  38.   End Function
  39.  
  40.   Public Function CountNodes(node)
  41.     Dim sNode, vNode, n
  42.     Set sNode = oXML.GetElementsByTagName(node)
  43.     vNode = sNode.length
  44.     CountNodes = vNode
  45.   End Function
  46. End Class
  47. %>

Algo que hice y me ha sacado de muchos dolores de cabeza
__________________
Linux no es el único S.O. libre, conoce a ReactOS el Windows Libre!
"Si mis respuestas te dan la calma, espárceme un poco de karma"

Etiquetas: recoger, xml
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:39.