Показать сообщение отдельно
  #9  
Старый 12.09.2012, 06:56
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

удивительно, но у меня тот код возвращает:
Код:
 0  *  32 * /tournaments/4970671/act=join&step=1 
 0  *  16 * /tournaments/4973598/act=join&step=1 
 3  *  16 * /tournaments/4970554/act=join&step=1 
 1  *  16 * /tournaments/4973288/act=join&step=1 
 0  *  32 * /tournaments/4970598/act=join&step=1 
(d7+скачанные perlregexp, wordwrap – false)

что бы тот код написать на коленке и он сразу заработал надо или быть гением, или же писать каждый день кучи такого хардкода
Код:
  if s[i+1]='ч' then
  if copy(s,i+2,8)='астников' then
    begin
    if s[i+18]='и' then //21-я после буквы "У", и между "0 из 32"
    begin
      t1:=s[i+16]; // 0 16-я после буквы "У"
      t2:=copy(s,i+21,2); //32  21-я после буквы "У",длина 2
      t3:=copy(s,i+106,36); //ccылка 106-я после буквы "У",длина 36
этот код никогда с первого раза никогда нормально не сработает, в моём случае вероятность рабочего кода с первого запуска намнооооого выше

если придётся уточнить код (из за ложных совпадений например)
в моём случае всё делается очевидным образом
в вашем – сколько времени придётся подбирать правильные циферки, и сколько циклов добавить?

имхо всё очевидно:
если не знаете "X", нет желания изучать "X" (возможно и по объективным причинам) => не надо оправдывать это "производительностью", так и скажите: не знаю, нет желания.
(в "X" можете подставить: регулярные выражения, ООП, agile?, ...)

ни один человек знающий регулярки не будет писать ту жесть, если только он не под по дулом пистолета. наверно потому что дураки, и придумали регулярки тоже дураки
__________________
>woweook<
Ответить с цитированием