Киби.ru

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

Инструменты пользователя

Инструменты сайта


science_and_life:make_xls
  • Отправить "Создание единого XLS файла с оглавлением" в LiveJournal
  • Отправить "Создание единого XLS файла с оглавлением" в Facebook
  • Отправить "Создание единого XLS файла с оглавлением" в VKontakte
  • Отправить "Создание единого XLS файла с оглавлением" в Twitter
  • Отправить "Создание единого XLS файла с оглавлением" в Odnoklassniki
  • Отправить "Создание единого XLS файла с оглавлением" в del.icio.us
  • Отправить "Создание единого XLS файла с оглавлением" в Google
  • Отправить "Создание единого XLS файла с оглавлением" в 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;

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

  • Отправить "Создание единого XLS файла с оглавлением" в LiveJournal
  • Отправить "Создание единого XLS файла с оглавлением" в Facebook
  • Отправить "Создание единого XLS файла с оглавлением" в VKontakte
  • Отправить "Создание единого XLS файла с оглавлением" в Twitter
  • Отправить "Создание единого XLS файла с оглавлением" в Odnoklassniki
  • Отправить "Создание единого XLS файла с оглавлением" в del.icio.us
  • Отправить "Создание единого XLS файла с оглавлением" в Google
  • Отправить "Создание единого XLS файла с оглавлением" в Favorites

Обсуждение

Ваш комментарий. Вики-синтаксис разрешён:
 
science_and_life/make_xls.txt · Последние изменения: 2008/12/11 13:01 (внешнее изменение)