[bulldog]

после цыфер идёт это
" target="_blank">...</a></b>

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

Ну будем считать, что там идет всегда после цифр без пробелов " target="
Тогда можно попробовать примерно так:

Код:

while Pos('view.php?ad=',str)>0 
do begin
    BPos := Pos('view.php?ad=',str)+12;
    EPos := Pos('" target="',str);
    ListView1.Items[0].SubItems.Append(Copy(str,BPos,EPos - BPos));
    Delete(str,1, BPos+12);
    end;

[bulldog]

не находит так не чего, колонки пустые
А если в
ListView1.Items[0].SubItems.Append(Copy(str,BPos,EPos - BPos));
делаю так

ListView1.Items[0].SubItems.Append(Copy(str,EPos - BPos));
то получаю в колонки et="_blank">...</a></b>
МИСТИКА, сделал так

Код:

while Pos('view.php?ad=',str)>0
do begin
    BPos := Pos('view.php?ad=',str)+12;
    EPos := Pos('" target="',str);
    Form2.ListView1.Items[0].SubItems.Append(Copy(str,BPos,BPos - EPos));
    Delete(str,1, BPos+12);

получаю номер ссылку, тоесть то что мне нада, но вместе с ним" target="_blank">...</a></b>

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

Пошагово пройдитесь отладчиком, посмотрите значения пременных в процессе выполнения и найдете ошибку. Может выложите кусок вашего текста для парсинга строк в 20. Можно будет тогда более детально посмотреть.

[bulldog]

Код:

<tr style="font-weight: bold;" bgcolor="#FFFF00"><td><a onclick="javascript: this.style.textDecoration='line-through';" href="view.php?ad=3270480"
 target="_blank">!!! АВТОВЫПЛАТЫ !!! ДОЛЛАРЫ !!! ИНОСТРАНЦЫ - ТЕ КТО ПЛАТЯТ !!!</a><td align="center" style="color: #f00;">20</td><td
 align="center">401 / 24 / 425</td><td align="center">1000</td><td align="center"><a href="abuse.php?ad=3270480" title="Подать жалобу" target=
"_blank"><img src="images/abuse.png" alt="Жалоба" border="0" /></a></td></tr><tr style="font-weight: bold;" bgcolor="0"><td><a onclick="javascript: this.style.textDecoration='line-through';" href="view.php?ad=3266636" target="_blank">Партнерка. Минимум 50 коп за клик. Выплата получена.</a><td align="center" 
style="color: #f00;">30</td><td align="center">919 / 41 / 960</td><td align="center">1500</td><td align="center"><a href="abuse.php?ad=3266636" title=
"Подать жалобу" target="_blank"><img src="images/abuse.png" alt="Жалоба" border="0" /></a></td></tr><tr style="font-weight: bold;" bgcolor="#FFFF00"><
td><a onclick="javascript: this.style.textDecoration='line-through';" href="view.php?ad=3266635" target="_blank">WMLINK - лучшая цена за клик!</a><td align="ce
nter" style="color: #f00;">30</td><td align="center">902 / 34 / 936</td><td align="center">1500</td><td align="center"><a href="abuse.php?ad=3266635"
 title="Подать жалобу" target="_blank"><img src="images/abuse.png" alt="Жалоба" border="0" /></a></td></tr><tr style="font-weight: bold;" bgcolor="0">
<td><a onclick="javascript: this.style.textDecoration='line-through';" href="view.php?ad=3266633" target="_blank">Самая лучшая кликовая партнерка!</a>
<td align="center" style="color: #f00;">30</td><td align="center">885 / 43 / 928</td><td align="center">1500</td><td align="center"><a href="abu
se.php?ad=3266633" title="Подать жалобу" target="_blank"><img src="images/abuse.png" alt="Жалоба" border="0" /></a></td></tr></table>
</div>

Нужно вытенуть цыфры в
href="view.php?ad=3268731" target="_blank">...</a><td align="center" style="color: #f00;">20</td><td align="center">609 / 30 / 639</td><td align="center">1040</td><td align="center"><a href="abuse.php?ad=3268731" title="Подать жалобу" target="_blank"><img src="images/abuse.png" alt="Жалоба" border="0" /></a></td></tr><tr style="font-weight: bold;" bgcolor="red"><td><a onclick="javascript: this.style.textDecoration='line-through';
длинна 3268731 может оказаться произвольной

[pesi]

Сравни код Страдальца и свой и найди отличия.

[bulldog]

Сравни код Страдальца и свой и найди отличия.

Я уже и код страдальца пробывал и переделывал его, у меня либо пусто, либо получаю нужную часть ссылки, вплоть до канцовки её

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

На вскидку, еще не проверяя даже код вижу, что есть отличия Длина искомой строки находится, как разница между ее концом и ее началом т.е. EPos - BPos, а вы делаете наоборот, но основная тонкость даже не в этом. Вы обрабатываете текст как строку, а текст-то у вас содержит еще и переводы каретки, вот и не находится в итоге нужного вхождения. Поэтому вам надо сначала избавится от ненужных спецсимволов, а уже потом искать шаблоны.
Попробуйте так:

Код:

str := StringReplace(str,#13#10,'',[rfReplaceAll]);
while Pos('view.php?ad=',str)>0
do begin
    BPos := Pos('view.php?ad=',str)+12;
    EPos := Pos('" target="',str);
    ListView1.Items[0].SubItems.Append(Copy(str,BPos,EPos - BPos));
    Delete(str,1, BPos+12);
    end

ПС: Учитесь пользоваться встроенным отладчиком.

[bulldog]

ПС: Учитесь пользоваться встроенным отладчиком.

Знать бы ещё где он находится

Попробуйте так:
Код:
str := StringReplace(str,#13#10,'',[rfReplaceAll]);
while Pos('view.php?ad=',str)>0
do begin
BPos := Pos('view.php?ad=',str)+12;
EPos := Pos('" target="',str);
ListView1.Items[0].SubItems.Append(Copy(str,BPos,EPos - BPos));
Delete(str,1, BPos+12);
end

Нечего не выводит

сначала избавится от ненужных спецсимволов, а уже потом искать шаблоны.
Попробуйте так:
Код:
str := StringReplace(str,#13#10,'',[rfReplaceAll]);
while Pos('view.php?ad=',str)>0
do begin
BPos := Pos('view.php?ad=',str)+12;
EPos := Pos('" target="',str);
ListView1.Items[0].SubItems.Append(Copy(str,BPos,BPos - EPos));
Delete(str,1, BPos+12);
end

Выводит, но с мусором, последний вариан хоть что то показывает

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

Или я чего-то не понимаю, или одно из двух. Я на вашем примере и с моим последнем вариантом кода получил нормальное заполнение столбца в ListView. Запустить отладчик очень просто, установите курсор на строку str := StringReplace(str,#13#10,'',[rfReplaceAll]); и вызвав локальное меню установите точку останова (Toggle breakpoint). Запустите программу и когда она остановится на этой строке, по клавише F7 выполняйте пошагово и смотрите значения переменных.

[bulldog]

так подождите, ведь #13#10-это интер или параграф, уже забыл как называется, а ''-это что тогда. И т.б. если правельней смотреть код страницы сайта то #13#10 там вобще нету, текст идёт плашмёй

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

Я ориентировался от текста который вы предложили ранее, там переводы каретки присутствовали. Возможно движок форумный превнес свои изменения. Теперь проверю с текстом из 11.txt

[bulldog]

Это не он, это я перенёс, что бы читался лучше

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

Так, становится понятно. Выйдете на меня по аське 561058055, я думаю так побыстрее будет.

[bulldog]

давай ты на меня, а то я не знаю антиспам пропустил меня или нет 41пять7три-три-ноль99