Чтение данных из XML

[kifiro]

Есть XML файл на сервере, который постоянно обновляется, возникла проблема с его загрузкой, если с харда
XXX.load "c:\1.xml"

то как быть с загрузкой из интернета?

[Antonariy]

load прекрасно понимает интернет-адреса.

[kifiro]

Хм....
Пишу значит:

Код: Выделить всё

Set xmlParser = CreateObject("Msxml2.DOMDocument")
xmlParser.async = False
xmlParser.Load "http://xxx.ru/test.xml"
Set colNodes = xmlParser.getElementsByTagName("item")
For Each nodeProduct In colNodes
Label1.Caption = Label1.Caption + "-" + nodeProduct.getAttribute("x")
Label2.Caption = Label2.Caption + "-" + nodeProduct.getAttribute("y")
Next

Пустоту получаю, а если

Код: Выделить всё

xmlParser.Load "c:\test.xml"

Всё замечательно.

[dr.MIG]

А как насчёт после load подождать полной загрузки файла? Она ведь не мгновенно происходит и просто не успевает за скоростью выполнения кода.

[kifiro]

Ставил задержку, не помогло(

[Andrey Fedorov]

Типа так

Код: Выделить всё

    Do Until iПопытка > 10
        Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
        ' Создаем экземпляр объекта - XML парсера
        oXMLHTTP.Open "GET", sUrlRequest, False, StrReverse("shsdhj"), StrReverse("351423")
        oXMLHTTP.send
        If oXMLHTTP.Status = 200 Then
            If X.loadXML(oXMLHTTP.responseText) Then Exit Do
        End If
        If Not oXMLHTTP Is Nothing Then oXMLHTTP.abort: Set oXMLHTTP = Nothing
        DoEvents
        iПопытка = iПопытка + 1
    Loop


[ANDLL]

Типа так

Код: Выделить всё

    Do Until iПопытка > 10
        Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
        ' Создаем экземпляр объекта - XML парсера
        oXMLHTTP.Open "GET", sUrlRequest, False, StrReverse("shsdhj"), StrReverse("351423")
        oXMLHTTP.send
        If oXMLHTTP.Status = 200 Then
            If X.loadXML(oXMLHTTP.responseText) Then Exit Do
        End If
        If Not oXMLHTTP Is Nothing Then oXMLHTTP.abort: Set oXMLHTTP = Nothing
        DoEvents
        iПопытка = iПопытка + 1
    Loop


Довольно глупый по стилю код, а главное, "load прекрасно понимает интернет-адреса."

[kifiro]

Всем спасибо, задержка помогла!
Только почему-то браузер xml грузит намного быстрее чем load