Одна таблица - один файл
Разбить дамп на части.
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 комментариев
Рекомендуемые комментарии
Комментариев для отображения не найдено.