Главная              Рефераты - Информатика

Программа текстовый редактор - реферат

Программа "текстовый редактор"

Пояснительная записка к курсовой работе по дисциплине “Основы алгоритмизации и программирования”

Выполнил : студент гр. 96-ВВ3 Курапов А.В.

Пензенский государственный технический университет, кафедра “Вычислительная Техника”

Пенза 1997

Введение

С момента появления первых образцов персональных компьютеров прошло не так уж и много времени,но сейчас без них уже немыслимо огромное количество областей человеческой деятельности - экономика , управление , наука , инженерное дело , издательское дело , образование , культура и т.д.

Интерес к персональным компьютерам постоянно растет,а круг их пользователей непрерывно расширяется.В число пользователей ПЭВМ вовлекаются как новички в компьютерном деле,так и специалисты по другим классам ЭВМ.

Язык С++ - универсальный язык общего назначения, область приложений которого - программирование систем в самом широком смысле. Кроме этого, С++ успешно используется как во многих приложениях, так и в мощных операционных системах. Реализация С++ осуществлена для машин в диапазоне от самых простых персональных компьютеров до самых мощных суперкомпьютеров и для всех операционных систем.

1 Постановка задачи

Задача курсовой работы состоит в разработки на языке программирования С++ программы текстового редактора , которая должна осуществлять следующие функции:

1) Ввод исходного текста в заданный файл;

2) Вывод содержимого файла на экран;

3) Обработка файла: форматирование текста по заданному образцу методом центрирования.

Парамерты для форматирования:

а) левый отступ;

b) количество символов в строке;

c) красная строка.

4) Поиск заданной в тексте введённой подстроки , после поиска выдать запрос : "продолжить или закончить".

5) Cохранение результатов обработки данных.

Имена фсех файлов задаются пользователем в диалоговом режиме.

2 Метод решения задачи

Анализируя постановку задачи становится ясно , что для её решения необходимо применить метод многофункционального программирования - этот метод основан на разбиении программы на отдельные функциональные модули , которые вызываются из основной программы в процессе её работы.

В основе разработки такой программы лежит низходящее программирование - т.е. сначала разрабатывается основная программа - в данном случае программа ввода текста на экран , обработки функциональных клавиш и меню , с помощью выбора пунктов которого будет в дальнейшем организовываться её работа. При выборе того или иного пункта меню или нажатии функциональной клавиши будет вызываться одна или несколько подпрограмм , но на начальном этапе разработки программы методом нисходящего программирования вместо этих подпрограмм ставяться "заглушки" - пустые подпрограммы , которые в процессе разработки будут заменяться программами , выполняющими определённую функцию.

3 Описание логического представления данных

Входными данными в программе являются:

Уже существующий текстовый файл - хранится на диске , может быть под любым именем , при загрузки имя файла запрашивается программой в диалоговом режиме , при загрузке имя файла записывается в локальную переменную типа char - fname (25 символов) , уаказатель на начало текста записывается в переменную *text , а длина текста в переменную len типа int;

Параметры текста (левый отступ , количество символов в строке) - можно изменить в процессе работы программы , начальные значения при загрузки : левый отступ=0 , количество символов=60; Данные хранятся в переменных основной программы - left , right (int).

Текст , вводимый с клавиатуры хранится в переменной text типа char , которая в конце работы может быть сохранена в файле , имя которого задаётся пользователем в диалоговом режиме , имя файла записывается в локальную переменную типа char - fname (25 символов).

Шаблон для поиска , который вводится пользователем с клавиатуры хранится в меременной типа char - mascs длинной в 40 символов

Выходными данными в программе являются:

Текст , вводимый с клавиатуры хранится в переменной text типа char , которая в сохраняется в файле , имя которого задаётся пользователем с клавиатуры в диалоговом режиме , имя файла записывается в локальную переменную типа char - fname (25 символов).

Результат поиска по шаблону - координаты курсора x,y (int) записываются как координаты первого символа найденного по шаблону слова , если слово не найденно , то x=0 , y=0.

6 Спецификация на функциональные модули

6.1 Функция output

Строка вызова: output(scrs,x,y);
Назначение: Осуществляет вывод на экран текста и строки подсказки и курсора
Функции: Вывод текста , указатель на которого передаётся в строке параметров , вывод нижней строки подсказки , вычисление координат курсора на экране и вывод курсора на экран.

Логические

переменные:

*a (char) - указатель на начало верхней строки

x,ky (int) - позиция курсора в тексте

Внутренние

переменные:

np (int) - Количество непечатаемых символов

rx (int) - Реальная координата курсора на экране

y (int) - Координата Y вывода

* ot (char) - Временный указатель

n (int) - Временная переменная , необходима для вывода строки

Вызывает функции: нет
Вызывается из: основной программы.

6.2 Функция sinput

Строка вызова:

SInput(fname,20,21,25); - Вызывается из load

SInput(fname,20,21,25); - Вызывается из save

SInput(masks,40,30,25); - Вызывается из основной программы

Назначение: Осуществляет ввод строки.
Функции: Вывод пустой строки , установка координат , вывод строки запроса, считывание строки посимвольно с клавиатуры , выход , если нажата клавиша Enter или Esc , если нажата Esc то строка не записывается.

Логические

переменные:

*s (char) - указатель на строку

lng (int) - максимальная длина

x,y - координаты ввода

Внутренние

переменные:

rs[100] (char) - Временная строка

n (int) - Счетчик

c (char) - Введённый с клавиатуры символ

Вызывает функции: нет
Вызывается из: load,save,основной программы.

6.3 Функция load

Строка вызова: load(text); - Вызывается из основной программы
Назначение: Осуществляет загрузку текста из файла.
Функции: Запрос имени файла , открытие файла с данным именем , чтение в переменную , указатель которой передаётся в строке параметров , закрытие файла.

Логические

переменные:

*p (char) - указатель на текст

Внутренние

переменные:

fname[25] (char) - Имя файла

*f (file) - указатель на файл

Вызывает функции: sinput
Вызывается из: основной программы.

6.4 Функция save

Строка вызова: save(text); - Вызывается из основной программы
Назначение: Осуществляет запись текста в файл.
Функции: Запрос имени файла , открытие файла с данным именем , запись текста , указатель которго передаётся в строке параметров , в файл , закрытие файла.

Логические

переменные:

*p (char) - указатель на текст

Внутренние

переменные:

fname[25] (char) - Имя файла

*f (file) - указатель на файл

*pr (char) - временный указатель

Вызывает функции: sinput
Вызывается из: основной программы.

6.5 Функция reset

Строка вызова: reset(text,32767); - Вызывается из основной программы
Назначение: Осуществляет уничтожение информации.
Функции: Заполнение кодом перевод строки переменной , указанной в сторке параметров , на длинну , указанную в строке параметров.

Логические

переменные:

*a (char) - указатель на текст

n (int) - количество символов в тексте

Внутренние

переменные:

m (int) - счётчик
Вызывает функции: нет
Вызывается из: основной программы.

6.6 Функция up

Строка вызова: else scrs=up(text,scrs); - Вызывается из основной программы
Назначение: Осуществляет передвижение указателя на одну строку вверх.
Функции: Возвращает указатель на строку , которая выше на одну позицию, чем исходная.

Логические

переменные:

*a (char) - указатель на текст

*b (char) - указатель на текущую строку

Внутренние

переменные:

нет
Вызывает функции: нет
Вызывается из: основной программы.

6.7 Функция down

Строка вызова: else scrs=down(text,scrs); - Вызывается из основной программы
Назначение: Осуществляет передвижение указателя на одну строку вниз.
Функции: Возвращает указатель на строку , которая ниже на одну позицию, чем исходная.

Логические

переменные:

*a (char) - указатель на текст

*b (char) - указатель на текущую строку

Внутренние

переменные:

нет
Вызывает функции: нет
Вызывается из: основной программы.

6.8 Функция menu

Строка вызова:

switch (menu(30,5," Сохранить файл "

" Считать файл "

" Ввод шаблона "

" Параметры "

" Выход из программы "

"\x0"))

Вызывается из основной программы

Назначение: Осуществляет вывод и обработку меню.
Функции: Вывод меню на экран , опрос клавиатуры , при нажатии клавиш иправления курсором (вверх , вниз) перемещение цветового курсора по пунктам меню , выбор определённого пункта меню при нажатии клавиши с номером пункта меню , при нажатии клавиши Enter возвращается номер выбранного пункта меню , при нажатии клавиши Esc возвращается -1.

Логические

переменные:

x,y (int) - координаты вывода меню на экран.

*сapt (char) - указатель на текст меню

Внутренние

переменные:

n,m (int) - Счетчики

num (int) - Количество пунктов

k (int) - Выбранный пункт

pt (char) - Временный указатель на символ

c (char) - Считанный с клавиатуры символ

Вызывает функции: нет
Вызывается из: основной программы.

6.8 Функция add

Строка вызова:

add(st,a,0,0,' '); - Вызывается из centr

add(text,scrs,x,y,10);

add(text,scrs,x,y,13); Вызывается из основной программы

add(text,scrs,x,y,' ');

add(text,scrs,x,y,c);

Назначение: Осуществляет добавление символа в текст.
Функции: Помещение указателя на начало строки , подсчёт символов в строке , вставка символа в строку.

Логические

переменные:

*st (char) - указатель на текст

*a (char) - указатель на текущую строку

x,y (int) - координаты

c (char) - добавляемай символ

Внутренние

переменные:

n (int) - число символов в строке

d (int) - счётчик

*p (char) - временный указатель

Вызывает функции: нет
Вызывается из: centr , основной программы.

6.9 Функция end

Строка вызова: x=end(text,scrs,x,y); - Вызывается из основной программы.
Назначение: Осуществляет поиск конца сироки.
Функции: Возвращает длину строки.

Логические

переменные:

*st (char) - указатель на текст

*a (char) - указатель на текущую строку

x,y (int) - координаты

Внутренние

переменные:

n (int) - число символов в строке

*p (char) - временный указатель

Вызывает функции: нет
Вызывается из: основной программы.

6.10 Функция del

Строка вызова:

del(st,a,0,0); - Вызывается из centr.

del(text,scrs,x,y); - Вызывается из основной программы.

del(text,scrs,x-1,y); - Вызывается из основной программы.

Назначение: Осуществляет удаление символа из текста.
Функции: Поиск необходимого места в тексте , удаление символа , если был удалён "перевод строки" и остался "возврат коретки" либо наоюорот , то удаляется ещё один символ.

Логические

переменные:

*st (char) - указатель на текст

*a (char) - указатель на текущую строку

x,y (int) - координаты

Внутренние

переменные:

n (int) - число символов в строке

d (int) - счётчик

*p (char) - временный указатель

Вызывает функции: нет
Вызывается из: centr , основной программы.

6.11 Функция find

Строка вызова: find(text,&scrs,&x,&y,masks); - Вызывается из основной программы.
Назначение: Осуществляет поиск фрагмента в тексте , начиная с текущего положения курсора.
Функции: Поиск текущего места в тексте , поиск фрагмента , если фрагмент найден - перемещение курсора.

Логические

переменные:

*st (char) - указатель на текст

*scrs (char) - указатель на текущую строку

*x , *y (int) - указатель на координаты

Внутренние

переменные:

n (int) - число символов в строке

d (int) - счётчик

k (int) - счётчик

*p (char) - временный указатель

Вызывает функции: нет
Вызывается из: основной программы.

6.12 Функция dinput

Строка вызова:

left=DInput(30,25); - Вызывается из основной программы.

right=DInput(30,25); - Вызывается из основной программы.

Назначение: Осуществляет ввод числа.
Функции: Вывод строки запроса , считывание цифр с клавиатуры , выход , если нажата клавиша Enter или Esc , если нажата Esc то число не записывается не записывается. Возвращает считанное число в формате long.

Логические

переменные:

x , y (int) - координаты ввода

Внутренние

переменные:

s[100] (char) - временная строка

rz (long) - cчитанное число

n (int) - счётчик

c (char) - символ

Вызывает функции: нет
Вызывается из: основной программы.

6.13 Функция centr

Строка вызова: centr(text,scrs,y,left,right); - Вызывается из основной программы.
Назначение: Осуществляет центровку текущей строки.
Функции: Поиск текущего местоположения , удаление пробелов в начале строки , подсчёт длины строки , определение количесва добавляемых пробелов , добавление пробелов.

Логические

переменные:

*st (char) - указатель на текст

*scrs (char) - указатель на текущую строку

x , y (int) - координаты

left (int) - левый отступ

right (int) - число символов в строке

Внутренние

переменные:

n (int) - число символов в строке

d (int) - счётчик

Вызывает функции: add , del
Вызывается из: основной программы.

6.14 Основная программа

Назначение: Осуществляет опрос клавиатуры , редактирование текста , вывод меню на экран , обработку пунктов меню , и функциональных клавиш , вызов функций в соответствии с выбранным действием.
Функции: Выделение памяти под текст , вывод текста на экран , считывание кода нажатой клавиши , анализ полученного кода и вызов соответствующей функции или выполнение действия.

Внутренние

переменные:

left (int) - левый отступ

right (int) - число символов в строке

masks (char) - маска для поиска

*scrs (char) - указатель на текущую строку

x , y (int) - координаты курсора

c (char) - введённый с клавиатуры символ

n (int) - счётчик

Вызывает функции: output , sinput , load , save , reset , up , down , menu , add , end , del , find , dinput , centr .

7 Технические требования для использования

Для запуска данной программы необходимо наличие персонального компьютера IBM PC/XT c операционной системой MS-DOS.

Необходимый объем оперативной памяти - 400 Кбайт.

Дла запуска программы необходимо сделать текущем каталог с программой tr.exe и вызвать её на выполнение.

Программа работает в текстовом режиме 80х25 символов.

Файлы программы , если не указывать дополнительный путь , будут записываться и считываться из текущего каталога текущего диска.

Управление программой усуществляется с клавиатуры.

8 Описание работы программы

После своей загрузки программа осуществляет оформление экрана , вывод в нижнюю часть экрана строки подсказки , в которой содержется информация о функциональных клавишах. Пользователь может вводить и редактировать текст , задавать формат текста (левый отступ , число символов в строке) , центровать нужную строку , осуществлять поиск нужной фразы по шаблону , считать необходимый файл с диска , записать текст в файл на диске , выйти из прграммы.

9 Тестирование программы

Для полной проверки работоспособности программы необходимо её протестировать.

План тестирования программы "Текстовый редактор" состоит в следующем:

1) Создание отдельно от программы файла с исходным текстом.

2) Загрузка программы tr.exe.

3) Загрузка файла test.in.

4) Редактирование текста.

5) Изменение параметров строки и центрирование отдельных строк текста.

6) Создание шаблона для поиска и поиск фразы в тексте по этому шаблону.

7) Запись отредактированного текста в файл test.out.

8) Выход из программы.

Исходный тестовый файл test.in содержит в себе следующий текст:

Файл для тестирования программы tr.exe

эта программа предназначена для ввода и редактирования текста

Тестирование программы

Далее в пункте "Результаты работы программы" приводится распечатка тестирования программы по пунктам плана тестирования и результатов тестирования.

10 Результаты работы программы

1) Создание отдельно от программы файла с исходным текстом:

Файл test.in содержит в себе следующий текст:

Файл для тестирования программы tr.exe

эта программа предназначена для ввода и редактирования текста

ТЕСТИРОВАНИЕ ПРОГРАММЫ

2) Загрузка программы tr.exe:

ESC - Меню, F4 - Поиск, Alt-C - центровка 0 0

3) Загрузка файла test.in:

1) Сохранить файл

2) Считать файл

3) Ввод шаблона

4) Параметры

5) Выход из программы

Введите имя файла: test.in а 0 0

4) Редактирование текста:

Файл для тестирования программы tr.exe

Эта программа предназначена для ввода и редактирования текста

ТЕСТИРОВАНИЕ ПРОГРАММЫ

ESC - Меню, F4 - Поиск, Alt-C - центровка 0 0

5) Изменение параметров строки и центрирование отдельных строк текста:

Файл для тестирования программы tr.exe

эта программа предназначена для ввода и редактирования текста

ТЕСТИРОВАНИЕ ПРОГРАММЫ

1) Сохранить файл

2) Считать файл

3) Ввод шаблона

4) Параметры

5) Выход из программы

Введите левый отступ: иск, A5 а 0 0

Файл для тестирования программы tr.exe

эта программа предназначена для ввода и редактирования текста

ТЕСТИРОВАНИЕ ПРОГРАММЫ

1) Сохранить файл

2) Считать файл

3) Ввод шаблона

4) Параметры

5) Выход из программы

Введите количество символов 40 а 0 0

Центровка 3 строки:

Файл для тестирования программы tr.exe

эта программа предназначена для ввода и редактирования текста

ТЕСТИРОВАНИЕ ПРОГРАММЫ

ESC - Меню, F4 - Поиск, Alt-C - центровка 0 3

6) Создание шаблона для поиска и поиск фразы в тексте по этому шаблону:

Файл для тестирования программы tr.exe

эта программа предназначена для ввода и редактирования текста

ТЕСТИРОВАНИЕ ПРОГРАММЫ

1) Сохранить файл

2) Считать файл

3) Ввод шаблона

4) Параметры

5) Выход из программы

Введите шаблон для поиска: текст

эта программа предназначена для ввода и редактирования текста

ТЕСТИРОВАНИЕ ПРОГРАММЫ

ESC - Меню, F4 - Поиск, Alt-C - центровка 56 0

7) Запись отредактированного текста в файл test.out:

Файл для тестирования программы tr.exe

эта программа предназначена для ввода и редактирования текста

ТЕСТИРОВАНИЕ ПРОГРАММЫ

1) Сохранить файл

2) Считать файл

3) Ввод шаблона

4) Параметры

5) Выход из программы

Введите имя файла: test.out а 0 0

8) Выход из программы:

Файл для тестирования программы tr.exe

эта программа предназначена для ввода и редактирования текста

ТЕСТИРОВАНИЕ ПРОГРАММЫ

1) Сохранить файл

2) Считать файл

3) Ввод шаблона

4) Параметры

5) Выход из программы

ESC - Меню, F4 - Поиск, Alt-C - центровка 0 0

Список литературы

1.Бьярн Страуструп. Язык программирования С++.в двух частях. Пер. с англ. Киев:"ДиаСофт",1993.-296 с.,ил.

2.Корриган Джон Компьютерная графика: Секреты и решения: Пер с англ. -М.:Энтроп, 1995. - 352 с., ил.

ПРИЛОЖЕНИЕ 1

Распечатка программы

#include <stdio.h>

#include <conio.h>

#include <stdlib.h>

#include <string.h>

#include <iostream.h>

// Указатель на начало текста

char * text;

// Длинна текста

long len;

// Вывод на экран

// Входные данные:

// Адрес начала верхней строки

// Позиция курсора на ~бесконечном~ по ширине экране (x,y)

void output(char * a,int x,int ky) {

// Количество непечатаемых символов

int np=(x/80)*80;

// Реальная координата курсора на экране

int rx=x-np;

// Координата Y вывода

int y;

char * ot=a;

clrscr();

int n;

y=0;

do {

// Пропуск непечатаемых символов

n=np;

while ((n>0)&&(*ot!=13)) {

ot++;

n--;

}

// Если есть, что печатать на этой строке - печать

if (*ot!=13) {

// Печать строки

n=80;

while ((n>0)&&(*ot!=13)) {

cout<<*ot;

ot++;

n--;

}

// Если строка окнчилась раньше края экрана - перевести строку

if (*ot==13) {

cout<<(char) 13<<(char) 10;

ot++;

if (*ot==10) ot++;

} else {

while (*ot!=13) ot++;

if (*ot==13) ot++;

if (*ot==10) ot++;

}

y++;

} else {

// Если печатать нечего - перевод строки

cout<<(char) 13<<(char) 10;

ot++;

y++;

if (*ot==10) ot++;

}

// Пока не распечатаны все строки

} while (y<23);

// Вывод подсказки и курсора

gotoxy(5,25);

textcolor(14);

cprintf(

"ESC - Меню, F4 - Поиск, Alt-C - центровка %4d %4d ",x,ky);

textcolor(15);

gotoxy(rx+1,ky+1);

}

// Вводстроки

// s - указатель на строку

// lng - Максимальная длинна

// x,y - координаты

void SInput(char * s,int lng,int x,int y) {

lng--;

char rs[100]; // Временная строка

strcpy(rs,s); // Копирование резерва строки

int n; // Счетчик

char c; // Символ

// Выводпустойстроки

textbackground(2);

textcolor(15);

gotoxy(x,y);

for (n=0;n<lng;n++) cprintf(" ");

n=strlen(s); // Положение курсора

do {

// Вывод строки

gotoxy(x,y);

cprintf("%s ",s);

gotoxy(x+n,y);

c=getch(); // Считывание символа с клавиатуры

if ((c!=13)&&(c!=27)&&(c!=8)) {

// Нажата символьная клавиша

if (n<(lng-1)) {

// Добавление символа

s[n+1]=0;

s[n]=c;

n++;

}

} else {

if (c==8) {

// Нажатаклавиша BackSpace

if (n>0) {

n--;

s[n]=0;

}

}

}

// Выход, если ESC или ENTER

} while ((c!=27)&&(c!=13));

if(c==27) strcpy(s,rs); // Восстановление строки

// Стираниестроки

textbackground(0);

textcolor(7);

gotoxy(x,y);

for (n=0;n<lng+1;n++) cprintf(" ");

}

// Чтениефайла

void load(char * p) {

char fname[25];

fname[0]=0;

FILE * f;

gotoxy(1,25);

printf(" Введитеимяфайла: ");

SInput(fname,20,21,25);

f=fopen(fname,"rb");

len=fread(p,32767,1,f);

fclose(f);

}

// Записьвфайл

void save(char * p) {

char fname[25];

fname[0]=0;

char * pr;

pr=p;

len=0;

while((len<32767)&&((*pr!=13)||(*(pr+1)!=13))) {

len++;

pr++;

}

FILE * f;

gotoxy(1,25);

printf(" Введитеимяфайла: ");

SInput(fname,20,21,25);

f=fopen(fname,"wb");

fwrite(p,len,1,f);

fclose(f);

}

// Уничтожение информации - заполнение кодом "Перевод строки"

void reset(char * a,int n) {

for (int m=0;m<n;m++) *(a+m)=13;

}

// Вверхнастроку

char * up(char * a,char * b) {

if (a==b) return b;

b--;

while ((a!=b)&&(*b!=13)) b--;

if (a==b) return b;

if (*b==13) b--;

if (a==b) return b;

while ((a!=b)&&(*b!=13)) b--;

if (*b==13) b++;

if (*b==10) b++;

return b;

}

// Внизнастроку

char * down(char * a,char * b) {

while (((a+32767)>=b)&&(*b!=13)) b++;

if (*b==13) b++;

if (*b==10) b++;

return b;

}

// Обработкаменю

int menu(int x,int y,char * capt) {

int n,m; // Счетчики

int num; // Количество пунктов

int k; // Выбранный пункт

char * pt; // Временный указатель на символ

char c; // Считанный с клавиатуры символ

// Вычисляем количество пунктов

num=strlen(capt)/20;

// Курсор на нулевой элемент

k=0;

// Бесконечный цикл обработки

for (;;) {

// Вывод меню

pt=capt;

for (n=0;n<num;n++) {

gotoxy(x,y+n);

// Закраска пункта, на который указывает курсор

if (n==k) {

// Закраска

textbackground(12);

textcolor(14);

} else {

// Нормальный

textbackground(3);

textcolor(1);

}

cprintf("%d) ",n+1);

for (m=0;m<20;m++) cprintf("%c",*(pt++));

}

textbackground(3);

textcolor(1);

// Опросклавиатуры

c=getch();

if (!c) c=getch();

// Проверка, не нажата ли клавиша с цифрой

if (((c-'1')>=0)&&((c-'1')<num)) {

// Установка указателя в зависимости от нажатой цифры

k=c-'1';

// Запись в буфер клавиатуры символа ENTER

ungetch(13);

} else {

// Анализ

switch(c) {

// Вверх

case (72):

if (k>0) k--; else k=num-1;

break;

// Вниз

case (80):

if (k<(num-1)) k++; else k=0;

break;

// Выход по ESC - возвращается -1

case (27):

return -1;

// Выход по ENTER - возвращается номер пункта

case (13): return k;

}

}

}

}

// Добавление символа в текст

void add(char * st,char * a,int x,int y,char c) {

int n;

int d;

n=y;

char * p;

// Перемещение указателя к началу строки

while (n>0) {

while ((a<(st+32767))&&(*a!=13)) a++;

if (*a==13) a++;

if (*a==10) a++;

n--;

}

// Подсчетсимволоввстроке

n=0;

while ((*(a+n)!=13)&&((a+n)<(st+32767))) n++;

if (n<x) {

// Если производится вставка в строку

a=a+n;

d=x-n;

p=st+32767;

while ((p-d)!=a) {

*p=*(p-d-1);

p--;

}

p=a;

while (d!=0) {

*p=' ';

d--;

p++;

}

*p=c;

} else {

// Если производится добавление к строке не только символа,

// но и пробелов до него

a=a+x;

p=st+32767;

while (p!=a) {

*p=*(p-1);

p--;

}

*a=c;

}

}

// Поиск конца строки - фактически возвращает длину строки

int end(char * st,char * a,int,int y) {

int n;

n=y;

char * p;

while (n>0) {

while ((a<(st+32767))&&(*a!=13)) a++;

if (*a==13) a++;

if (*a==10) a++;

n--;

}

n=0;

while ((*(a+n)!=13)&&((a+n)<(st+32767))) n++;

return n;

}

// Удалениесимвола

void del(char *st,char * a,int x,int y) {

int n;

int d;

n=y;

char * p;

// Поиск необходимого места в тексте

while (n>0) {

while ((a<(st+32767))&&(*a!=13)) a++;

if (*a==13) a++;

if (*a==10) a++;

n--;

}

n=0;

while ((*(a+n)!=13)&&((a+n)<(st+32767))) n++;

if (n<x) x=n;

a+=x;

p=a;

n=*p;

// Удаление символа

while (a!=(st+32767)) {

*a=*(a+1);

a++;

}

// Если был удален "Перевод строки" и остался

// "Возврат каретки" либо наоборот, то удаляется еще один символ

if ((*p==13)&&(n==10)||(*p==10)&&(n==13)) {

while (p!=(st+32767)) {

*p=*(p+1);

p++;

}

}

}

// Поиск фрагмента в тексте, начиная с текущего положения курсора

void find(char * st,char * * scrs,int * x,int * y,char * b) {

char * a=*scrs;

int n;

int k;

int d;

n=*y;

char * p;

// Поиск текущего места

while (n>0) {

while ((a<(st+32767))&&(*a!=13)) a++;

if (*a==13) a++;

if (*a==10) a++;

n--;

}

n=0;

while ((*(a+n)!=13)&&((a+n)<(st+32767))) n++;

if (n<*x) *x=n;

a+=*x;

// Поиск фрагмента

do {

a++;

k=1;

for (n=0;n<strlen(b);n++)

if (a[n]!=b[n]) k=0;

} while ((k!=1)&&(a<(st+32767)));

if (k==1) {

// Если фрагмент найден - перемещение курсора

*x=0;

*y=0;

while ((*a!=13)&&(a!=st)) {

a--;

(*x)++;

}

if (*a==13) {

a++;

(*x)--;

}

if (*a==10) {

a++;

(*x)--;

}

*scrs=a;

}

}

// Вводчисла

// x,y - координаты

long DInput(int x,int y) {

char s[100]; // Временная строка

char *stpe;

long rz;

s[0]=0;

int n; // Счетчик

char c; // Символ

// Вывод пустой строки

textbackground(2);

textcolor(15);

gotoxy(x,y);

for (n=0;n<15;n++) cprintf(" ");

n=strlen(s); // Положение курсора

do {

// Вывод строки

gotoxy(x,y);

cprintf("%s ",s);

gotoxy(x+n,y);

c=getch(); // Считывание символа с клавиатуры

if ((c!=13)&&(c!=27)&&(c!=8)) {

// Нажата символьная клавиша

if (n<14) {

// Добавление цифры

if ((c>='0')&&(c<='9')) {

s[n+1]=0;

s[n]=c;

n++;

}

}

} else {

if (c==8) {

// Нажатаклавиша BackSpace

if (n>0) {

n--;

s[n]=0;

}

}

}

// Выход, если ESC или ENTER

} while ((c!=27)&&(c!=13));

if(c==27) return 0;

// Стираниестроки

textbackground(0);

textcolor(7);

gotoxy(x,y);

for (n=0;n<15;n++) cprintf(" ");

sscanf(s,"%ld",&rz);

return rz;

}

// Центровкатекущейстроки

void centr(char *st,char * a,int y,int left,int right) {

int n;

int d;

n=y;

// Поиск текущего местоположения

while (n>0) {

while ((a<(st+32767))&&(*a!=13)) a++;

if (*a==13) a++;

if (*a==10) a++;

n--;

}

// Удаление пробелов в начале строки

while ((*a==32)&&(!((*a==13)||(a==(st+32767))))) del(st,a,0,0);

// Подсчетдлиныстроки

n=0;

while ((*(a+n)!=13)&&((a+n)<(st+32767))) n++;

// Определение количества добавляемых пробелов

if ((n>(right-left))||(n==0)) return;

d=left+((right-left)-n)/2;

// Добавление пробелов

for (n=0;n<d;n++) add(st,a,0,0,' ');

}

// Основная программа

void main() {

// Границытекста

int left=0;

int right=60;

// Маска для поиска

char masks[40];

masks[0]=0;

// Положение курсора

char * scrs;

int x,y;

char c;

int n;

// Выделение памяти под текст

text=new char[32767];

len=0;

reset(text,32767);

scrs=text;

x=0;y=0;

// Цикл обработки данных

for (;;) {

textbackground(1);

textcolor(15);

// Выводданныхнаэкран

output(scrs,x,y);

// Считывание символа

c=getch();

// Обработка

switch (c) {

case (27):

// Вывод меню

switch (menu(30,5," Сохранить файл "

" Считать файл "

" Ввод шаблона "

" Параметры "

" Выход из программы "

"\x0")) {

case (0):

save(text);

break;

case (1):

reset(text,32767);

load(text);

break;

case (2):

gotoxy(1,25);

printf(" Введите шаблон для поиска: ");

SInput(masks,40,30,25);

break;

case (3):

gotoxy(1,25);

printf(" Введите левый отступ: ");

left=DInput(30,25);

gotoxy(1,25);

printf(" Введите количество символов в строке: ");

right=DInput(30,25);

break;

case (4):

textbackground(0);

textcolor(7);

clrscr();

return;

}

break;

case (0):

// Расширенный код - считывание значащей части

c=getch();

// обработка

switch(c) {

// Alt-C

case (46):

centr(text,scrs,y,left,right);

break;

// F4

case (62):

find(text,&scrs,&x,&y,masks);

break;

// Home

case (71):

x=0;

break;

// End

case (79):

x=end(text,scrs,x,y);

break;

// Delete

case (83):

del(text,scrs,x,y);

break;

// Стрелки перемещения курсора

case (72):

if (y>0) y--;

else scrs=up(text,scrs);

break;

case (80):

if (y<22) y++;

else scrs=down(text,scrs);

break;

case (77):

if (x<32767) x++;

break;

case (75):

if (x>0) x--;

break;

}

break;

// Enter

case (13):

add(text,scrs,x,y,10);

add(text,scrs,x,y,13);

if (y<22) y++; else down(text,scrs);

x=0;

break;

// BackSpace

case (8):

if (x>0) {

del(text,scrs,x-1,y);

x--;

}

break;

// Tab

case (9):

for (n=0;n<(5-(x-x/5));n++) add(text,scrs,x,y,' ');

x=x+(5-(x-x/5));

break;

// Остальные символы

default:

add(text,scrs,x,y,c);

x++;

}

}

}

ПРИЛОЖЕНИЕ 2