home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / scr-htm.zip / MACROS.ZIP / HTMLENT.Y (.txt) < prev    next >
DeScribe Document  |  1995-11-11  |  28KB  |  152 lines
  1. DeScribe  Copyright DeScribe, Inc., 1988, 1989
  2. Letter
  3. <none>
  4. Env40
  5. <none>
  6. EnBrotherH
  7. BrotherH
  8. LASERJET
  9. Brother HL-630/631
  10. Brother HL-630/631
  11. Letter
  12. Letter
  13. Info 1
  14. Info 2
  15. Info 3
  16. Info 4
  17. Document
  18. Roman
  19. okman
  20. StickyNote
  21. Helvetica
  22. portional
  23. Bulleted List
  24. Numbered List
  25. .Hanging indent
  26. 1/2 inch over
  27. 1 inch over
  28. Indented
  29. paras
  30. Bibliography
  31. border
  32. quote
  33. ITC Bookman
  34. Heading One
  35. Helvetica
  36. portional
  37. Heading Three
  38. Heading Four
  39. Heading Two
  40. ocument
  41. Roman
  42. okman
  43. Frame 2
  44. Frame 2
  45. !============================================================
  46. !   Scribe-HTML 0.9
  47. !============================================================
  48. !                                     Copyright (c) 1995 by Mike Sosteric
  49. !============================================================
  50. !   Scribe-HTML 0.9
  51. !============================================================
  52. !     NOTE: you should mark up paragraphs and headers before running this macro
  53. Standard Conversion Routine
  54. !          Convert Text Entities to Associated HTML markup
  55. !============================================================
  56. Macro HTMLENTY
  57. CursorHome
  58. !  Insert Quotes
  59.   CursorHome
  60.     SearchClear
  61.     SET SearchSearch1 TO """"
  62.     SET SearchSearchMarkup1 TO TRUE
  63.     SET SearchReplace1 TO " ""
  64.     SET SearchConfirm1 TO False
  65.     SET SearchSearch2 TO 
  66.     SET SearchSearchMarkup2 TO TRUE
  67.     SET SearchReplace2 TO " ""
  68.     SET SearchConfirm2 TO False
  69.     SearchForward
  70.   CursorHome
  71.     SearchClear
  72.     SET SearchSearch1 TO 
  73.     SET SearchSearchMarkup1 TO TRUE
  74.     SET SearchReplace1 TO " ""
  75.     SET SearchConfirm1 TO False
  76.     SearchForward
  77. !  Special Characters
  78.   CursorHome
  79.     SearchClear
  80.     SET SearchSearch1 TO "&"
  81.     SET SearchReplace1 TO " & "
  82.     SET SearchConfirm1 TO False
  83. !  Do Italics, Bold and Underline
  84. REPEAT
  85.              CursorRight
  86. If AttributeItalic = TRUE THEN
  87.                           PUT 
  88. REPEAT
  89. CursorWordRight
  90. EXIT WHEN NOT AttributeItalic
  91. END REPEAT
  92.                          CursorRight
  93. CursorRight
  94. End IF
  95. EXIT WHEN EndOfFrame
  96. END REPEAT
  97. CursorHome
  98. REPEAT
  99.              CursorRight
  100. If AttributeBold = TRUE THEN
  101.                           PUT 
  102. REPEAT
  103. CursorWordRight
  104. EXIT WHEN NOT AttributeBold
  105. END REPEAT
  106.                          CursorRight
  107. CursorRight
  108. End IF
  109. EXIT WHEN EndOfFrame
  110. END REPEAT
  111. CursorHome
  112. REPEAT
  113.              CursorRight
  114. If AttributeUnderline = TRUE THEN
  115.                           PUT 
  116. REPEAT
  117. CursorWordRight
  118. EXIT WHEN NOT AttributeUnderline
  119. END REPEAT
  120.                          CursorRight
  121. CursorRight
  122. End IF
  123. EXIT WHEN EndOfFrame
  124. END REPEAT
  125. End Macro
  126.  Page: 
  127.  Page: 
  128.  Page: 
  129. DeScribe Glossary
  130. Create date
  131. Create time
  132. Document name
  133. File name
  134. Pages
  135. Pages (Alphabetic lower case)
  136. Pages (Alphabetic upper case)
  137. Pages (Roman lower case)
  138. Pages (Roman upper case)
  139. Print date
  140. Print time
  141. Revisions
  142. Save date
  143. Save time
  144. November 5, 1995
  145. 6:16 P.M.
  146. HTMLENT.Y
  147. C:\DeScribe\Macros\HTMLENT.Y
  148. November 11, 1995
  149. 7:58 P.M.
  150. November 11, 1995
  151. 7:58 P.M.
  152.