home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / Chip_2002-09_cd1.bin / zkuste / delphi / kompon / d123456 / STR_BIT.ZIP / UTIL / PERTEXT.PAS < prev    next >
Pascal/Delphi Source File  |  1996-09-10  |  2KB  |  50 lines
  1. program PerText;
  2.  
  3. uses Dos, DosPreo;
  4.  
  5.  const
  6.   Soob : string = 'ö«α¼áΓ ºáñá¡¿∩ »áαá¼ÑΓα«ó ßΓ᫬¿ :'+#13+#10+#10+
  7.    'PerText reg ¿¼∩_¿ßσ«ñ¡«ú«_Σá⌐½á ¿¼∩_Σá⌐½á_αѺπ½∞ΓáΓá'+#13+#10+#10+
  8.    'úñÑ reg= wd - »ÑαѬ«ñ¿α«óá¬á ¿º Σ«α¼áΓá WINDOWS ó Σ«α¼áΓ DOS'+#13+#10+
  9.    '    reg= dw - »ÑαѬ«ñ¿α«óá¬á ¿º Σ«α¼áΓá DOS ó Σ«α¼áΓ WINDOWS'+#13+#10;
  10.  type
  11.   PreobFunc = function(Isx:String): String;
  12.  var
  13.   RegRab : string[10]; Prom : String;
  14.   IsxFile, RezFile : Text;
  15.   PreobText : PreobFunc;
  16.  
  17. begin
  18.  RegRab := ParamStr(1);
  19.  Writeln(#10+'Åα«úαἼᠻÑαѬ«ñ¿α«ó¬¿ ΓѬßΓ«ó ASCII ( DOS <--> WINDOWS )'+#10);
  20.  if (ParamCount <> 3) or (not((RegRab='dw') or (RegRab='wd') or
  21.     (RegRab = 'dw') or (RegRab = 'WD') ))
  22.    then Writeln(Soob)
  23.    else begin
  24.    if (RegRab = 'dw') or (RegRab = 'DW') then PreobText := PrDosWin
  25.                                          else PreobText := PrWinDos;
  26.    Write('ÅαÑ«íαáºπÑΓß∩ Σá⌐½ ' + ParamStr(2)+ ' ¿º Σ«α¼áΓá ');
  27.    if (RegRab = 'dw') or (RegRab = 'DW') then Writeln('DOS')
  28.                                          else Writeln('WINDOWS');
  29.    Write('ó Σá⌐½ ' + ParamStr(3) + ' Σ«α¼áΓá ');
  30.    if (RegRab = 'dw') or (RegRab = 'DW') then Writeln('WINDOWS')
  31.                                          else Writeln('DOS');
  32. {$I-}
  33.     Assign(IsxFile, ParamStr(2));
  34.     FileMode := 0;
  35.     Reset(IsxFile);
  36. {$I+}
  37.     if IOResult <> 0
  38.      then Writeln('ÄΦ¿í¬á «Γ¬αδΓ¿∩ Σá⌐½á:'+ ParamStr(2))
  39.      else begin
  40.       Assign(RezFile, ParamStr(3));
  41.       Rewrite(RezFile);
  42.       while not(Eof(IsxFile)) do begin
  43.        Readln(IsxFile,Prom);
  44.        Writeln(RezFile, PreobText(Prom));
  45.       end;
  46.       Close(RezFile);
  47.     end;
  48.    Close(IsxFile);
  49.    end;
  50. end.