Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: cliv en Enero 10, 2013, 05:56:16 am

Título: clsXML - read worldweatheronline XML
Publicado por: cliv en Enero 10, 2013, 05:56:16 am

I try to read XML output from www.worldweatheronline.com using clsXML...but something went wrong...i can't read all tag..

Código: [Seleccionar]

    Dim cXML   As clsXML
    Dim cNode  As clsXML
   
    Dim i   As Long
    Dim j   As Long
   
    strXML = ""
   
    Set cXML = New clsXML
    Call cXML.Parse(App.Path & "\vremea.xml")
   
    For i = 1 To cXML.ParentNode.ChildrenCount
        strXML = strXML & vbCrLf & cXML.ParentNode.enumChild(i).Name
        Set cNode = cXML.ParentNode.enumChild(i)
        For j = 1 To cNode.ChildrenCount
            strXML = strXML & vbCrLf & "---" & cNode.enumChild(j).Name
        Next
    Next
   
    Text1.Text = strXML

    Set cXML = Nothing
    Set cNode = Nothing

Source code:
http://www.mediafire.com/download.php?9b9aaygurr6kdw9 (http://www.mediafire.com/download.php?9b9aaygurr6kdw9)

(http://s8.postimage.org/eqx9f6h91/XML.jpg)

What is wrong...Please Help

Título: Re:clsXML - read worldweatheronline XML
Publicado por: bebekbdg en Enero 12, 2013, 01:24:32 pm

maybe ini this
      <weatherIconUrl><![CDATA[http://www.worldweatheronline.com/images/wsymbols01_png_64/wsymbol_0001_sunny.png]]></weatherIconUrl>
      <weatherDesc><![CDATA[Sunny]]></weatherDesc>

      <weatherIconUrl><![CDATA[http://www.worldweatheronline.com/images/wsymbols01_png_64/wsymbol_0002_sunny_intervals.png]]></weatherIconUrl>
      <weatherDesc><![CDATA[Partly Cloudy]]></weatherDesc>

      <weatherIconUrl><![CDATA[http://www.worldweatheronline.com/images/wsymbols01_png_64/wsymbol_0003_white_cloud.png]]></weatherIconUrl>
      <weatherDesc><![CDATA[Cloudy]]></weatherDesc>

when i remove it... is not problem