Парсим текст, не могу вникнуть

[antoxamad]

Уважаемые форумчане возник вопрос, который требует срочного решения, нужна ваша помощь.
Имеется файл, который открываю в memo1 следующего содержания:

CCCC

ИЗ ТАЙГА
123123123123
МЕСТНЫМ ДОСТАВЛЕНО


FFFFFF


CCCC

ИЗ ТАЙГА
СОСИ НОГИ
МЕСТНЫМ ДОСТАВЛЕНО


FFFFFF

CCCC

ИЗ ТАЙГА
ВСЕ БУДЕТ ХОРОШО
МЕСТНЫМ ДОСТАВЛЕНО


FFFFFF

Назовем содержимое от СССС до FFFFFF телеграммой, грубо говоря имеется 3 телеграммы в данном случае. Количество считаю следующим образом:

procedure TForm1.kolzav;
var i, p, z: Integer;
begin
z:=0;

for i:=0 to memo1.Lines.Count do

begin

p:=Pos('CCCC', memo1.Lines.Strings[i]); //Если позиция в строке i <>0 то
if p<>0 then
begin
Inc(z); //увеличиваем счетчик заявок на 1
end;

end;

edt1.Text:=IntToStr(z);
end;

мне требуется каждую телеграмму распарсить, придать божеский вид так сказать:

ИЗ ТАЙГА
123123123123
МЕСТНЫМ ДОСТАВЛЕНО

ИЗ ТАЙГА
СОСИ НОГИ
МЕСТНЫМ ДОСТАВЛЕНО

ИЗ ТАЙГА
ВСЕ БУДЕТ ХОРОШО
МЕСТНЫМ ДОСТАВЛЕНО

собственно как сделать не соображу. подскажите пожалуйста...

[Step_UA]

var i,p, z: Integer;
 begin
 z:=0;
 for i:=Memo1.Lines.Count downto 1 do
   if (trim(memo1.Lines.Strings[i])='') or (memo1.Lines.Strings[i]='FFFFFF')
    then Memo1.Lines.Delete(i)
    else
     if memo1.Lines.Strings[i]='CCCC'
      then begin
       memo1.Lines.Strings[i]:='';
       inc(z)
      end;
 edit1.Text:=IntToStr(z);
 end;

[antoxamad]

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

var i,p, z: Integer;
 begin
 z:=0;
 for i:=Memo1.Lines.Count downto 1 do
   if (trim(memo1.Lines.Strings[i])='') or (memo1.Lines.Strings[i]='FFFFFF')
    then Memo1.Lines.Delete(i)
    else
     if memo1.Lines.Strings[i]='CCCC'
      then begin
       memo1.Lines.Strings[i]:='';
       inc(z)
      end;
 edit1.Text:=IntToStr(z);
 end;

ну это путь через удаление строк, а мне бы хотелось чтобы программа брала все содержимое от "CCCC" до "FFFFFF" и так ровно столько раз сколько у нас "CCCC" "FFFFFF". Вот как то так думаю

[Serge_Bliznykov]

посмотрите на функцию PosEx


примерно так:

var
  PosBegin, PosEnd : integer;
  str1, sOne : string;
begin
  { str1 := StringReplace( Memo1.Text, #13#10, '', [rfReplaceAll]); }
  str1 := Memo1.Text;
  PosBegin := PosEx('CCCC',str1,1);
  PosEnd := PosEx('FFFFFF',str1,PosBegin);

  while (PosBegin>0) and (PosEnd>PosBegin) do begin
    sOne := copy(str1, PosBegin+4{length('CCCC')}, PosEnd-PosBegin-4{length('CCCC')}); {тут в строку не включаются CCCC и не включается FFFFFF}
    ShowMessage('Телеграмма: '+sOne);

    PosBegin := PosEx('CCCC',str1,PosBegin+4);
    PosEnd := PosEx('FFFFFF',str1,PosBegin);
  end;
end;

p.s. код не проверял. просто как концепция...

[denisbrain]

в моей сборке delphi 7 не было "Function PosEx"

комментарии к функции

Новая функция PosEx, позволяет указать начальную позицию поиска внутри строки, что избавит вас от необходимости изменения исходной строки. Незабудьте указать модуль StrUtils.
Offset - позиция с которой производить поиск (по умолчанию =1 как стандартная pos)

Function PosEx(Const SubStr, S: String; Offset: Cardinal = 1): Integer;

var
I,X: Integer;
Len, LenSubStr: Integer;
begin
If Offset = 1 Then
   Result := Pos(SubStr, S)
Else
begin
   I := Offset;
   LenSubStr := Length(SubStr);
   Len := Length(S) - LenSubStr + 1;
   While I <= Len Do
   begin
     If S[I] = SubStr[1] Then
     begin
       X := 1;
       While (X < LenSubStr) And (S[I + X] = SubStr[X + 1]) Do
         Inc(X);
       If (X = LenSubStr) Then
       begin
         Result := I;
         Exit;
       End;
     End;
     Inc(I);
   End;
   Result := 0;
End;

End;

[Serge_Bliznykov]

в моей сборке delphi 7 не было "Function PosEx"
...
Не забудьте указать модуль StrUtils.

А Вы не забыли указать в uses модуль StrUtils ?!
Или и этот модуль целиком в вашей сборке не представлен?! (тогда в топку такую борку! )

[denisbrain]

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

А Вы не забыли указать в uses модуль StrUtils ?!
Или и этот модуль целиком в вашей сборке не представлен?! (тогда в топку такую борку! )

блин попутал

SysUtils
StrUtils

[antoxamad]

Всем огромное спс, тема закрыта.