Что нового

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

Статус
Закрыто для дальнейших ответов.

Pavel

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

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
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.')
 
Автор
P

Pavel

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

Noober

Новичок
Сообщения
16
Репутация
0

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5 379
Репутация
2 711
Re: Помогите спарсить

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


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

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

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

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
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

Новичок
Сообщения
16
Репутация
0
Re: [Сеть, интернет] Помогите спарсить нужную информацию из html

Спасиб
 
Статус
Закрыто для дальнейших ответов.
Верх