CP-866

pascal
  1. program doc;
  2.  uses crt;
  3.  const encoding='CP-866';
  4.   maxitem=3;
  5.  type bit=1..maxitem+8;
  6.  var fltxt:text;
  7.   path,flstrng:string;
  8.   ior:integer;
  9.   choise:bit;
  10.  
  11. procedure drawcrt;
  12.   begin textcolor(6);
  13.    textbackground(1);
  14.    clrscr end;
  15.  
  16. procedure drawencoding;
  17.   begin writeln(encoding);
  18.    writeln end;
  19.  
  20. procedure logic(choise:bit);
  21.  forward;
  22.  
  23. procedure opening;
  24.  forward;
  25.  
  26. procedure creation;
  27.  forward;
  28.  
  29. procedure load;
  30.  forward;
  31.  
  32. procedure menu;
  33.   begin repeat writeln('1. Open');
  34.     writeln('2. Create');
  35.     writeln('3. Clear');
  36.     writeln;
  37.     write('Choise: ');
  38.     readln(choise);
  39.     if choise>maxitem then begin writeln;
  40.      writeln('Error. 1 or ',maxitem);
  41.      writeln('Press "enter" to start anew.');
  42.      readln end else break until false;
  43.    writeln;
  44.    logic(choise) end;
  45.  
  46. procedure logic(choise:bit);
  47.   begin if choise=1 then opening;
  48.    if choise=2 then creation;
  49.    if choise=3 then begin clrscr;
  50.     load end end;
  51.  
  52. procedure opening;
  53.   begin repeat write('Path: ');
  54.     readln(path);
  55.     assign(fltxt,path);
  56.     {$i-} reset(fltxt); {$-+}
  57.     ior:=ioresult;
  58.     if ior<>0 then begin  writeln;
  59.      writeln('Error. The wrong way.');
  60.      writeln('Press "enter" to start anew.');
  61.      readln end else begin writeln;
  62.       while not eof(fltxt) do begin readln(fltxt,flstrng);
  63.        writeln(flstrng) end;
  64.       break end until false;
  65.    close(fltxt);
  66.    writeln;
  67.    writeln('Completed.');
  68.    writeln('Press "enter" to choise menu.');
  69.    readln;
  70.    load end;
  71.  
  72. procedure creation;
  73.   begin write('Path: ');
  74.    readln(path);
  75.    writeln;
  76.    assign(fltxt,path);
  77.    rewrite(fltxt);
  78.    write('Text: ');
  79.    readln(flstrng);
  80.    write(fltxt,flstrng);
  81.    close(fltxt);
  82.    writeln;
  83.    writeln('Completed.');
  84.    writeln('Press "enter" to choise menu.');
  85.    readln;
  86.    load end;
  87.  
  88. procedure load;
  89.   begin drawencoding;
  90.    menu end;
  91.  
  92.   begin drawcrt;
  93.    load end.
Открывает и сохраняет текстовые файлы с изменённой кодировкой.
Назад

Реклама

Мы в соцсетях

tw tg yt gt