Что нового

Подскажите как вытащить несколько значений со странички.

vaf

Новичок
Сообщения
164
Репутация
2
Добрый день, всех с наступившим, у меня такой вопрос.
Имеется список URL http://kuzneck.info/firm.php?id=107

Нужно вытащить оттуда следующие данные:
1. Автомобили
2. Транспортные услуги
3. ООО Автоколонна № 1178
4. г. Кузнецк ул. Трудовая 1
5. Директор 3-21-50, Гл. Инженер 2-82-71, Гл. Бухгалтер 2-82-71, Диспетчер 3-16-38
Посмотрел через DebugBar, там даже и зацепится не за что
Буду очень благодарен за подсказку.
 

`p r o x y

«Улыбайтесь, господа!»
Команда форума
Глобальный модератор
Сообщения
596
Репутация
157
Пример:
Код:
$sHtml = BinaryToString(InetRead('http://kuzneck.info/firm.php?id=107'))
If @error Then
	MsgBox(0, 'kuzneck.info', 'Ошибка: '& @error)
Else
	MsgBox(0, 'kuzneck.info', StringRegExpReplace($sHtml, '(?U)(?i)(?s)^.+<table width="90%">.+<td><p><b>(.*)</b></p></td>.+</table>.+$', '\1'))
EndIf
 
Автор
V

vaf

Новичок
Сообщения
164
Репутация
2
а не можешь привести пример StringRegExpReplace для второго значения ? чтобы я мог это все в цикле сделать ? а то дергает только первое значение
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
vaf
Через IE можно так попробовать:
Код:
include <IE.au3>
;#include <Array.au3>

$sMessage = ''
$oIE = _IECreate('http://kuzneck.info/firm.php?id=107')

$oTable = _IETableGetCollection($oIE, 10)
$aTableData = _IETableWriteToArray($oTable)
;ReDim $aTableData[UBound($aTableData)][4]
;_ArrayDisplay($aTableData)
For $i = 0 To 3
	$sMessage &= $aTableData[2][$i] & @CRLF
Next
MsgBox(64, 'Info', $sMessage)
$oLink_1 = _IELinkGetCollection($oIE, 49)
$oLink_2 = _IELinkGetCollection($oIE, 50)
MsgBox(64, 'Links Info', $oLink_1.innertext & ': ' & $oLink_1.href & @CRLF & _
		$oLink_2.innertext & ': ' & $oLink_2.href)
;_IEQuit($oIE)
 

`p r o x y

«Улыбайтесь, господа!»
Команда форума
Глобальный модератор
Сообщения
596
Репутация
157
vaf
Это пример, дальше, сами.
Для решений "сделайте все за меня" раздел Стол заказов.
 
Автор
V

vaf

Новичок
Сообщения
164
Репутация
2
madmasles Спасибо, как раз то что нужно, с меня плюсик
 
Верх