Требования к программе
1)Требования к функциональным характеристикам
Программа должна выполнять следующие функции:
- вывод текста в окно программы из выбранного файла
- тексты формата .rtf, .txt
- поиск строки по шаблону;
- выделение найденной строки в тексте;
2) Требования к надежности
- Существование указанного файла;
- Файл должен быть с расширением *.txt, *.rtf;
- Верный ввод пути к файлу;
3) Требования к составу и параметрам технических средств
Минимальные требования: 250 MB RAM, процессор 2.2 GHz, мышь, клавиатура, монитор.
4) Требования к информационной и программной совместимости
Программа должна поддерживаться любой операционной системой семейства Windows.
Требования к программной документации
Программная документация должна содержать расчетно-пояснительную записку, руководство пользователя, текст программы, блок-схема алгоритмов, техническое задание.
Стадии и этапы разработки
| Этап | Дата | Результат выполнения | Отметка о выполнении |
| Техническое задание | до 30 октября | Техническое задание | |
| Выбор языка и среды программирования | до 30 октября | Delphi, Object Pascal | |
| Теоретическое изучение реализуемых алгоритмов | до 10 ноября | Алгоритм Рабина-Карпа | |
| Описание логической структуры программы | до 20 октября | Алгоритм Рабина-Карпа | |
| Проектирование интерфейса пользователя | до 20 октября | Пользовательский интерфейс | |
| Первая версия программы | до 1 декабря | 50 % | |
| Тестирование | до 15 декабря | ||
| Окончательная версия программы | до 15 декабря | ||
| РПЗ | до 20 декабря |
Порядок контроля и приемки
| Этап | Дата | Отметка о выполнении |
| Техническое задание | до 30 октября | |
| Выбор языка и среды программирования | до 30 октября | |
| Теоретическое изучение реализуемых алгоритмов | до 10 ноября | |
| Описание логической структуры программы | до 20 октября | |
| Проектирование интерфейса пользователя | до 20 октября | |
| Первая версия программы | до 1 декабря | |
| Тестирование | до 15 декабря | |
| Окончательная версия программы | до 15 декабря | |
| РПЗ | до 20 декабря |
Приложение 2
Общая схема
Приожение 2
Алгоритм Рабина-Карпа
Приложение 3
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Edit1: TEdit;
Button1: TButton;
OpenDialog1: TOpenDialog;
Label1: TLabel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
Timer1: TTimer;
N7: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure N7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var DATA: TextFile;
Form1: TForm1;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var dlina_poiska, dlina_text, hashpoisk, hashtext, i, vid_text : integer;
str_poiska, str_text, bufer_text: string;
begin
RichEdit1.SelStart := 0;
RichEdit1.SelLength := length(RichEdit1.Text); // => очистка цвета
RichEdit1.SelAttributes.Color := clblack;
str_poiska := Edit1.Text;
dlina_poiska := length(str_poiska);
hashpoisk := 0;
str_text := RichEdit1.Text;
dlina_text := length(str_text);
for i := 1 to dlina_poiska do
begin
if ((str_poiska[i] = #184) or (str_poiska[i] = #168)) then
str_poiska[i] := 'е';
end;
for i := 1 to dlina_text do
begin
if ((str_text[i] = #184) or (str_text[i] = #168)) then
str_text[i] := 'е';
end;
str_text := AnsiUpperCase(str_text);
str_poiska := AnsiUpperCase(str_poiska);
for i := 1 to dlina_poiska do
begin
hashpoisk := hashpoisk + ord(str_poiska[i]);
end;
for vid_text := 0 to dlina_text - 1 do
begin
bufer_text := copy(str_text, vid_text + 1, dlina_poiska);
hashtext := 0;
for i := 1 to dlina_poiska do
hashtext := hashtext + ord(bufer_text[i]);
if hashpoisk = hashtext then
begin
if str_poiska = bufer_text then
begin
RichEdit1.SelStart := vid_text;
RichEdit1.SelLength := dlina_poiska;
RichEdit1.SelAttributes.Color := clRed;
end;
end;
end;
if RichEdit1.SelAttributes.Color = clblack then
ShowMessage('Такой строки нет');
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
If (opendialog1.Execute) then
Begin
AssignFile(DATA,OpenDialog1.FileName);
RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
End;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
RichEdit1.Clear;
Edit1.Clear;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
Form1.Visible := False;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
RichEdit1.SelStart := 0; //
RichEdit1.SelLength := length(RichEdit1.Text); // => очистка цвета
RichEdit1.SelAttributes.Color := clblack; //
end;
end.
Unit 2:
type
TForm2 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
Memo1.Lines.Add ( '1) Если вы хотите вывести текст из файла, то нажмите файл -> открыть');
Memo1.Lines.Add ( 'и выбирете нужный вам файл ( расширения .txt , .rtf )');
Memo1.Lines.Add ( 'если же нужно просто ввести текст вручную, то набирайте его в соответствующее поле');
Memo1.Lines.Add ( '2) Введите подстроку, которую нужно найти в тексте ( без учёта регистра и без учёта "е" и "ё")');
Memo1.Lines.Add ( '3) Нажмите кнопку "Найти" ');
Memo1.Lines.Add ( '4) Если нужно всё очистить, то нажмите файл -> очистить, если же нужно очистить выделение, то нажмите файл -> очистить выделение');
Memo1.Lines.Add ( '5)Для закрытия программы нажмите файл -> закрыть');
end;
end.
Unit 3:
type
TForm3 = class(TForm)
Timer1: TTimer;
Image1: TImage;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm3.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
Form1.Show;
Form3.Visible := False;
end;
end.
Приложение 4
Руководство пользователя
Общие сведения
Программа «Поиск подстроки в строке» предназначена для поиска строки по заданному пользователем шаблону в тексте.
Описание запуска
Для запуска программы необходимо воспользоваться файлом Search.exe.
Инструкция по работе
1. Открываем программу
2. В диалоговом окне выбираем текстовый файл, после выбора которого, текст выведется в окне
3. В строку под текстом вводим строку для поиска
4. Нажимаем кнопку «Найти»
4.1 Если такая строка есть, то она выделится красным цветом
4.2 Если строки нет, то будет выведено сообщение «Такой строки нет»
5. Для очистки окна с текстом выберете «очистить»
5.1 Для очистки выделения текста выберете «очистить выделение»
6. Для вывода справки по работе нажмите Справка -> Руководство к работе
7. Для завершения работы нажмите крестик в правом верхнем углу или нажмите Файл -> Закрыть