Что нового

Как спарсить ссылку внутри тега "td" определенного класса

eropov

Jury
Сообщения
195
Репутация
25
Пытаюсь спарсить ссылку из html страници, пробую так:
Код:
#include <IE.au3>
#include <Array.au3>

$sUrl = 'http://loveplanet.ru/a-search/d-1/pol-1/spol-2/bage-18/tage-29/foto-1/country-3159/region-4312/city-4400/relig-0/p-1'
$oIE = _IECreate($sUrl, 1, 1, 0)

$sHTML = _IEDocReadHTML ($oIE)
$aAnket = StringRegExp($sHTML, '(class="user_data"><a href="/page/[^/]+/frl\-[0-9]+/)', 3)
If IsArray($aAnket) = 1 Then
	_ArrayDisplay($aAnket)
EndIf
Ни чего не выходит. Хотя если парсить строку, а не весь html, то получается:

Код:
#include <Array.au3>

$oLink = '<td class="user_data"><a href="/page/asyatka1985/frl-2/" class="name" target="_blank">Настенька</a>'
$aAnket = StringRegExp($oLink, '(class="user_data"><a href="/page/[^/]+/frl\-[0-9]+/)', 3)
If IsArray($aAnket) = 1 Then
	_ArrayDisplay($aAnket)
EndIf

Скажите, что не так?
 

sngr

AutoIT Гуру
Сообщения
1,010
Репутация
408
Код:
$sUrl = 'http://loveplanet.ru/a-search/d-1/pol-1/spol-2/bage-18/tage-29/foto-1/country-3159/region-4312/city-4400/relig-0/p-1'
$inet=BinaryToString(InetRead($sUrl,1))
$str=StringRegExp($inet,'"(/page/\S+/\S+/)" class',3)
$res=''
For $i=0 To UBound($str)-1
	$res&='http://loveplanet.ru'&$str[$i]&@CRLF
Next
MsgBox(0,'',$res)
 

ggzgamer

Осваивающий
Сообщения
134
Репутация
23
Если внутри определённого тега, то необходимо

Код:
_IETagNameGetCollection($oIE, 'td')
 
Автор
E

eropov

Jury
Сообщения
195
Репутация
25
ggzgamer
Я пробовал по тегу, у меня не вышло.
sngr
То откуда взяты эти ссылки, одному богу известно, ни одна ссылка не соответствует ни одной анкете.
 

sngr

AutoIT Гуру
Сообщения
1,010
Репутация
408
Эти ссылки я взял с потолка.
Код:
$sUrl = 'http://loveplanet.ru/a-search/d-1/pol-1/spol-2/bage-18/tage-29/foto-1/country-3159/region-4312/city-4400/relig-0/p-1'
$inet=BinaryToString(InetRead($sUrl,1))
$str=StringRegExp($inet,'"(/page/\S+/\S+/)" class',3)
$res=''
;~ For $i=0 To UBound($str)-1
;~     $res&='http://loveplanet.ru'&$str[$i]&@CRLF
	Run(@ProgramFilesDir&"\Internet Explorer\iexplore.exe http://loveplanet.ru"&$str[1])
;~ Next
;~ MsgBox(0,'',$res)

Что-то ты несказанно тупишь, дружок.
 
Автор
E

eropov

Jury
Сообщения
195
Репутация
25
sngr
Что-то ты несказанно тупишь, дружок.
Попрошу следить за речью и да признаю, не доглядел, пример отличный :ok:

Кто нибудь пробовал, использовать код который я прикрепил к теме, если его запустить то будет видео что, страница уже загрузилась, а функции IE возвращают error. Скажите почему страници грузятся по 5 минут, можно ли это исправить?
 
Верх