|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
 |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
19.11.2010, 08:06
|
|||
|
|||
Не получается правельно парсить
Сорри, за нубский вопрос, но не получилось страницу пропарсить, на наличее некоторых значений
Код:
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. |
|
#2
19.11.2010, 14:30
|
|||
|
|||
|
Пробывал так
Код:
begin
y:=TStringStream.Create;
HTTP_BUX.Get('http://' + Сайт,y);
yy:=y.DataString;
while Pos('" src="http://', yy) > 0
do begin
Delete(str, 1, Pos(' src="', yy) + 7);
EPos := Pos('">', yy);
with Form2.ListView1
do begin
Form2.ListView1.AddItem(System.Copy(yy, 1, EPos-1), nil);
System.Delete(yy, 1, EPos+4);
Items[z].SubItems.Append(System.Copy(yy, 1, EPos-1));
end;
Delete(yy, 1, EPos+3);
end;P.S.В первом посте получаемый код подредактировал на полный Уже даже пробывал так Код:
y:=TStringStream.Create;
HTTP_BUX.Get('http://' + Url_Pay + '/view.php?ad=' + Form2.Listview1.Items[w].SubItems[8],y);
yy:=y.DataString;
while Pos('src="', yy) > 0
do begin
Delete(str, 0, Pos('src=', yy) + 5);
EPos := Pos('">', yy);
with Form13.ListView1
do begin
AddItem(System.Copy(yy, 1, EPos-1), nil);
System.Delete(yy, 1, EPos+2);
Items[z].SubItems.Append(System.Copy(yy, 1, EPos-1));
System.Delete(yy, 1, EPos+4);
Items[z].SubItems.Append(System.Copy(yy, 1, EPos-1));
end;
Delete(yy, 1, EPos+3);
end;Код:
<FRAME marginwidth="0" marginheight="0" name="frminfo" scrolling="no" noresize NAME="a" SRC="1.php"> <FRAME NAME="b" SRC="2.php" STYLE="border-bottom:dashed 2px #191970;" SCROLLING="no" NORESIZE="noresize" MARGINHEIGHT="1" MARGINWIDTH="5"> <frame name="frmsite" src="http://Сайт.ru/"> 1.php, 2.php и http://Сайт.ru/  Последний раз редактировалось bulldog, 19.11.2010 в 18:33. |
Линейный вид
