Не получается правельно парсить

bulldog · #1 19.11.2010, 08:06

Сорри, за нубский вопрос, но не получилось страницу пропарсить, на наличее некоторых значений

Код:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

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);

Мне надо было пропарсить первое и второе или третье значение, первое мне нужно для слипа и http://Сайт.ru/ , а третье и четвёртое не нужно, хотел получить

Код:

    <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 · #2 19.11.2010, 14:30

Пробывал так

Код:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

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.В первом посте получаемый код подредактировал на полный

Уже даже пробывал так

Код:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

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/

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты