|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
после цыфер идёт это
" target="_blank">...</a></b> |
#17
|
||||
|
||||
Ну будем считать, что там идет всегда после цифр без пробелов " 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; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#18
|
|||
|
|||
не находит так не чего, колонки пустые
А если в 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); Последний раз редактировалось bulldog, 24.08.2010 в 13:23. |
#19
|
||||
|
||||
Пошагово пройдитесь отладчиком, посмотрите значения пременных в процессе выполнения и найдете ошибку. Может выложите кусок вашего текста для парсинга строк в 20. Можно будет тогда более детально посмотреть.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#20
|
|||
|
|||
Код:
<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 может оказаться произвольной Последний раз редактировалось bulldog, 24.08.2010 в 14:19. |
#21
|
||||
|
||||
Сравни код Страдальца и свой и найди отличия.
|
#22
|
|||
|
|||
Цитата:
|
#23
|
||||
|
||||
На вскидку, еще не проверяя даже код вижу, что есть отличия Длина искомой строки находится, как разница между ее концом и ее началом т.е. 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 Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 24.08.2010 в 20:43. |
#24
|
|||
|
|||
Цитата:
Цитата:
Цитата:
|
#25
|
||||
|
||||
Или я чего-то не понимаю, или одно из двух. Я на вашем примере и с моим последнем вариантом кода получил нормальное заполнение столбца в ListView. Запустить отладчик очень просто, установите курсор на строку str := StringReplace(str,#13#10,'',[rfReplaceAll]); и вызвав локальное меню установите точку останова (Toggle breakpoint). Запустите программу и когда она остановится на этой строке, по клавише F7 выполняйте пошагово и смотрите значения переменных.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 24.08.2010 в 22:09. |
#26
|
|||
|
|||
так подождите, ведь #13#10-это интер или параграф, уже забыл как называется, а ''-это что тогда. И т.б. если правельней смотреть код страницы сайта то #13#10 там вобще нету, текст идёт плашмёй
Последний раз редактировалось bulldog, 24.08.2010 в 23:27. |
#27
|
||||
|
||||
Я ориентировался от текста который вы предложили ранее, там переводы каретки присутствовали. Возможно движок форумный превнес свои изменения. Теперь проверю с текстом из 11.txt
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#28
|
|||
|
|||
Это не он, это я перенёс, что бы читался лучше
|
#29
|
||||
|
||||
Так, становится понятно. Выйдете на меня по аське 561058055, я думаю так побыстрее будет.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#30
|
|||
|
|||
давай ты на меня, а то я не знаю антиспам пропустил меня или нет 41пять7три-три-ноль99
|