home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / BK-WW6E3.DMS / in.adf / Archive / WwRexx.lha / Import_HTML.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-07-08  |  2.0 KB  |  107 lines
  1. /*    Import_HTML
  2.  
  3.         Imports an HTML (Web) file into Wordworth.
  4.         All HTML codes are stripped out, leaving
  5.         the text. Also, codes for different headings,
  6.     and bold, italic and underline styles are
  7.     recognised.
  8.  
  9.         Digita ARexx Script for Wordworth 5
  10.         Copyright ©1996, Digita International Ltd.
  11.         
  12.         Created: 2 July 1996
  13.         Author:  MJ
  14. */
  15.  
  16.  
  17. OPTIONS RESULTS
  18.  
  19.  
  20. RequestFile TITLE "Select HTML file..." PATTERN "(#?.HTML|#?.HTM)"
  21. FileName = Result
  22.  
  23. If RC > 0 THEN
  24.     Exit
  25.  
  26.  
  27. If Open('MyFile', FileName, R) THEN DO
  28.  
  29.     New
  30.     Address Value Result
  31.  
  32.     Document A4 "0.5in" "0.5in" "0.6in" "1.0in"
  33.     Zoom 100
  34.     Paragraph 0 0 0 LEFT AUTO SINGLE NONE NONE
  35.  
  36.     Font NAME "Times New Roman" SIZE 10 PLAIN
  37.  
  38.     Para = ''
  39.  
  40.     DO Until EOF('MyFile')
  41.         MyChar = ReadCh('MyFile')
  42.         IF MyChar ~= '<' THEN
  43.             Para = Para || MyChar
  44.         ELSE DO
  45.             Text Para
  46.             Para = ''
  47.             Code = MyChar
  48.             DO UNTIL MyChar = '>'
  49.                 MyChar = ReadCh('MyFile')
  50.                 Code = Code || MyChar
  51.             END
  52.             IF Code = '<P>' THEN
  53.                 NewParagraph
  54.             IF Code = '<B>' THEN
  55.                 Bold
  56.             IF Code = '<I>' THEN
  57.                 Italic
  58.             IF Code = '<U>' THEN
  59.                 Underline
  60.             IF Code = '</B>' | Code = '</I>' | Code = '</U>' THEN
  61.                 Plain
  62.  
  63.             If Code = '<H1>' THEN
  64.                 Font SIZE 25
  65.             If Code = '<H2>' THEN
  66.                 Font SIZE 20
  67.             If Code = '<H3>' THEN
  68.                 Font SIZE 17
  69.             If Code = '<H4>' THEN
  70.                 Font SIZE 15
  71.             If Code = '<H5>' THEN
  72.                 Font SIZE 12
  73.             SubCode = SubStr(Code, 1, 3)
  74.             IF SubCode = '</H' THEN DO
  75.                 NewParagraph
  76.                 Font SIZE 10
  77.             END
  78.  
  79.             IF Code = '<CENTER>' THEN
  80.                 CentreJustify
  81.             IF Code = '</CENTER>' THEN
  82.                 LeftJustify
  83.  
  84.             IF Code = '<TITLE>' THEN DO
  85.                 Title = ''
  86.                 DO UNTIL MyChar = '<'
  87.                     MyChar = ReadCh('MyFile')
  88.                     IF MyChar ~= '<' THEN
  89.                         Title = Title || MyChar
  90.                 END
  91.                 DO UNTIL MyChar = '>'
  92.                     MyChar = ReadCh('MyFile')
  93.                 END
  94.  
  95.                 FileName = 'RAM:' || TITLE
  96.                 SaveAs NAME FileName
  97.                 Address Command 'Delete >NIL:' FileName
  98.             END
  99.  
  100.         END
  101.     END
  102.     Text Para
  103.     Call Close('MyFile')
  104. END
  105. ELSE
  106.     RequestNotify PROMPT "Error: Unable to open file!"
  107.