VPF::[Pascal] Текстовые файлы - Форум программистов

ISTka

Дата 30.11.2010, 19:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 29.11.2010
Где: Россия

Репутация: нет
Всего: нет

Напишите процедуру
1.    AlignLeft(f), которая переформатирует файл f так, что все строки в нем будут выровнены по левому краю
2.    AlignRight(f), которая переформатирует файл f так, что все строки в нем будут выровнены по правому краю (ширина строки равна константе Width = 80)
3.    AlignCenter(f), которая переформатирует файл f так, что все строки в нем будут выровнены симметрично по центру (ширина строки равна константе Width = 80)
4.    Upper(f), которая переформатирует файл f так, что все строки в нем будут содержать только прописные (заглавные) буквы
5.    Lower(f), которая переформатирует файл f так, что все строки в нем будут содержать только строчные буквы
6.    SeekConstant(f), которая находит в файле, содержащем текст программы на Паскале, идентификаторы констант
7.    SeekVar(f), которая находит в файле, содержащем текст программы на Паскале, идентификаторы переменных

Можно сделать один любой вариант...

t_gran

Дата 1.12.2010, 06:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 621
Регистрация: 13.11.2007
Где: г.Усть-Илимск

Репутация: 33
Всего: 37

ISTka, не буду повторно писать то что написал тут. Реализовал Upper(f):

Код


procedure Upper(fname: string);
const
   CBuffSize = 128;
type
   TBuff = array [1..CBuffSize] of char;

procedure SetUpper(var buff: TBuff; len: word);
var
   i: integer;
begin
   for i:= 1 to len do
      buff[i]:= upcase(buff[i]);
end;

var
   f: file;
   pos: longint;
   block: 1..CBuffSize;
   buff: TBuff;
begin
   assign(f, fname);
   {$I-}
   reset(f, 1);
   {$I+}

   if (ioresult <> 0) then
      exit;
   
   while (filepos(f) < filesize(f)) do
   begin
      pos:= filepos(f);
      if (filesize(f) - pos < CBuffSize) then
         block:= filesize(f) - pos
      else
         block:= CBuffSize;
   
      blockread(f, buff, block);
      
      SetUpper(buff, block);

      seek(f, pos);
      
      blockwrite(f, buff, block);
   end;

   close(f);
end;

Тестовый код с бинарником:

Присоединённый файл ( Кол-во скачиваний: 7 )

upper.zip 16,80 Kb

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »