home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / asci2htm.zip / asci2htm.cmd next >
OS/2 REXX Batch file  |  2002-09-27  |  1KB  |  47 lines
  1. /* ASCII (852) to HTML converter */
  2.  
  3. '@echo off'
  4. parse arg input output maradek
  5.  
  6. if input = '' | output = '' | maradek <> '' then
  7.         do
  8.                 say 'ASCII (852) to HTML converter'
  9.                 exit
  10.         end
  11.  
  12. 'del 'output' >NUL 2>>&1'
  13.  
  14. accented_table  = "á╡éÉí╓óαöÖΣσúΘüÜûΩ"
  15. htmltag.1       = "á"  /* á */
  16. htmltag.2       = "Á"  /* ╡ */
  17. htmltag.3       = "é"  /* é */
  18. htmltag.4       = "É"  /* É */
  19. htmltag.5       = "í"  /* í */
  20. htmltag.6       = "Í"  /* ╓ */
  21. htmltag.7       = "ó"  /* ó */
  22. htmltag.8       = "Ó"  /* α */
  23. htmltag.9       = "ö"    /* ö */
  24. htmltag.10      = "Ö"    /* Ö */
  25. htmltag.11      = "ô"   /* Σ */
  26. htmltag.12      = "Ô"   /* σ */
  27. htmltag.13      = "ú"  /* ú */
  28. htmltag.14      = "Ú"  /* Θ */
  29. htmltag.15      = "ü"    /* ü */
  30. htmltag.16      = "Ü"    /* Ü */
  31. htmltag.17      = "û"   /* û */
  32. htmltag.18      = "Û"   /* Ω */
  33.  
  34. do while chars(input) > 0
  35.         in_char = charin(input)
  36.         in_pos  = pos(in_char, accented_table)
  37.         if in_pos <> 0 then
  38.                 out_char = htmltag.in_pos
  39.         else
  40.                 out_char = in_char
  41.         rc = charout(output, out_char)
  42. end
  43. rc = lineout(input)
  44. rc = lineout(output)
  45.  
  46. exit
  47.