home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 18 / 18.iso / w / w252 / 4.ddi / MACROS.CMZ / FIND.SMM < prev    next >
Encoding:
INI File  |  1991-08-19  |  1.4 KB  |  130 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [lang]
  14.     1
  15. [desc]
  16.     Quickfind - ask for/remember a search string, then search.  As long as its is found put up a resume box.
  17.     Lotus Word Processing Division
  18.     Intermediate
  19.     Global Vars, Replace
  20.     
  21.     682670269
  22.     11
  23.     641666413
  24.     4
  25.     1
  26.     0
  27.     0
  28.     0
  29.     0
  30.     
  31.     
  32.     
  33.     
  34.     
  35.     
  36.     0
  37. [fopts]
  38.     0
  39.     1
  40.     0
  41.     0
  42. [lnopts]
  43.     2
  44.     Body Text
  45.     1
  46. [docopts]
  47.     5
  48.     2
  49. [l1]
  50.     0
  51. [edoc]
  52. '
  53.  
  54. ' Quickfind - ask for/remember a search string, then search. 
  55.  
  56. ' As long as its is found put up a resume box.
  57.  
  58. '
  59.  
  60. FUNCTION QuickFind()
  61.  
  62. AllocGlobalVar(297, 1)
  63.  
  64. what = GetGlobalVar$(297)
  65.  
  66. what = Query$("Find what?", what)
  67.  
  68. SetGlobalVar(297, what)
  69.  
  70. foundcount = 0
  71.  
  72. while (1 = Replace(0, 0, 0, what, ""))
  73.  
  74.     foundcount = foundcount + 1
  75.  
  76.     UserControl("Resume to Find Next")
  77.  
  78.     type("<[>right]")
  79.  
  80. wend
  81.  
  82. if (0 = foundcount)
  83.  
  84.     message("{what} was not found.")
  85.  
  86. endif
  87.  
  88. END FUNCTION
  89.  
  90. >
  91.  
  92. [Embedded]
  93. 00001018
  94. >
  95. [macsum] 1
  96. QuickFind 0 0 3 4
  97. [macse]
  98. 14 QuickFind
  99. 0 271 297 1
  100. 0 265 297
  101. 13
  102. 8 1
  103. 0 1 "Find what?" "{1}"
  104. 13
  105. 8 1
  106. 0 264 297 "{1}"
  107. 5 0
  108. 8 2
  109. 5 1
  110. 2 488 1 0 0 0 "{1}" ""
  111. 13
  112. 18 0
  113. 11 00000231
  114. 6 2
  115. 5 1
  116. 3 0
  117. 8 2
  118. 0 7 "Resume to Find Next"
  119. 0 6 "[39]"
  120. 10 00000107
  121. 5 0
  122. 6 2
  123. 18 0
  124. 11 00000286
  125. 0 3 "{1} was not found."
  126. 6 0
  127. 15
  128. 9
  129. 00001043
  130.