|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Не получается правельно парсить
Сорри, за нубский вопрос, но не получилось страницу пропарсить, на наличее некоторых значений
Код:
var y:TStringStream; Otvet: String; begin y:=TStringStream.Create; Otvet1:=TStringStream.Create; begin HTTP_BUX.Get('http://' + сайт + Form2.Listview1.Items[w].SubItems[8],y,otvet1); If pos('pen.php', y.datastring)>0 then//вместо pen.php может стоять другое begin Otvet:= HTTP_BUX.Get('http://' + Url_Pay + '/pen.php'); Ur:= PosSrc(Otvet1); HTTP_BUX.Get('' + url +Ur); D:= SetTimeOutJS(Otvet); Sleep(D); Код:
<script type="text/javascript"> location.replace("http://Сайт.ru/"); </script> <noscript> <meta http-equiv="refresh" content="0; url=http://Сайт.ru/"> </noscript> <html> <head> <meta http-equiv="Pragma" content="no-cache"> <meta http-equiv="Expires" content="-1"> <title>///</title> <FRAMESET ROWS="35px,30px,90%,70px"> <FRAME marginwidth="0" marginheight="0" name="frminfo" scrolling="no" noresize NAME="a" SRC="1.php"> <FRAME NAME="b" SRC="3.php" STYLE="border-bottom:dashed 2px #191970;" SCROLLING="no" NORESIZE="noresize" MARGINHEIGHT="1" MARGINWIDTH="5"> <frame name="frmsite" src="http://Сайт.ru/"> <FRAME NAME="b" SRC="4.php" STYLE="border-bottom:dashed 2px #191970;" SCROLLING="no" NORESIZE="noresize" MARGINHEIGHT="1" MARGINWIDTH="5"> </FRAMESET> </head> </html> Код:
function PosSrc(ss: String): String; var B, E: Integer; begin B:= Pos('SRC="', ss)+5; E:= PosEx('"', ss, B); Result:= Copy(ss, B, E-B); end; Последний раз редактировалось bulldog, 19.11.2010 в 14:33. |