Помогите спарсить нужную информацию из html

[Pavel]

Просидел около двух часов, но так и не сумел решить задачу.
Есть страница http://www.rosinvest.com/kurs/ или http://www.rosinvest.com/
Нужно получить в переменную курс USD.
Буду рад помощи.

 

[madmasles]

Pavel
Попробуйте так:

#include <IE.au3>

$sText = ''
$oIE = _IECreate("http://www.rosinvest.com/kurs/", 0, 0)

$oTableAll = _IETableGetCollection($oIE)
$iNumTables = @extended
For $i = 0 To $iNumTables - 1
	$oTable = _IETableGetCollection($oIE, $i)
	$aTableData = _IETableWriteToArray($oTable)
	If StringInStr($aTableData[0][0], 'Код') Then ExitLoop
Next
_IEQuit($oIE)
For $i = 0 To UBound($aTableData, 2) - 1
	If StringInStr($aTableData[0][$i], 'USD') Then
		$sText = $aTableData[2][$i] & ' - курс в рублях: ' & $aTableData[3][$i]
		ExitLoop
	EndIf
Next
MsgBox(0, '', $sText)

Или так:

#include <Inet.au3>

$sPattern = '(?s).*?\Qvalue="USD|\E(.*?)\Q">Доллар США\E.*'
$sString = _INetGetSource("http://www.rosinvest.com/kurs/")
$sResult = StringRegExpReplace($sString, $sPattern, '\1')
MsgBox(0, 'Курс USD:', $sResult & ' рублей за 1 USD.')

 

[Pavel]

Благодарю за помощь!
Именно вторым вариантом пытался решить проблему. Не подскажите, на последок - где можно почитать про специфические обозначения типа (.s)?

 

[Noober]

[Сеть, интернет] Помогите спарсить нужную информацию из html

Есть страница
http://www.spboms.ru/kiop/main?page_id=45&type_id=2&last_name=%C8%C2%C0%CD%CE%C2&policy_serial=%CD%CA%CE&policy_number=%38%30%35%37%34%34%32

С неё из раздела "Результат поиска" нужно спарсить инфу ФИО, СМО, Полис, Тип договора и запихну в MsgBox .

 

[Yashied]

Re: Помогите спарсить

Предупреждение

За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Как правильно называть темы

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

С уважением, Модератор форума.

 

[madmasles]

Re: [Сеть, интернет] Помогите спарсить нужную информацию из html

Noober
Попробуйте так:

#include <IE.au3>

$sUrl = 'http://www.spboms.ru/kiop/main?page_id=45&type_id=2&last_name=%C8%C2%C0%CD%CE%C2&policy_serial=%CD%CA%CE&policy_number=%38%30%35%37%34%34%32'
$oIE = _IECreate($sUrl)
$sText = _IEBodyReadText($oIE)
_IEQuit($oIE)
$sText = StringRegExpReplace($sText, '(?s).*?(ФИО.*?Тип договора.*?)\r\n?.*', '\1')
MsgBox(0, '', $sText)

 

[Noober]

Re: [Сеть, интернет] Помогите спарсить нужную информацию из html

Спасиб