Что делать, если такие символы присутствуют в строчке с нужной мне информацией, не удалять же всю строчку? Взять ее отдельно в цикл, где будут удаляться только эти символы?
И еще, в строчках присутствуют и перевод и возврат каретки, и пробелы тоже, количество пробелов неизвестно. Что делать в таком случае?
------
Код:
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 на всякий случай.