home *** CD-ROM | disk | FTP | other *** search
/ DOKAN 17 / DOKAN17.iso / Progs / Pjv03dde.zip / PJV03DDE / SRCCODE / SAMPLE2 / EUC2SJS.DPR
Text File  |  1999-06-18  |  2KB  |  69 lines
  1. program euc2sjs;
  2.  
  3. // Pulsar EUC2SJS Source Code (c)1999 Pulsar Studio, & Lord Trancos.
  4. // Please distribute the source code without any modification.
  5.  
  6. // FREEWARE
  7.  
  8. {$apptype console}
  9.  
  10. uses SysUtils, Nihongo in '..\MAIN\nihongo.pas';
  11.  
  12. const TXT00 = 'PULSAR EUC2SJS v0.3a (freeware)'+#10+
  13.               '(c)1999 Pulsar Studio.'+#10+
  14.               'Developed by Lord Trancos.'+#10;
  15.       TXT01 = 'USAGE: EUC2SJS inputfilename.euc outputfilename.sjs'+#10;
  16.       TXT02 = 'Converting...';
  17.       TXT03 = ' done!';
  18.       ERR00 = 'Can not open/creat file: ';
  19.  
  20. var   srcfn, dstfn : string;
  21.       srcf, dstf   : TEXT;
  22.       s, fn, ext   : string;
  23.  
  24. begin
  25.   // Main title
  26.   Writeln(TXT00);
  27.  
  28.   // Check param
  29.   if paramcount = 0 then begin writeln(TXT01); halt; end;
  30.   srcfn := paramstr(1);
  31.   if paramcount > 1
  32.     then dstfn := paramstr(2)
  33.       else begin
  34.              fn  := paramstr(1);
  35.              ext := ExtractFileExt(paramstr(1));
  36.              SetLength(fn, Length(fn) - Length(ext));
  37.              dstfn := fn + '.SJS';
  38.            end;
  39.  
  40.   // Open source
  41.   Assign(srcf, srcfn);
  42.   {$I-}
  43.   FileMode:=0;
  44.   Reset(srcf);
  45.   {$I+}
  46.   if (IOResult <> 0) then begin writeln(ERR00 + srcfn); halt; end;
  47.  
  48.   // Create Dest
  49.   Assign(dstf, dstfn);
  50.   {$I-}
  51.   FileMode:=2;
  52.   ReWrite(dstf);
  53.   {$I+}
  54.   if (IOResult <> 0) then begin writeln(ERR00 + dstfn); halt; end;
  55.  
  56.   // Do the job
  57.   Write(TXT02);
  58.   while not EOF(srcf) do
  59.     begin
  60.       Readln(srcf, s);
  61.       Writeln(dstf, jEUC2SJS(s));
  62.     end;
  63.   Writeln(TXT03);
  64.  
  65.   // Close files
  66.   CloseFile(dstf);
  67.   CloseFile(srcf);
  68. end.
  69.