Анализ требований к автоматизированным информационным системам

//и тогда  проверка в следующех пустых строках не происходит, а будет проверятся пустая строка, следующая за заполненной, т.е. когда npcol < col

              begin

                npcol := sb_e;

                str_excel := str_excel + str_excelP;

                str_excel2 := str_excel2 + str_excel2P;

              end

              else Break; //если данных нет на 20 ячейках,  то прерыв цикла прохожд. по  строке Екселя

            end

            else  //if npcol < col then //иначе включаем  текущую пустую ячейку в суммарную  строку

            begin

              //str_excel := str_excel + s_excel + Edit1.Text;

              //str_excel2 := str_excel2 + s_excel;

            end;

{// проверка  на пустоту 20 последующих яч. начиная  с первой встретившейся пустой, у каждой стоки (слишком долгая)

            for sb_e := col to 20 do

            begin

              s_excel := XL.Workbooks[1].Worksheets[nom_list].Cells[str, sb_e].value;

              str_pust := str_pust + s_excel;

            end;

            if str_pust = '' then Break  //если данных нет на 20 ячейках, то прерыв цикла прохожд. по строке Екселя

            else  //иначе включаем текущую  пустую ячейку в суммарную  строку

            begin

              str_excel := str_excel + s_excel + Edit1.Text;

              str_excel2 := str_excel2 + s_excel;

            end;

}

          end;  //else  //if s_excel <> '' then //проверка на пустоту столбцов екселя

        end;  //for col := 1 to col_k do  //цикл по столбцам листа от 1 по col_k

//проверка  наличия пустых строк не доходя  до конца листа

        if str <= Rows then

          if str_excel2 <> '' then //проверка на пустоту  при формировании строки без  разделителя

          begin

            Writeln(f_txt, str_excel);  //вывод в ф.тхт  построчно

            str_excel := ''; str_excel2 := '';

          end

          else //if str_excel2 <> '' then

          begin

            str_pust := '';

            for st_e := str + 1 to 20 do //прохождение вниз  по 20 строкам Екселя для поика  на них данных

              for sb_e := 1 to col_k do

              begin

                s_excel := XL.Workbooks[1].Worksheets[nom_list].Cells[st_e, sb_e].value;

                str_pust := str_pust + s_excel;

              end;

            if str_pust = '' then Break  //если данных  нет на 20 строках, то прерыв цикла прохожд. по листу Екселя

            else Writeln(f_txt, str_excel) //иначе выводим  текущую пустую строку с разделителями

          end;  //else //if str_excel2 <> '' then

      end;  //for str := str_n to Rows do //цикл по строкам от начальной по Rows листа екселя

      //Writeln(f_txt, ''); //вставка пустой строки, отделяющей листы

      CloseFile(f_txt);

      if CheckBox3.Checked then //заполнение списка  ф.тхт отдельно файлами по мере  записи

      begin

        s := path_txt + '\' + name_f_txt_list + ''#0;

        ListBox2.Perform(LB_DIR, DDL_ReadWrite, Longint(@S[1]));  //заполняем список .txt

      end;

      ProgressBar2.Position := 0;

    end;  //for nom_list := 1 to kol_list_excel do //цикл по количесву листов екселя

    //CloseFile(f_txt);

    xl.Workbooks.Close;

    ProgressBar1.Position := n;

    //xl.ActiveWorkbook.Close;

  end;  //if (CheckListBox1.Checked[i]) then  //если файл выбран

end;  //for i:=0 to CheckListBox1.Items.Count - 1 do //цикл по строкам CheckListBox1 с названиями файлов екселя

ProgressBar1.Position := 0;

if not CheckBox3.Checked then

begin

  s := path_txt + '\*.txt'#0;

  ListBox2.Clear;

  ListBox2.Perform(LB_DIR, DDL_ReadWrite, Longint(@S[1]));  //заполняем список .txt

end;

//XL.Visible := True;

finally

//XL.quit;  //выход из Екселя

if not prz_exit then XL.Application.Quit;  //Закрытие Excel

Screen.Cursor:=crDefault;

Label3.Caption := 'Имя обрабатываемого файла';

end;  //try

end;

Procedure TForm1.Param_file_Excel(name_f_excel: string);

var st,sb: byte;

Begin

{//задание  параметров листов книги вручную  в массиве

for st := 1 to 5 do  //предварительное обнуление  массива

  for sb := 1 to 2 do

    mas_par_excel[st,sb] := 0;

//заполнение  массива параметрами листов различных  файлов Екселя

if pos('v1-6 FERP', name_f_excel) <> 0 then

begin

  kol_list_excel := 2;  //количество листов

  mas_par_excel[1,1] := 2;  //первая строка со значащими  данными 1 листа

  mas_par_excel[1,2] := 8;  //последний столбец со  значащими данными 1 листа

  mas_par_excel[2,1] := 2;  //первая строка со значащими данными 2 листа

  mas_par_excel[2,2] := 7;  //последний столбец со  значащими данными 2 листа

end;

if pos('v1-6 FERR', name_f_excel) <> 0 then

begin

  kol_list_excel := 2;

  mas_par_excel[1,1] := 2;  //первая строка со значащими данными 1 листа

  mas_par_excel[1,2] := 8;  //последний столбец со  значащими данными 1 листа

  mas_par_excel[2,1] := 2;  //первая строка со значащими  данными 2 листа

  mas_par_excel[2,2] := 7;  //последний столбец со  значащими данными 2 листа

end;

if pos('v1-6 HALB', name_f_excel) <> 0 then

begin

  kol_list_excel := 3;

  mas_par_excel[1,1] := 2;  //первая строка со значащими  данными 1 листа

  mas_par_excel[1,2] := 8;  //последний столбец со  значащими данными 1 листа

  mas_par_excel[2,1] := 2;  //первая строка со значащими данными 2 листа

  mas_par_excel[2,2] := 7;  //последний столбец со  значащими данными 2 листа

  mas_par_excel[3,1] := 2;  //первая строка со значащими  данными 3 листа

  mas_par_excel[3,2] := 5;  //последний столбец со значащими данными 3 листа

end;

if pos('v1-6 покупные ТМЦ', name_f_excel) <> 0 then

begin

  kol_list_excel := 3;

  mas_par_excel[1,1] := 2;  //первая строка со значащими  данными 1 листа

  mas_par_excel[1,2] := 12;  //последний столбец со  значащими данными 1 листа

  mas_par_excel[2,1] := 2;  //первая строка со значащими  данными 2 листа

  mas_par_excel[2,2] := 8;  //последний столбец со  значащими данными 2 листа

  mas_par_excel[3,1] := 2;  //первая строка со значащими  данными 3 листа

  mas_par_excel[3,2] := 7;  //последний столбец со значащими данными 3 листа

end;

if pos('ОстПокуп', name_f_excel) <> 0 then

begin

  kol_list_excel := 1;

  mas_par_excel[1,1] := 1;  //первая строка со значащими  данными 1 листа

  mas_par_excel[1,2] := 10;  //последний столбец со значащими данными 1 листа

end;

if pos('ОстПокупИнв', name_f_excel) <> 0 then

begin

  kol_list_excel := 1;

  mas_par_excel[1,1] := 1;  //первая строка со значащими  данными 1 листа

  mas_par_excel[1,2] := 12;  //последний столбец со  значащими данными 1 листа

end;

if pos('ОстПолуф', name_f_excel) <> 0 then

begin

  kol_list_excel := 1;

  mas_par_excel[1,1] := 1;  //первая строка со значащими  данными 1 листа

  mas_par_excel[1,2] := 9;  //последний столбец со  значащими данными 1 листа

end;

if pos('ОстПолуфИнв', name_f_excel) <> 0 then

begin

  kol_list_excel := 1;

  mas_par_excel[1,1] := 1;  //первая строка со значащими  данными 1 листа

  mas_par_excel[1,2] := 11;  //последний столбец со  значащими данными 1 листа

end;

if pos('123', name_f_excel) <> 0 then

begin

  kol_list_excel := 2;

  mas_par_excel[1,1] := 1;  //первая строка со значащими  данными 1 листа

  mas_par_excel[1,2] := 5;  //последний столбец со  значащими данными 1 листа

  mas_par_excel[2,1] := 1;  //первая строка со значащими  данными 2 листа

  mas_par_excel[2,2] := 6;  //последний столбец со значащими данными 2 листа

end;

if pos('456', name_f_excel) <> 0 then

begin

  kol_list_excel := 3;

  mas_par_excel[1,1] := 1;  //первая строка со значащими  данными 1 листа

  mas_par_excel[1,2] := 10;  //последний столбец со значащими данными 1 листа

  mas_par_excel[2,1] := 1;  //первая строка со значащими  данными 2 листа

  mas_par_excel[2,2] := 11;  //последний столбец со  значащими данными 2 листа

  mas_par_excel[3,1] := 1;  //первая строка со значащими  данными 3 листа

  mas_par_excel[3,2] := 12;  //последний столбец со значащими данными 3 листа

end;

}

End;

Procedure TForm1.Param_list_Excel;

var xlEdgeRight: byte;

Begin

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

XL.Workbooks[1].Worksheets[nom_list].select;

Rows := XL.ActiveSheet.UsedRange.Rows.Count;  //кол-во строк с данными листа

Columns := XL.ActiveSheet.UsedRange.Columns.Count;  //кол-во столбцов с данными листа

col_k := Columns; //переменная для цикла по столбцам

if CheckBox2.Checked then

//при  выставленном флаге CheckBox2 учитывается заголовок, т.е. начальная строка у всех листов всех файлов = 1

  str_n := 1