Перейти к контенту

Дневник программиста

  • записей
    60
  • комментариев
    309
  • просмотра
    226 854

Одна таблица - один файл


Arhar

1 830 просмотров

Разбить дамп на части.

program onetableonefile;

{$APPTYPE CONSOLE}

uses
 SysUtils;

var
 f,r:textfile;
 s,filename:string;
 i1,i2,j:integer;
begin
 assignfile(f,'forum.sql');
 reset(f);
 filename:='';
 while not eof(f) do begin;
readln(f,s);
i1:=pos('DROP TABLE IF EXISTS `ibf',s);
//i2:=pos('CREATE TABLE',s);
if (i1<>0){or(i2<>0)} then begin
  filename:=copy(s,22,length(s)-22);
  assignfile(r,filename);
  rewrite(r);
  write(r,s);
  write(r,char(13));
  write(r,char(10));
end
else if filename <> '' then begin
  append(r);
  write(r,s);
  write(r,char(13));
  write(r,char(10));
end;
 end;
 closefile(f);
 closefile(r);
end.

поддержку не осуществляю, почему не работает думайте сами)

0 комментариев


Рекомендуемые комментарии

Комментариев для отображения не найдено.

×
×
  • Создать...

Важная информация

Находясь на нашем сайте, вы соглашаетесь на использование файлов cookie, а также с нашим положением о конфиденциальности Политика конфиденциальности и пользовательским соглашением Условия использования.