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

наверно тему можно закрывать, не для обсуждения оставлю здесь пример того, как это делается в одну строчку и без регулярных выражений (код – трэш, для ознакомления only)

Код:
procedure TForm1.scan2Click(Sender: TObject);
begin
  output.clear;
  // eat сожрать текст, до ... включительно
  // read прочитать текст до ...; и сожрать включительно
  // порядок имеет значение
  omg_scan(input.text, omg_output, [eat('Участников:</b>'), read('из'), read('</div>'), eat('</center><a href='), read(' ><b>')]);
end;
Вложения
Тип файла: zip scann.zip (2.5 Кбайт, 9 просмотров)
__________________
>woweook<
Ответить с цитированием