[bulldog]

Проверял программу и наткнулся на следующее, если при парсенге мы знаем что нужное нам слово состоит из 5 символов, то это good, а если меньше или больше как тогда поступить?
Ниже приведён код парсера которым подилился со мной pesi

PHP код:

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; 


[Страдалецъ]

Код:

 B:= Pos('SRC="', ss)+5;

Видимо вас 5 в этой строчке смутило:
Функция Pos возвратит позицию начала искомой строки SRC=", но поскольку вас интересует то что заключено в кавычки после этой строки, то там и добавляется длина SRC=" т.е. 5 символов, а уж какой длины слово между ковычками в коде не оговаривается.

[bulldog]

ну всё таки как узнать какой длинны слово в 'SRC="..."'

[Страдалецъ]

E-B и будет длина слова.

[bulldog]

так E-B у меня тут стоит Result:= Copy(ss, B, E-B); или я что не понял?

[Страдалецъ]

Функция Copy возвращает строку длиной E-B, а длина строки будет E-B это число
Почуствуйте разницу.

[bulldog]

B у меня 5 исмволов, а Е концовка, получается мне нада только убрать +5?

[pesi]

А почему В равна 5?

Код:

function PosSrc(S: String): String;
const
  Scr = 'src="';
var
    B, E: Integer;
begin
    B:= Pos(Scr, S) +Length(Scr);  { ищим Scr в S и прибавляем длинну Scr }
    { функция PosEx идентична Pos но она может искать с указанной позиции  }
    E:= PosEx('"', S, B); { здесь ищем '"' в S. Третий параметр тобишь "B"
    указывает на то с какой позиции начать поиск, вот для чего мы прибавляли длинну Scr
    если бы мы этого не сделали то PosSrc вернула бы "src="}
    Result:= Copy(S, B, E-B);  { копируем:
    "S" это строка из которой копируем,
    "B" здесь равна 22,
    "E" равна 36.
    Тобишь "B" указывает с какой позиции копировать
    "E-B" сколько символов скопировать(от 36 отняли 22 получили 14)}
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 a: string;
begin
  a:= '<img id="login" src="newcaptcha.php" width="80" height="20"';
  memo1.Text:= PosSrc(a);
end;

[bulldog]

Я про то что мне заведомо неизвестна длина интересующей меня ссылки,
[]
a:= '<img id="login" src="newcaptcha.php" width="80" height="20"';
[/]
это капча и так понятно, но меня интересует именно то что ссылка может содержать от 4 до 9 мож и больше символов, вот и спрашиваю есть ли способ при парсенге канкретней узнать её длинну, что бы выцыпить

[pesi]

А разве тут известно какой она длинны???

[Страдалецъ]

Не, ну блин такое впечатление, что общаются слепой с глухим, я уже не знаю как еще объяснить. Функия function PosSrc(ss: String): String; которую вы-же и давали возвращает ссылку независимо от ее длины. Функция ориентируется по ключевому слову src и кавычкам. Для примера:

Код:

a := PosSrc('<img id="login" src="newcaptcha.php" width="80" height="20"');

В а будет 'newcaptcha.php'
для такой строки:

Код:

a := PosSrc('<img id="login" src="123.php" width="80" height="20"');

В а будет '123.php'

[bulldog]

И я про тоже, тем более что ссылку на капчу я в пример давал, вот что канкретно меня интересует
view.php?ad=3237
view.php?ad=37
view.php?ad=64237
view.php?ad=129
view.php?ad=1237
вот как мне это опредилить?При том что я ищу по маске view.php?ad=

[pesi]

Сначала разберись с Copy, Pos, PosEx, Delete, а потом дальше лезь

[bulldog]

До сих пор использую этот код, т.к. парсер не могу настроить

Код:

while Pos('view.php?ad=',str)>0 do begin
ListView1.Items[0].SubItems.Append(Copy(str,Pos('view.php?ad=',str)+12,7));
Delete(str,1, Pos('view.php?ad=',str)+12);

то есть мне тут не хватает PosEX, а куда его ставить то?

[Страдалецъ]

Немножко не так:

Код:

Copy(str,Pos('view.php?ad=',str)+12,7)

Вот эта функция у вас будет возвращать 7 символов всегда, хотя судя по вашим примерам у вас эта величина произвольная. Надо знать какой символ/символы идут после циферек, вычислять их положение и уже потом подставлять вместо семерки.