Lab2_final

program PrjLAB2;  // два параметра – 1) имя типизир. файла, 2) имя текстового файла

{$APPTYPE CONSOLE}

uses
  SysUtils,     // ANSIUpperCase
  Windows;   // SetConsoleCP
//--------------------------------------------------------------
Type
  TMonth = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sept, Oct, Nov, December); // с 0 до 11 по умолчанию
  TEvent = record
    EventName: string[30]; // Только статические строки можно сохранить в файл
    Date : byte;
    Month: TMonth;
    Year : Short;

  end;
Function Date(event : TEvent) : Integer;
begin
  result := (event.Date + ((ord(event.Month) * 31)+1) + (event.Year * 372));
end;
//----------первая часть: создание типизированного файла в диалоге
Procedure CreateTypedFile1();
var
  Event: TEvent;
  mFile: file of TEvent; // типизированный файл - файл записей
  n, kol: integer;
  ch: char;
  FileName:string[80];
begin
  if ParamCount<1 then
  begin
    writeln('Мало параметров');
    writeln('Введите имя типизированного файла');
    readln(FileName);
  end
  else
    FileName := ParamStr(1);

  AssignFile(mFile, FileName);
  Try  ReWrite(mFile);    //  или  {$I-} ReWrite(fr); {$I+} if IOResult<>0 then
  Except
    writeln('Error: не удалось создать типизированный файл ',FileName);
    write('Press ENTER'); readln;  exit
  end;

  kol:=0;
  repeat
    write('Событие =?');    readln(Event.EventName);
    write('Число =? ');       readln(Event.Date);
    write('Месяц =? ');      readln(n); Event.Month:=TMonth(n-1);
    write('Год: = ? ');      readln(Event.Year);

    write(mFile, Event);   // запись записи целиком в файл
    inc(kol);

    write('Ещё? (y/n)');
    readln(ch)
  until UpCase(ch)='N';

  CloseFile(mFile);

  writeln('Создан типизированный файл из ',kol,' записей');
  write('Press ENTER');
  readln;
end;
//--------------------------------------------------------------
//----------вторая часть: создание типизированного файла из текстового
Procedure CreateTypedFile2();
var
  Event: TEvent;
  texFile: TextFile; // текстовый файл
  typedFile: file of TEvent; // типизированный файл - файл записей
  n, kol: integer;
  ch: char;
  month : integer;
  name : string;
begin
  if ParamCount<2 then
  begin
    writeln('Мало параметров ');
    writeln('Введите название типизированного файла'); readln(name);
    AssignFile(typedFile, name);
    writeln('Введите название текстового файла'); readln(name);
    AssignFile(texFile, name);
    readln;
  end
  else
  begin
    AssignFile(typedFile, ParamStr(1));
    AssignFile(texFile, ParamStr(2));
  end;
  Try  Reset(texFile); Rewrite(typedFile);
  Except
    writeln('Error: не удалось открыть текстовый файл ',Paramstr(2));
    write('Press ENTER'); readln;  exit
  end;

  while (not eof(texFile)) do
  begin
    Readln(texFile, Event.EventName);
    Readln(texFile, Event.Date);
    Readln(texFile, month); Event.Month := TMonth(month-1);
    Readln(texFile, Event.Year);

    Write(typedFile, Event);
  end;

  CloseFile(texFile);

  write('Press ENTER');
  readln;
end;

//--------------------------------------------------------------
//-------------- третья часть: поиск в типизированном файле ----
Procedure FindEvent();
var
  Event, tempEvent: TEvent;
  temp1, temp2 : TEvent;
  typedFile: file of TEvent;
  n, kol: integer;
  FileName:string[80];
  Litera : char;
begin
  if ParamCount<1 then
  begin
    writeln('Мало параметров');
    writeln('Введите имя типизированного файла');
    readln(FileName);
  end
  else
    FileName := ParamStr(1);

  AssignFile(typedFile, FileName);
  Try  ReSet(typedFile);    //  или  {$I-} ReSet(fr); {$I+} if IOResult<>0 then
  Except
    writeln('Error: не удалось открыть типизированный файл ',FileName);
    write('Press ENTER'); readln;  exit
  end;

  kol:=0;
  writeln('Первая буква названия события'); readln(Litera);
  tempEvent.Date := 0;
  tempEvent.Month := TMonth(0);
  tempEvent.Year := 0;
  while not eof(typedFile) and (kol=0) do
  begin
    read(typedFile, Event); // считывание
    if (Event.Date <> tempEvent.Date) and
       (Event.Month <> tempEvent.Month) and
       (Event.Year <> tempEvent.Year) and (Event.EventName[1] = Litera) then
    begin
      if (date(Event) > date(tempEvent)) then
      begin
        tempEvent := Event;
        n:=FilePos(typedFile)-1;
        Inc(kol);
      end;
    end;
  end;
   writeln('Найдено событие ', tempEvent.EventName,
      ' дата ', tempEvent.Date, '.', Ord(tempEvent.Month)+1,'.', tempEvent.Year );
      //
      Seek(typedFile, n);
      Read(typedFile, temp1);
      Seek(typedFile, filesize(typedFile)-1);
      Read(typedFile, temp2);
      Seek(typedFile, n);
      Write(typedFile, temp2);
      Seek(typedFile, filesize(typedFile)-1);
      Write(typedFile, temp1);
      // запись в файле изменена
      writeln('В файле изменена последняя запись и запись номер ', n+1);
  if kol=0 then
    writeln('Данные, соответствующие запросу, не найдены');

  CloseFile(typedFile);

  write('Press ENTER');  readln;
end;

//--------------------------------------------------------------
//-------------- просмотр типизированного файла ----
Procedure ViewFile();
var
  Event: TEvent;
  typedFile: file of TEvent;
  n, kol: integer;
  FileName:string[80];
begin
 if ParamCount<1 then
  begin
    writeln('Мало параметров');
    writeln('Введите имя типизированного файла');
    readln(FileName);
  end
  else
    FileName := ParamStr(1);

  AssignFile(typedFile, FileName);

  Try  ReSet(typedFile);    //  или  {$I-} ReSet(fr); {$I+} if IOResult<>0 then
  Except
    writeln('Error: не удалось открыть типизированный файл ',FileName);
    write('Press ENTER'); readln;  exit
  end;

  kol:=0;
  while not eof(typedFile) do
  begin
    read(typedFile, Event); // считывание
    writeln('Найдено событие ', Event.EventName,
      ' дата ', Event.Date, '.', Ord(Event.Month)+1,'.', Event.Year );
      inc(kol);
  end;

  if kol=0 then
    writeln('Данные не найдены')
  else
    writeln('Найдено ',kol, ' записей');

  CloseFile(typedFile);

  write('Press ENTER');  readln;
end;
//--------------------главная программа-------------------------
var
  ch: char;
begin
  SetConsoleCP(1251);      // из модуля Windows
  SetConsoleOutputCP(1251);

  repeat
    writeln('--------------------------------------');
    writeln('D - создать новый тип.файл в диалоге; ');
    writeln('N - создать из текстового файла; ');
    writeln('F - поиск и изменение; ');
    writeln('V - просмотр;');
    writeln('E - конец.');
    write('Ваш выбор?'); readln(ch);
    writeln('--------------------------------------');

    ch:= UpCase(ch);
    case ch of
//--------------------------------------------------------------
//----------первая часть: создание типизированного в диалоге ---
    'D': CreateTypedFile1;
//----------вторая часть: создание типизированного из текстового
    'N': CreateTypedFile2;
//----------третья часть: поиск и редактирование ---------------
    'F': FindEvent;
//-----------просмотр----------------------------------------------
    'V': ViewFile;
//-----------выход----------------------------------------------
    'E': exit;
//--------------------------------------------------------------
      else
        begin
          writeln('Нет такой команды');
          write('Press ENTER'); readln;
        end;
    end;

  until ch='E';
end.