Импорт из csv (Page 1 of 2)

// dokument
dokument := '"' +  ReplaceStr(arrStr[3], '"', '""') + '"';

procedure frmChoice_bImportNAF_OnClick (Sender: string; var Cancel: boolean);
var
   OpenDialog: TOpenDialog;
   sl: TStringList;
   arrStr: array of string;

   i,c: integer;

   sid_sked: string; //опись
   sDocNumNAF: string; //номер дела
   sDocNameNAF: string; //название
   sid_year: string; //год формирования
   sid_period: string; //срок хранения
   sPagesNAF: string; //количество страниц
   sNoteNAF: string; //примечание

   YY, MM, DD: string;


begin

     OpenDialog := TOpenDialog.Create(frmChoice);
     if OpenDialog.Execute then
     begin
          sl := TStringList.Create;
          sl.LoadFromFile (OpenDialog.FileName); ///открытие файла




          c := sl.Count - 1;
          for i := 1 to c do
          begin
               arrStr := SplitString(sl[i], ';');


               //0 sid_sked
               if arrStr[0] <> '' then
               begin
                    sid_sked := SQLExecute ('SELECT id FROM sked WHERE sked LIKE "' + arrStr[0] +'"');
                    if sid_sked = '' then
                    begin
                         SQLExecute ('INSERT INTO sked (sked) VALUES ("'+ arrStr[0] +'");');
                         sid_sked := IntToStr(Last_Insert_id('sked'));
                         if sid_sked = '-1' then sid_sked := 'NULL';
                    end;
               end else sid_sked := 'NULL';


               //1 sDocNumNAF
               if arrStr[1]<>'' then sDocNumNAF := '"'+arrStr[1]+'"' else sDocNumNAF := 'NULL';


               //2 sDocNameNAF
               if arrStr[2]<>'' then sDocNameNAF := '"' +  ReplaceStr(arrStr[2], '"', '""') + '"' else sDocNameNAF := 'NULL';


               //3 sid_year
               if arrStr[3] <> '' then
               begin
                    sid_year := SQLExecute ('SELECT id FROM year WHERE year LIKE "' + arrStr[3] +'"');
                    if sid_year = '' then
                    begin
                         SQLExecute ('INSERT INTO year (year) VALUES ("'+ arrStr[3] +'");');
                         sid_year := IntToStr(Last_Insert_id('year'));
                         if sid_year = '-1' then sid_year := 'NULL';
                    end;
               end else sid_year := 'NULL';


               //4 sid_period
               if arrStr[4] <> '' then
               begin
                    sid_period := SQLExecute ('SELECT id FROM period WHERE period LIKE "' + arrStr[4] +'"');
                    if sid_period = '' then
                    begin
                         SQLExecute ('INSERT INTO period (period) VALUES ("'+ arrStr[4] +'");');
                         sid_period := IntToStr(Last_Insert_id('period'));
                         if sid_period = '-1' then sid_period := 'NULL';
                    end;
               end else sid_period := 'NULL';


               //5 sPagesNAF
               if arrStr[5]<>'' then sPagesNAF := '"'+arrStr[5]+'"' else sPagesNAF := 'NULL';


               //6 sNoteNAF
               if arrStr[6]<>'' then sNoteNAF := '"'+arrStr[6]+'"' else sNoteNAF := 'NULL';



               SQLExecute ('INSERT INTO one (id_sked, [docNumNAF], [docNameNAF], id_year, id_period, [pagesNAF], [noteNAF]) VALUES ('+
               sid_sked +','+
               sDocNumNAF +','+
               sDocNameNAF +','+
               sid_year +','+
               sid_period +','+
               sPagesNAF +','+
               sNoteNAF +
               ');');


               frmChoice.Label8.Caption := IntToStr(i) + ' of ' + IntToStr(c);
               Application.ProcessMessages;
          end;



          sl.Free;
          UpdateDatabase('sked');
          UpdateDatabase('year');
          UpdateDatabase('period');
          frmChoice.TableGrid1.dbUpdate;
     end;
     OpenDialog.Free;
begin
     frmChoice.bSearch1.Click;  ////!!!!!Нажатие на кнопку ПОИСК (при этом видимые записи таблицы обновляются)
end;

end;

begin
OpenFile('d:\Archive 1.01\ImportCSV');
end;

// id_Act - текстовое содержимое первого столбца содержится в arrStr[0]
if arrStr[0] <> '' then
begin
   ActID := SQLExecute ('SELECT id FROM act WHERE act LIKE "' + arrStr[0] +'"');
   if ActID = '' then
     begin
        SQLExecute ('INSERT INTO act (act) VALUES ("'+ arrStr[0] +'");');
        ActID := IntToStr(Last_Insert_id('act'));
        if ActID = '-1' then ActID := 'NULL';
     end;
end else ActID := 'NULL';

// id_Folder - текстовое содержимое второго столбца содержится в arrStr[1]
if arrStr[1] <> '' then
begin
   FolderID := SQLExecute ('SELECT id FROM folder WHERE folder LIKE "' + arrStr[1] +'"');
   if FolderID = '' then
      begin
         SQLExecute ('INSERT INTO folder (folder) VALUES ("'+ arrStr[1] +'");');
        FolderID := IntToStr(Last_Insert_id('folder'));
        if FolderID = '-1' then FolderID := 'NULL';
      end;
end else FolderID := 'NULL';

// Document -  текстовое содержимое третьего столбца содердижится в arrStr[2]
if arrStr[2]<>'' then sDocument := '"'+arrStr[2]+'"' else sDocument := 'NULL';

               SQLExecute ('INSERT INTO document (id_act, id_folder, [document]) VALUES ('+
               ActID +','+
               FolderID +','+
               sDocument +
               ');'); // с помощью SQL запрос вставляем данные в БД

s:= ReplaceStr(s, #13#10, '\crlf\');

s:= ReplaceStr(s, '\crlf\', #13#10);

begin
              if (Length(sl[i])>0) and (sl[i][1]=';') then
              begin
                 sLine := sLine + sl[i];
                 arrStr:= SplitString(sLine, ';');

                  if arrStr[0][1]=' ' then
                  Delete(arrStr[0], 1, 2);

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
var
   OpenDialog: TOpenDialog;
   sl: TStringList;
   arrStr: array of string;
   i,c: integer;
   counter: string;
   text: string;
   kategory: string;
   number: string;
begin
     OpenDialog := TOpenDialog.Create(Form1);
     if OpenDialog.Execute then
     begin
          sl := TStringList.Create;
          sl.LoadFromFile (OpenDialog.FileName);
          c := sl.Count - 1;

          for i := 0 to c do
          begin
                  arrStr:= SplitString(sl[i], ',');

                  // Пожелание
                  if  arrStr[0] <> '' then text := '''' + arrStr[0] + '''' else text := 'NULL';

                  // Категория
                  if  arrStr[1] <> '' then kategory := arrStr[1] else kategory := 'NULL';

                  // №
                  if  arrStr[2] <> '' then number := '''' + arrStr[2] + '''' else number := 'NULL';

                  // record_count
                  if  arrStr[3] <> '' then counter := arrStr[3] else counter := 'NULL';

                  SQLExecute ('INSERT INTO pozhelaniya (text, id_pozhelaniyakategoriya, textid, record_count) VALUES ('+ text +','+ kategory +','+ number +','+ counter +');');

                  Form1.Label19.Caption := 'Обработано '+ IntToStr(i)+ ' строк из ' + IntToStr(c);
                  Application.ProcessMessages;
          end;

          sl.Free;
          Form1.TableGrid3.dbUpdate;
          ShowMessage('Импорт завершен');
     end;
     OpenDialog.Free;
end;