Sub test()
MsgBox RGD("060232", "620508")
End Sub
Function RGD(st1 As String, st2 As String)
Dim X()
Const sRGD = "http://cargo.rzd.ru/distance/public/ru?STRUCTURE_ID=5105&layer_id=5137&fromStationCode=СТАНЦИЯ1&toStationCode=СТАНЦИЯ2"
On Error Resume Next
sURL = Replace(sRGD, "СТАНЦИЯ1", st1)
sURL = Replace(sURL, "СТАНЦИЯ2", st2)
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
With oXMLHTTP
.Open "GET", sURL, False
.send
sHTMLBody = .responsetext
End With
Set oXMLHTTP = Nothing
S = sHTMLBody
S = Replace(S, Chr(9), "")
S = Replace(S, Chr(10), "")
S = Replace(S, Chr(13), "")
S = Replace(S, Chr(34), "")
S = Replace(S, Chr(32), "")
S = Replace(S, Chr(160), " ")
S = Replace(S, "<tr><td>КРАТЧАЙШЕЕРАССТОЯНИЕ:</td><td>", "|Q|")
S = Replace(S, "км.</td>", "|Q|")
m = Split(S, "|Q|")
If UBound(m) = 2 Then
RGD = m(1)
Else
RGD = "НЕ НАЙДЕНО!!!"
End If
End Function
Выдает {{deliveryDistance}} а не заветные 971. Подскажите, в чем проблема? Заранее признателен.
Ivan.kh, мне кажется скрипт не успевает отработать. Если сделать WEB Query, то видно, как страница загрузилась, а постом появляется дистанция и срок. а до этого там переменные.
не могу проверить трафик... но я бы посмотрела через Fiddler весь трафик... может линк отдельный запрашивается на вашу инфу... - т.е. не по линку страницы брать, а по доп. линку, который автоматом запрашивается с страницы без вашего ведома... в Fiddler'e видно всё что запрашивается/грузится при загрузке вашей страницы... и если, действительно, инфа идёт отдельным линком (который автоматом запрашивается/выводится со страницы вами запрашиваемой) -- то делать запрос на него напрямую И проставить заголовки RequestHeaders... вобщем советую раз познакомиться с Fiddler, чтобы всегда знать о трафике бОльше чем просто ваш линк в браузере... sorry что не могу проверить на практике сама, но из опыта я бы направила вас в Fiddler... поковырять весь трафик от данной страницы
чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок - обратитесь к собеседнику на ВЫ - ответ на ваш вопрос получите - а остальное вас не касается (п.п.п. на форумах)
или посмотреть sHTMLBody = .responseBody --- что вобщем-то, маловероятно, что проблема в этом...
чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок - обратитесь к собеседнику на ВЫ - ответ на ваш вопрос получите - а остальное вас не касается (п.п.п. на форумах)
чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок - обратитесь к собеседнику на ВЫ - ответ на ваш вопрос получите - а остальное вас не касается (п.п.п. на форумах)
Anchoret, Спасибо За участие, не понял как это в данной ситуации применить. JeyCi,спасибо за Fiddler, в нем увидел то, о чем выше писал doober (Это если правильно понял). Думал, что все не так сложно...