home *** CD-ROM | disk | FTP | other *** search
- program PerText;
-
- uses Dos, DosPreo;
-
- const
- Soob : string = 'ö«α¼áΓ ºáñá¡¿∩ »áαá¼ÑΓα«ó ßΓ᫬¿ :'+#13+#10+#10+
- 'PerText reg ¿¼∩_¿ßσ«ñ¡«ú«_Σá⌐½á ¿¼∩_Σá⌐½á_αѺπ½∞ΓáΓá'+#13+#10+#10+
- 'úñÑ reg= wd - »ÑαѬ«ñ¿α«óá¬á ¿º Σ«α¼áΓá WINDOWS ó Σ«α¼áΓ DOS'+#13+#10+
- ' reg= dw - »ÑαѬ«ñ¿α«óá¬á ¿º Σ«α¼áΓá DOS ó Σ«α¼áΓ WINDOWS'+#13+#10;
- type
- PreobFunc = function(Isx:String): String;
- var
- RegRab : string[10]; Prom : String;
- IsxFile, RezFile : Text;
- PreobText : PreobFunc;
-
- begin
- RegRab := ParamStr(1);
- Writeln(#10+'Åα«úαá¼¼á »ÑαѬ«ñ¿α«ó¬¿ ΓѬßΓ«ó ASCII ( DOS <--> WINDOWS )'+#10);
- if (ParamCount <> 3) or (not((RegRab='dw') or (RegRab='wd') or
- (RegRab = 'dw') or (RegRab = 'WD') ))
- then Writeln(Soob)
- else begin
- if (RegRab = 'dw') or (RegRab = 'DW') then PreobText := PrDosWin
- else PreobText := PrWinDos;
- Write('ÅαÑ«íαáºπÑΓß∩ Σá⌐½ ' + ParamStr(2)+ ' ¿º Σ«α¼áΓá ');
- if (RegRab = 'dw') or (RegRab = 'DW') then Writeln('DOS')
- else Writeln('WINDOWS');
- Write('ó Σá⌐½ ' + ParamStr(3) + ' Σ«α¼áΓá ');
- if (RegRab = 'dw') or (RegRab = 'DW') then Writeln('WINDOWS')
- else Writeln('DOS');
- {$I-}
- Assign(IsxFile, ParamStr(2));
- FileMode := 0;
- Reset(IsxFile);
- {$I+}
- if IOResult <> 0
- then Writeln('ÄΦ¿í¬á «Γ¬αδΓ¿∩ Σá⌐½á:'+ ParamStr(2))
- else begin
- Assign(RezFile, ParamStr(3));
- Rewrite(RezFile);
- while not(Eof(IsxFile)) do begin
- Readln(IsxFile,Prom);
- Writeln(RezFile, PreobText(Prom));
- end;
- Close(RezFile);
- end;
- Close(IsxFile);
- end;
- end.