Нужно вытащить их файлика текст между определёнными символами...

[Оптимист]

Добрый день.
Хотел бы спросить каким образом можно "вытащить" кусочки текста из текстового файла, нужный текст находится в специальных символах "+| и |+" ("+|" начало нужного кусочка, "|+" конец). Нужно чтобы каждый кусочек "вытаскивался" в новую строку.
Сам текст находится вот тут.
Если у кого то будет свободное время то буду очень благодарен за помощь.

[Sazary]

А что непонятно и что не получается?
Читаете файл посимвольно. Если установлен флаг, то при этом пишем символы в строку. Если встретили '+', то читаем следующий символ. Если это '|', то устанавливаем флаг. Если наоборот, сначала '|' а потом '+', то сбрасываем флаг.

[Оптимист]

Непонятно как это организовать и какие компоненты использовать.
А ещё непонятно как за два года я разучился программировать на делфи, ведь раньше всё было отлично а сейчас когда надо что то написать нечего не получается, приходиться обращаться за помощью на различные сообщества и форумы.

[Sazary]

Непонятно как это организовать

Так, как я написал.

и какие компоненты использовать.

Ну, кнопку для начала работы, и, например, Memo, для целевого тескта.

Вы начните, а когда зайдете в тупик, тогда уже и спрашивайте.

[Оптимист]

У строк есть такой караметр параметр номер символа, есть ли такое у Мемо?

Вот пока что получилось, но что то мне подсказывает что не так всё нужно реализовывать.

unit TextGrab;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Memo2: TMemo;
    IdAntiFreeze1: TIdAntiFreeze;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
s:string;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//Memo1.Lines.LoadFromFile('1.txt');
Memo1.Lines.Text:='<h2>КАТАЛОГ САЙТОВ :: , +|julia_olimp@mail.ru,vfrcbv|+ - поиск по тегу</h2>';
Memo2.Lines.Text:='';
s:=Memo1.Lines.Text;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,ni:integer;

begin
i:=0;
for i:=0 to length(s) do
if s[i]='+' then Break;
if s(i+1)='|' then begin
for j:=ni+2 to length(s) do begin
Edit2.Text:=Edit2.Text+s(j);
if s(j)='|' then Break;
end;
end;
if s(j+1)='+' then Break;
end;
end.

[Sazary]

Вот. На форме два Мемо (первый - для текста, второй - для результата) и кнопка.

procedure TForm1.FormCreate(Sender: TObject);
begin
//Memo1.Lines.LoadFromFile('1.txt');
Memo1.Lines.Text:='<h2>КАТАЛОГ САЙТОВ :: , +|julia_olimp@mail.ru,vfrcbv|+ - поиск по тегу</h2>';
Memo2.Lines.Text:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,len:integer;
fl : boolean;
s : string;
begin
fl := false;
s := Memo1.Text;
len := length(s);
i:=1;
while i<=len do
 begin
 if s[i]='+' then
  begin
  if i+1<=length(s) then
   if s[i+1]='|' then
    begin
    fl := true;
    inc(i);
    end;
  end
 else if s[i]='|' then
  if i+1<=length(s) then
   if s[i+1]='+' then
    begin
    fl := false;
    inc(i);
    end;
 if fl then Memo2.Text := Memo2.Text + s[i];
 inc(i);
 end;

end;

[Оптимист]

Благодарю.
Буду разбираться и вспомнить

[Dj_smart]

Sazary, старый добрый pos никто еще не отменял
text - текст

var
  text,str:string;
begin
  text:='<h2>КАТАЛОГ САЙТОВ :: , +|julia_olimp@mail.ru,vfrcbv|+ - поиск по тегу</h2>';
  while pos('+|',text)<>0 do begin
    str:=copy(text,pos('+|',text)+2,pos('|+',text)-1);
    delete(text,1,pos('|+',text)+2);
    //и делаем чо хошь со строкой str, это вытянутый кусок :)';
  end;
end.

[Sazary]

Сообщение от Dj_smart

Sazary, старый добрый pos никто еще не отменял

Знаю ) Просто изначально речь шла о файле. Вот я и написал, чтобы было легко переделать.

[Оптимист]

Сообщение от Dj_smart

Sazary, старый добрый pos никто еще не отменял
text - текст

var
  text,str:string;
begin
  text:='<h2>КАТАЛОГ САЙТОВ :: , +|julia_olimp@mail.ru,vfrcbv|+ - поиск по тегу</h2>';
  while pos('+|',text)<>0 do begin
    str:=copy(text,pos('+|',text)+2,pos('|+',text)-1);
    delete(text,1,pos('|+',text)+2);
    //и делаем чо хошь со строкой str, это вытянутый кусок :)';
  end;
end.

Спасибо и за такой вариант, но изначально у меня огромный файл в котором очень много таких кусочков и думаю что первый вариант проще изменить