home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / scr-htm.zip / MACROS.ZIP / HTMLSTAN (.txt) < prev    next >
DeScribe Document  |  1995-11-12  |  32KB  |  192 lines
  1. DeScribe  Copyright DeScribe, Inc., 1988, 1989
  2. Letter
  3. <none>
  4. <none>
  5. BrotherH
  6. BrotherH
  7. LASERJET
  8. Brother HL-630/631
  9. Brother HL-630/631
  10. Letter
  11. Letter
  12. Info 1
  13. Info 2
  14. Info 3
  15. Info 4
  16. Document
  17. Roman
  18. okman
  19. StickyNote
  20. Helvetica
  21. portional
  22. Bulleted List
  23. Numbered List
  24. .Hanging indent
  25. 1/2 inch over
  26. 1 inch over
  27. Indented
  28. paras
  29. Bibliography
  30. border
  31. quote
  32. ITC Bookman
  33. Heading One
  34. Helvetica
  35. portional
  36. Heading Three
  37. Heading Four
  38. Heading Two
  39. ocument
  40. Roman
  41. okman
  42. ocument
  43. Roman
  44. okman
  45. ocument
  46. Roman
  47. okman
  48. Frame 2
  49. Frame 2
  50. !============================================================
  51. !   Scribe-HTML 0.9
  52. !============================================================
  53. !                                     Copyright (c) 1995 by Mike Sosteric
  54. !============================================================
  55. !   Scribe-HTML 0.9
  56. !============================================================
  57. !===========================================================
  58. !THREE FUNCTIONS ARE
  59. ! 1) Gets Rid of Extra Space, adjusts period spacing
  60. !            Change Bibliography (if present ) to references
  61. !  2) gets rid of extra paragraph markers, 
  62.              Requires a new File Name
  63. !   3) Gets Rid of extra space at end of document
  64. !============================================================!
  65. Var NewFileName
  66. Var OldFileName
  67. Var QueryResult
  68. PROCEDURE EndOfFile
  69. CursorEnd
  70. REPEAT
  71. CursorLeft
  72. Exit When IscharAlpha = True
  73. End Repeat
  74. CursorRight
  75. CursorRight
  76. DefineToDocumentEnd
  77. DeleteText
  78. END Procedure
  79. PROCEDURE Clean
  80.     CursorHome
  81.     SearchClear
  82.     SET SearchSearch1 TO "     "
  83.     SET SearchReplace1 TO " "
  84.     SET SearchConfirm1 TO FALSE
  85.     SET SearchSearch2 TO "    "
  86.     SET SearchReplace2 TO " "
  87.     SET SearchConfirm2 TO FALSE
  88.     SearchForward
  89.     CursorHome
  90.     SearchClear
  91.     SET SearchSearch1 TO "   "
  92.     SET SearchReplace1 TO " "
  93.     SET SearchConfirm1 TO FALSE
  94.     SET SearchSearch2 TO "   "
  95.     SET SearchReplace2 TO " "
  96.     SET SearchConfirm2 TO FALSE
  97.     SearchForward
  98.     CursorHome
  99.     SearchClear
  100.     SET SearchSearch1 TO ". "
  101.     SET SearchReplace1 TO ".  "
  102.     SET SearchConfirm1 TO FALSE
  103.     SET SearchSearch2 TO ".  
  104.     SET SearchSearchMarkup2 TO TRUE
  105.     SET SearchReplace2 TO ".
  106.     SET SearchReplaceMarkup2 TO TRUE
  107.     SET SearchConfirm2 TO FALSE
  108.     SearchForward
  109.     CursorHome
  110.     SearchClear
  111.     SET SearchSearch1 TO "BIBLIOGRAPHY"
  112.     SET SearchReplace1 TO "REFERENCES"
  113.     SET SearchConfirm1 TO FALSE
  114.     SET SearchIgnoreCase1 TO FALSE
  115.     SearchForward
  116.     CursorHome
  117.     SearchClear
  118.     SET SearchSearch1 TO "FOOTNOTES"
  119.     SET SearchReplace1 TO "NOTES"
  120.     SET SearchConfirm1 TO FALSE
  121.     SET SearchIgnoreCase1 TO FALSE
  122.     SET SearchSearch2 TO "ENDNOTES"
  123.     SET SearchReplace2 TO "NOTES"
  124.     SET SearchConfirm2 TO FALSE
  125.     SET SearchIgnoreCase2 TO FALSE
  126.     SearchForward
  127. END PROCEDURE
  128. PROCEDURE Paragraph
  129. !    Fix end of paragraph markers
  130.    CursorHome
  131.     SearchClear
  132.     SET SearchSearch1 TO ".  
  133.     SET SearchSearchMarkup1 TO TRUE
  134.     SET SearchReplace1 TO ".
  135.     SET SearchReplaceMarkup1 TO TRUE
  136.     SET SearchConfirm1 TO FALSE
  137.     SET SearchSearch2 TO ".   
  138.     SET SearchSearchMarkup2 TO TRUE
  139.     SET SearchReplace2 TO ".
  140.     SET SearchReplaceMarkup2 TO TRUE
  141.     SET SearchConfirm2 TO FALSE
  142.     SearchForward
  143. ! Get rid of extra paragraph markers
  144.    CursorHome
  145.     SearchClear
  146.     SET SearchSearch1 TO "
  147.     SET SearchSearchMarkup1 TO TRUE
  148.     SET SearchReplace1 TO "
  149.     SET SearchReplaceMarkup1 TO TRUE
  150.     SET SearchConfirm1 TO FALSE
  151.     SET SearchSearch2 TO "
  152.     SET SearchSearchMarkup2 TO TRUE
  153.     SET SearchReplace2 TO "
  154.     SET SearchReplaceMarkup2 TO TRUE
  155.     SET SearchConfirm2 TO FALSE
  156.     SearchForward
  157. END PROCEDURE
  158. MACRO HTMLSTAN
  159. SET GlobalPrefInsertMode to True
  160. Set FileInfoDescription to 
  161. This File Cleaned by HTMLSTAN
  162. Call EndOfFile
  163. Call Clean
  164. Call Paragraph
  165. END MACRO
  166.  Page: 
  167.  Page: 
  168.  Page: 
  169. DeScribe Glossary
  170. Create date
  171. Create time
  172. Document name
  173. File name
  174. Pages
  175. Pages (Alphabetic lower case)
  176. Pages (Alphabetic upper case)
  177. Pages (Roman lower case)
  178. Pages (Roman upper case)
  179. Print date
  180. Print time
  181. Revisions
  182. Save date
  183. Save time
  184. November 2, 1995
  185. 1:51 P.M.
  186. HTMLSTAN
  187. C:\DESCRIBE\MACROS\HTMLSTAN
  188. November 12, 1995
  189. 2:58 P.M.
  190. November 12, 1995
  191. 2:59 P.M.
  192.