|
|
|
Supreme Being
участник
Last Login: 14.12.2007 18:22
Сообщ.: 131,
Visits: 824
|
|
В VBScript использую поиск подстроки для звлечения даных из XML.
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", "http://informer.gismeteo.ru/rss/29574.xml", False, "111", "222"
xml.send ""
cache_content = xml.responseXML.xml
'Analyze [cache_content]
'далее ищем тэги:
s=1
tableEnd=0
For i=1 to 800
s=tableEnd+1
tableBegin=InStr(s,cache_content,"")<br>
tableEnd=InStr(s,cache_content,"")
If tableBegin=0 and tableEnd=0 Then
Exit For
End If
Response.Write "
i="&trim(i)&" tableBegin="&tableBegin&" tableEnd="&tableEnd
Response.Write right(left(cache_content,tableEnd),tableEnd-tableBegin)
s = tableBegin+1
tableBegin1=InStr(s,cache_content,"")
tableEnd1=InStr(s,cache_content,"")
Response.Write "
" '&" tableBegin="&tableBegin1&" tableEnd="&tableEnd1
Response.Write " "&right(left(cache_content,tableEnd1-1),tableEnd1-tableBegin1-13)&""
Next
Set xml = Nothing
Подскажите, как грамотно выполнить извлечение данных из XML?
|
|
|
|
|
Supreme Being
участник
Last Login: 14.12.2007 18:22
Сообщ.: 131,
Visits: 824
|
|
P.S.Анализируемый XML имеет следующую структуру:
-
-
GISMETEO.RU: Погода от ФОБОС и Мэп Мейкер
http://www.gismeteo.ru
Прогноз погоды по 2200+ городам России и Мира
60
-
GISMETEO.RU: Погода от ФОБОС и Мэп Мейкер
142
18
http://www.gismeteo.ru
http://img.gismeteo.ru/images/gismeteo2.gif
-
Красноярск: Утро 3 апр, Пн
http://www.gismeteo.ru/towns/29574.htm?1000000
облачно, без осадков, температура -18..-20 С, давление 752..754 мм рт.ст., ветер Юго-Западный, 1 м/с
Погода
http://informer.gismeteo.ru/rss/29574.xml
-
Красноярск: День 3 апр, Пн
http://www.gismeteo.ru/towns/29574.htm?1003137
облачно, без осадков, температура -7..-9 С, давление 751..753 мм рт.ст., ветер Южный, 1 м/с
Погода
http://informer.gismeteo.ru/rss/29574.xml
-
Красноярск: Вечер 3 апр, Пн
http://www.gismeteo.ru/towns/29574.htm?1086104
пасмурно, без осадков, температура -5..-7 С, давление 749..751 мм рт.ст., ветер Юго-Восточный, 1 м/с
Погода
http://informer.gismeteo.ru/rss/29574.xml
-
Красноярск: Ночь 4 апр, Вт
http://www.gismeteo.ru/towns/29574.htm?1020258
пасмурно, без осадков, температура -8..-10 С, давление 744..746 мм рт.ст., ветер Южный, 2 м/с
Погода
http://informer.gismeteo.ru/rss/29574.xml
|
|
|
|