В текстовом файле, все строки, разной длины. В строках имеются - спец-символы, буквы, цифры и пробелы...
Пример строк:
'a1~a1.aa' тут текст 'a1~a1.aa' тут текст 'a1~a1.aa' тут текст 'a1~a1.aa'
"b2~b2.bb) тут текст "b2~b2.bb) тут текст "b2~b2.bb)
c1~c3.cc тут текст c1~c3.cc тут текст
Вопрос: Как вытащить, все значения, с текстового файла - что находяться между - любыми спец-символами и в которых имеются (обязательно) символы плюс (~ и .). То есть текст может находится между любыми спец-символами и длина текста, между спец-символами может быть разной....
В итоге, должен получится результат:
a1~a1.aa
a1~a1.aa
a1~a1.aa
a1~aa.aa
b2~b2.bb
b2~b2.bb
b2~b2.bb
c1~c3.cc
c1~c3.cc
Пробовала составить регулярное выражение вот так вот (не корректно работает):
\b[A-Za-z0-9._%+-]+~[A-Za-z0-9.-]+\.[A-Za-z]{2,6}\b
Какое, правильное, регулярное выражение - для этой задачи или, в данном случае, можно обойтись без регулярных выражений ?... Знаю что задача не простая... поэтому и прошу помощи.
Дополнение (делаю так) к ответу пользователя - Uladzimir Palekh:
procedure TForm1.Button1Click(Sender: TObject);
var
fall, f1: TextFile;
S: string;
i: integer;
RegExp: TRegExpr;
begin
RegExp := TRegExpr.Create;
if OpenDialog1.Execute then
begin
AssignFile(fall, OpenDialog1.FileName);
reset(fall);
AssignFile(f1, ExtractFileDir(OpenDialog1.FileName) + '\Save_Rez.txt');
rewrite(f1);
RegExp.Expression := '["':;
^! + \ - ()\[\]\ \ { } \ / <> ,.# & $]([0 - 9 a - zA - Z] +
~[0 - 9 a - zA - Z] + \.[0 - 9 a - zA - Z] + )
['":;^!+\-()\[\]\\{}\/<>,.#&$]';
while not Eof(fall) do
begin
ReadLn(fall, S);
if (RegExp.Exec(S)) then
writeln(f1, S);
end;
CloseFile(fall);
CloseFile(f1);
end;
end;
end;
end.