Показать сообщение отдельно
Старый 04.07.2012, 18:04   #3
Skalp
Пользователь
 
Регистрация: 01.12.2011
Сообщений: 52
По умолчанию

Что делать, если такие символы присутствуют в строчке с нужной мне информацией, не удалять же всю строчку? Взять ее отдельно в цикл, где будут удаляться только эти символы?
И еще, в строчках присутствуют и перевод и возврат каретки, и пробелы тоже, количество пробелов неизвестно. Что делать в таком случае?
------
Код:
procedure TForm1.Button1Click(Sender: TObject);
var s1,s2,s3: string;
    RegExp: TRegExpr;
begin
  s1:=memo1.Text;
  RegExp:=TRegExpr.Create;
  try
    RegExp.Expression:='<.*?>';
    if RegExp.Exec(s1) then
      repeat
        s2:=regexp.Match[0];
        s3:=copy(s1,1,pos(s2,s1)-1);
        Listbox1.items.Add(s3);
        delete(s1,1,pos(s2,s1)+length(s2)-1);
      until not RegExp.ExecNext;
    finally RegExp.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Lines.LoadFromFile('1.txt');
end;
Я загрузил текстовый файл, который мы парсим и модуль RegExpr на всякий случай.
Вложения
Тип файла: txt 1.txt (26.2 Кб, 125 просмотров)
Тип файла: zip RegExpr.zip (34.0 Кб, 6 просмотров)

Последний раз редактировалось Skalp; 04.07.2012 в 18:33.
Skalp вне форума Ответить с цитированием