программа нахождения и проверки символов/строк

[MixanMM]

ребят, извините что достал, но больше не могу, пытался сам, но не получаеться , помогите доделать программу, смысл такой, открывается файл, в нем куча текста, втексте присутствует такой символ после каждого заполненного поля в другой программе "|", после этого символа я разнес построчно весь текст, нужно сделать чтобы
1.открылся файл, в нем вытянуть номер заявки(2ая строка), дату(3я строка), счет(60ая строка), и еще кор счет(24ая строка)
2.в 60ой строке удалить пробелы и первые 20 символов сравнить со строкой номер 24.(сделал)
3.самое сложное. из компонента Тмемо1 загрузить в еомпонент ТМемо2 только 2,3,24,60 строк, кст пункт второй можно выполнить и тут, но проблема в том что в одном текстовом файле может быть как 2-3 платежки, так и штук 500, каждая платежка начинаеться с символов ZR, т.е получаеться после каждой ZR нужно 2,3,24,60 смотреть сравнивать, ну ит.д.(это я и самм сделаю) а вот как работать с файлом по признаку ZR ума не приложу, всем буду благодарен за подсказки/советы.
Листинг программы :

var
Form1: TForm1;
f1 : textFile;
date,no, s,c, str, stroka61: string;
i,z: integer;
implementation

{$R *.dfm}

procedure Tform1.doit();
Begin
Repeat
Begin
For z:=0 To Memo1.Lines.Count Do
If Pos('ZR',Memo1.Lines.Strings[z])>0 Then
Begin
Memo2.Lines.Add(Memo1.Lines.Strings[0]);
Memo2.Lines.Add(Memo1.Lines.Strings[1]);
{Memo2.Lines.Add(Memo1.Lines.String s[24]);
Memo2.Lines.Add(Memo1.Lines.Strings[59]);
{Memo1.Lines.Delete(z);}
End
Else
Memo1.Lines.Delete(20);
End;
Until Memo1.Lines.Count = 1 ;
stroka61:=memo2.lines[61];
s:=memo2.Lines[2];
{while pos(' ',s)>0 do
delete(s,pos(' ',s),1);
if s=stroka61 then showmessage('ñîâïàëà')
else ShowMessage ('Íåò')}
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Open.Execute
then from.Text :=Open.FileName
else exit;
Memo1.lines.loadfromfile(from.text) ;
s:=Memo1.Text;
for i:=1 to length(s) do
begin
if s[i]='|' then c:=c+#13 else c:=c+s[i];
end;
if c<>'' then
begin
Memo1.Clear;
memo1.Lines.text:=c;
end;
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
doit;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo2.clear;
Memo1.clear;
end;

end.

вообщем вкладываю файлы платежек, и принт скрин в нем описано что-где, воопще задача такая, счета сравнить, если не совпадают, то вывести на экран номер платежки и дату, (я там выделил), платежки в одном файле начинаються с ZR символа, (выделил), воопщем такая несложная(на первый взгяляд проблеммка) спасибо зарнее

[lexaltd]

Писал на скорую руку можеш переделать (так что прошу не надо говорить что автор не то просил , там много вопросов , самый главный был про 'ZR'), в мемо1 загружается твой файл (только тебе надо подкорективовать чтоб по строком разбивалось нормальмно) , потом в Мемо2 разбивается на платёжки по отдельности , а Мемо3 переносятся твои сроки там(2,3,24,60) у меня столько не получилось , но ты в своих платёжках лучше разбираешся

procedure TForm1.FormShow(Sender: TObject);
begin
 Memo1.Clear;
 Memo1.Lines.LoadFromFile('02750200.ZR7');
 Memo1.Text := AnsiReplaceStr(Memo1.Text, '||', #13#10);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
 s , s2 :string;
 i,i2,i3 : Integer;
begin
  Memo2.Clear;
  Memo3.Clear;
  i := 1;
  s := Memo1.Text;
  while i > 0 do
  begin
    i := AnsiPos('ZR', s);
    i2 := PosEx ('ZR', s,i +2);
    if i <> 0 then
     begin
       if (i <> 0) and (i2 = 0) then
         i2 := Length(s);
       s2 := Copy(s,i, i2 -i);
       Delete(s,1, i2 -1);
       ST := TStringList.Create;
       ST.Text := s2;

       for i3 := 0  to ST.Count -1 do
        begin
          Memo2.Lines.Add(ST.Strings[i3]);
        end;
       Memo2.Lines.Add(' ---------------------------- ');

       try
         Memo3.Lines.Add(ST.Strings[0]);//переносятся твои сроки там(2,3,24,60)  
         Memo3.Lines.Add(ST.Strings[1]);
        // Memo3.Lines.Add(ST.Strings[4]);
         //Memo3.Lines.Add(ST.Strings[5]);
       except

       end;

       Memo3.Lines.Add(' --------------------------- ');
     end;
  end;

end;

[MixanMM]

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

    i2 := PosEx ('ZR', s,i +2);

спасибо за код, но к сожалению эта функция в моем делфи не работает,( уменя Делфи 7), возможна ли альтернатива этой функции?

[Utkin]

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

ребят, извините что достал, но больше не могу, пытался сам, но не получаеться , помогите доделать программу, смысл такой, открывается файл, в нем куча текста, втексте присутствует такой символ после каждого заполненного поля в другой программе "|", после этого символа я разнес построчно весь текст, нужно сделать чтобы
1.открылся файл, в нем вытянуть номер заявки(2ая строка), дату(3я строка), счет(60ая строка), и еще кор счет(24ая строка)
2.в 60ой строке удалить пробелы и первые 20 символов сравнить со строкой номер 24.(сделал)
3.самое сложное. из компонента Тмемо1 загрузить в еомпонент ТМемо2 только 2,3,24,60 строк, кст пункт второй можно выполнить и тут, но проблема в том что в одном текстовом файле может быть как 2-3 платежки, так и штук 500, каждая платежка начинаеться с символов ZR, т.е получаеться после каждой ZR нужно 2,3,24,60 смотреть сравнивать, ну ит.д.(это я и самм сделаю) а вот как работать с файлом по признаку ZR ума не приложу, всем буду благодарен за подсказки/советы.

Вы случайно не для СЭД хотите формировать данные?

[MixanMM]

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

Вы случайно не для СЭД хотите формировать данные?

да! поможешь?

[lexaltd]

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

спасибо за код, но к сожалению эта функция в моем делфи не работает,( уменя Делфи 7), возможна ли альтернатива этой функции?

Добавь в uses StrUtils , у меня тоже Делфи 7

[MixanMM]

Unit1.pas(54): Incompatible types: 'String' and 'TStringList'
счя тут ругается

[lexaltd]

Вот весь код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, StrUtils;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Memo1: TMemo;
    BitBtn2: TBitBtn;
    Memo2: TMemo;
    Memo3: TMemo;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ST : TStringList;
implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 Edit1.Text := AnsiReplaceStr(Edit1.Text, ' ', '');
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
 s , s2 :string;
 i,i2,i3 : Integer;
begin
  Memo2.Clear;
  Memo3.Clear;
  i := 1;
  s := Memo1.Text;
  while i > 0 do
  begin
    i := AnsiPos('ZR', s);
    i2 := PosEx ('ZR', s,i +2);
   // ShowMessage(IntToStr(i) +' '+ IntToStr(i2));
    if i <> 0 then
     begin
       if (i <> 0) and (i2 = 0) then
         i2 := Length(s);
       s2 := Copy(s,i, i2 -i);
     // ShowMessage( s2);
       Delete(s,1, i2 -1);
       ST := TStringList.Create;
       ST.Text := s2;

       for i3 := 0  to ST.Count -1 do
        begin
          Memo2.Lines.Add(ST.Strings[i3]);
        end;
       Memo2.Lines.Add(' ---------------------------- ');

       try
         Memo3.Lines.Add(ST.Strings[0]);
         Memo3.Lines.Add(ST.Strings[1]);
        // Memo3.Lines.Add(ST.Strings[4]);
         //Memo3.Lines.Add(ST.Strings[5]);
       except

       end;

       Memo3.Lines.Add(' --------------------------- ');
     end;
  end;

end;

procedure TForm1.FormShow(Sender: TObject);
begin
 Memo1.Clear;
 Memo1.Lines.LoadFromFile('02750200.ZR7');
 Memo1.Text := AnsiReplaceStr(Memo1.Text, '||', #13#10);
end;

end.

[MixanMM]

все равно при компиляции ругаеться вот такой строкой nit1.pas(54): Incompatible types: 'String' and 'TStringList'

[lexaltd]

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

все равно при компиляции ругаеться вот такой строкой nit1.pas(54): Incompatible types: 'String' and 'TStringList'

Ну так покажи что у тебя находится в этой строке