Киби.ru

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

User Tools

Site Tools


science_and_life:make_xls
  • Bookmark "Создание единого XLS файла с оглавлением" at LiveJournal
  • Bookmark "Создание единого XLS файла с оглавлением" at Facebook
  • Bookmark "Создание единого XLS файла с оглавлением" at VKontakte
  • Bookmark "Создание единого XLS файла с оглавлением" at Twitter
  • Bookmark "Создание единого XLS файла с оглавлением" at Odnoklassniki
  • Bookmark "Создание единого XLS файла с оглавлением" at del.icio.us
  • Bookmark "Создание единого XLS файла с оглавлением" at Google
  • Bookmark "Создание единого XLS файла с оглавлением" at Favorites

Создание единого 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;

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

  • Bookmark "Создание единого XLS файла с оглавлением" at LiveJournal
  • Bookmark "Создание единого XLS файла с оглавлением" at Facebook
  • Bookmark "Создание единого XLS файла с оглавлением" at VKontakte
  • Bookmark "Создание единого XLS файла с оглавлением" at Twitter
  • Bookmark "Создание единого XLS файла с оглавлением" at Odnoklassniki
  • Bookmark "Создание единого XLS файла с оглавлением" at del.icio.us
  • Bookmark "Создание единого XLS файла с оглавлением" at Google
  • Bookmark "Создание единого XLS файла с оглавлением" at Favorites
You could leave a comment if you were logged in.
science_and_life/make_xls.txt · Last modified: 2008/12/11 13:01 (external edit)