Получить погоду с сайта

[MRGYV]

Добрый день!

Потаюсь получить погоду с сайта. Не приходит в голову как это можно сделать. Подскажите, пожалуйста.

http://meteoinfo.ru/pogoda

<th class="pogodacell2">Температура воздуха, °C</th>
<b>11</b>

#include <Inet.au3>
 $sHtml = _INetGetSource("http://meteoinfo.ru/pogoda")
$sVar = StringRegExpReplace($sHtml, '^(?:.*\\)([^\\]*?)(?:\.[^.]+)?$', "\1")
ConsoleWrite("$sVar = " & $sVar & @CRLF)

 

[MRGYV]

Попробовал сделать по аналогии с этим примером, но он выдает кучу кода, вместо одной цифры

$sUrl = 'http://www.gismeteo.ru/city/daily/5002/' 
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1') 
$oHTTP.Open('GET', $sUrl, False) 
$oHTTP.Send('') 
$oHTTP.WaitForResponse 
$sHTML = $oHTTP.ResponseText 
$sResult = StringRegExpReplace($sHTML, '(?si).*?<div\sclass="temp">([^<]*?)</.*', '$1') 
$sResult = StringReplace($sResult, '&deg;', '°') 
ConsoleWrite($sResult & @CRLF)

 

[Garrett]

Вы должны ответить на это, чтобы увидеть это содержание.

 

[sngr]

#include 'array.au3'
$oRequest = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oRequest.Open('GET', 'http://meteoinfo.ru/pogoda')
$oRequest.Send('')
$str=StringRegExp($oRequest.responsetext,'<td class=pogodacell>(?:<b>)?([^<]+)',3)
_ArrayDisplay($str)

 

[MRGYV]

Спасибо большое. То что нужно!
Заменил окончание на

MsgBox(0, '', 'Температура ' & $str[1] )