Уважаемые, столкнулся с такой непростой задачкой, как работа с текстовым файлом сложной структуры. Нужно считать с него коды станций, номера платежей, суммы и коды статей. И дату. Желательно в табличку запихнуть для удобства работы. Единственный вариант, который приходит в голову, это построчное считывание и анализ. Подскажите какими методами такое можно провернуть?
Еще один маленький вопросик. Надо в табличку положить коды станций, но чет они у меня не хотят вставать как нужно и "размножаться". И еще как заставить стринггрид заполняться строка в соответствии с записями, а то я руками вбухал 200, что не есть хорошо. Во второй грид гружу по выборке.
procedure TForm4.Button5Click(Sender: TObject); var F:TextFile; //файл fName: String[100]; // имя файла buf: String[127]; //буфер для чтения строк i:integer; //шагалка stroka:string; //строка year,mounth:string; //месяц и год введение пользователем data1,data2:string; //дата считываемая и отображаемая name_stat:string; kod_stat:string; j:integer; kod_plateg:string; // код платежа
Kod_state:string; { begin if Form4.Edit3.Text=null then ShowMessage('Не указан год загрузки!!!'); exit; if Form4.ComboBox1.Text=null then ShowMessage('Не выбран месяц загрузки'); exit; }
begin
fName:=Form4.Edit1.Text; //забираем путь AssignFile(f,fName); try Reset(F); // открыть для чтения except on EInOutError do begin ShowMessage('Ошибка доступа к файлу'+fName); exit; end end; i:=1; j:=1; while not EOF(f) do
begin readln(f,buf); // прочитать строку из файла // длина строки в образце фиксированная.
if buf[27]='З' then Form4.Edit2.Text:=copy(buf,30,20);
if POS(':',buf[1])>0 then continue else begin if POS('(',buf[1])>0 then continue else begin if POS(' ',buf[1])>0 then continue;
if buf[1]='|' then begin if POS('ЕЛЕНИЕ',buf)>0 then continue else begin if POS('ПО СТАНЦИИ',buf)>0 then Form4.StringGrid1.Cells[5,j]:=copy(buf,17,7); if POS('СТАНЦИИ',buf)>0 then continue else begin if POS('ГО ПО ОТДЕ',buf)>0 then continue else begin if POS('ГО ПО ДОРО',buf)>0 then continue else begin Form4.StringGrid1.Cells[0,i]:=copy(buf,7,10); Form4.StringGrid1.Cells[1,i]:=copy(buf,20,3); Form4.StringGrid1.Cells[2,i]:=copy(buf,26,79); Form4.StringGrid1.Cells[3,i]:=copy(buf,106,13); Form4.StringGrid1.Cells[4,i]:=copy(buf,121,4);
if Form4.StringGrid1.Cells[0,i]<>' ' then name_stat:=Form4.StringGrid1.Cells[0,i];
if Form4.StringGrid1.Cells[0,i]=' ' then Form4.StringGrid1.Cells[0,i]:=name_stat;
if Form4.StringGrid1.Cells[5,i]<>'123' then Kod_stat:= Form4.StringGrid1.Cells[5,i]; // это я тут пытался присвоить имена if Form4.StringGrid1.Cells[5,i]='' then Form4.StringGrid1.Cells[5,i]:=Kod_stat; inc(j); inc(i); end; end; end; end; end; end; end; end;
CloseFile(f); // закрыть файл
begin mounth:=Form4.ComboBox1.Text; //месяц клиента year:=Form4.Edit3.Text; // год клиента data1:=mounth + ' ' + year + ' Г.';// дата клиента data2:=Form4.Edit2.Text; // дата из файла Form4.Edit4.Text:=data1; if data1<>data2 then begin ShowMessage('Дата загрузки не соответствует указанной дате'); Form4.Button6.Enabled:=False; end; if data1=data2 then begin ShowMessage('Дата ввода корректна'); Form4.Button6.Enabled:=True; Form4.ComboBox1.Enabled:=False; Form4.Edit3.Enabled:=False; end;
Form4.SocketConnection1.Connected:=false; Form4.SocketConnection1.Connected:=true; Form4.SocketConnection1.AppServer.openbase('ORA8','fs_master','fs'); kod_plateg:='select KOD_PLATEG_FO7 from SPR_PLATEG_FO7'; kod_state:='select KODEXP7 from SPR_MSTO where KODEXP <> 0 '; Form4.ClientDataSet1.close;
Form4.ClientDataSet1.DataRequest(kod_plateg); Form4.ClientDataSet1.open; // Form4.ClientDataSet1.DataRequest(kod_state); // Form4.ClientDataSet1.open; while not Form4.ClientDataSet1.eof do begin
for i := 1 to StringGrid1.RowCount - 1 do begin kod_plateg:=Form4.ClientDataSet1.fieldbyname('KOD_PLATEG_FO7').asstring; // kod_state:=Form4.ClientDataSet1.fieldbyname('KODEXP7').asstring;
if Form4.StringGrid1.Cells[1,i]= kod_plateg then //выборка нужных платежей begin Form4.StringGrid2.Cells[0,i]:=Form4.StringGrid1.Cells[0,i]; Form4.StringGrid2.Cells[1,i]:=Form4.StringGrid1.Cells[1,i]; Form4.StringGrid2.Cells[2,i]:=Form4.StringGrid1.Cells[2,i]; Form4.StringGrid2.Cells[3,i]:=Form4.StringGrid1.Cells[3,i]; Form4.StringGrid2.Cells[4,i]:=Form4.StringGrid1.Cells[4,i]; Form4.StringGrid2.Cells[5,i]:=Form4.StringGrid1.Cells[5,i];