Киби.ru

Живой сайт об актуальных проектах

User Tools

Site Tools


science_and_life:make_xls

Создание единого XLS файла с оглавлением

При сборке файла content.xls производится автоматическая коррекция возможных опечаток для столбцов “Рубрика”, “Имя автора”, “Название статьи”:

function cure(stroka:string):string;
   var temp: string;
   begin
      temp:=StringReplace(stroka, '  ', ' ', [rfReplaceAll]);
      temp:=StringReplace(temp, '...', '…', [rfReplaceAll]);
      temp:=StringReplace(temp, '|', ' | ', [rfReplaceAll]);
      temp:=StringReplace(temp, ' ,', ',', [rfReplaceAll]);
      temp:=StringReplace(temp, ' .', '.', [rfReplaceAll]);
      temp:=StringReplace(temp, ',', ', ', [rfReplaceAll]);
      temp:=StringReplace(temp, '.', '. ', [rfReplaceAll]);
      temp:=StringReplace(temp, '. -', '.-', [rfReplaceAll]);
      temp:=StringReplace(temp, '––', '—', [rfReplaceAll]);
      temp:=StringReplace(temp, '  ', ' ', [rfReplaceAll]);
      temp:=StringReplace(temp, ', ,', ',', [rfReplaceAll]);
      temp:=StringReplace(temp, '. .', '.', [rfReplaceAll]);
      result:=trim(temp);
   end;

Столбец “Страница” переводится в числовое значение (удаляются все знаки, отличные от цифр):

function cure_page(stroka:string):string;
   begin
      try
         stroka:=inttostr(strtoint(stroka));
      except
      end;
      result:=stroka;
   end;

Значение в столбце “Номер” доводится до двузначного (добавляется ведущий ноль):

function cure_volume(stroka:string):string;
   begin
      if length(stroka)=1
        then result := '0' + stroka
        else result := stroka;
   end;

Если был выбран режим интерполяции, то для всех импортируемых строк значение столбцов “Номер”, “Год” и “Ответственный” берётся из первой строки.

You could leave a comment if you were logged in.
science_and_life/make_xls.txt · Last modified: 2008/12/11 13:01 by 127.0.0.1

Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki