home *** CD-ROM | disk | FTP | other *** search
/ Program Metropolis - Software Boutique 95 / SOFTWARECD.iso / camipro3 / macros.cmz / FIND.SMM < prev    next >
Encoding:
INI File  |  1994-08-14  |  2.5 KB  |  197 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     CHINESEBIG5 (Windows)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     ªbñσÑ≤ññ┤MºΣªrªΩ
  19.     Lotus WPD Marketing
  20.     Intermediate
  21.     Replace
  22.     noautorun
  23.     773101795
  24.     13
  25.     641666413
  26.     19
  27.     1
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [l1]
  54.     0
  55. [pg]
  56.     1
  57.     35 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  58. [edoc]
  59. <:#284,9025>'
  60.  
  61. <:#284,9025>' Quickfind - ask for/remember a search string, then search. 
  62.  
  63. <:#284,9025>' Begin search from beginning of file.
  64.  
  65. <:#284,9025>' As long as its is found put up a resume box.
  66.  
  67. <:#284,9025>' Tip:  Selected text becomes the default search text
  68.  
  69. <:#284,9025>define IsOKToRun(menuname)    GetInfo(217, 24, %1);
  70.  
  71. @Subhead@<:#284,9025>
  72.  
  73. <:#284,9025>
  74.  
  75. <:#284,9025>FUNCTION QuickFind()
  76.  
  77. <:#284,9025>ignorekeyboard(2)
  78.  
  79. @Subhead@<:#284,9025>result=IsOKToRun(FindReplace)
  80.  
  81. @Subhead@<:#284,9025>if result !=1 exit function
  82.  
  83. @Subhead@<:#284,9025>endif
  84.  
  85. <:#284,9025>AllocGlobalVar("FindString", 1)
  86.  
  87. <:#284,9025>what = GetGlobalVar$("FindString")
  88.  
  89. <:#284,9025>shade = curshade$()
  90.  
  91. <:#284,9025>if shade <<<;> ""
  92.  
  93. <:#284,9025>    what = shade
  94.  
  95. <:#284,9025>endif
  96.  
  97. <:#284,9025>what = Query$("Find:", what)
  98.  
  99. <:#284,9025>SetGlobalVar("FindString", what)
  100.  
  101. <:#284,9025>foundcount = 0
  102.  
  103. <:#284,9025>if not Replace(0, 0, 0, what, "")
  104.  
  105. <:#284,9025>    message("{what} was not found.")
  106.  
  107. <:#284,9025>    exit function
  108.  
  109. <:#284,9025>endif
  110.  
  111. <:#284,9025>while (1 = Replace(0, 0, 0, what, ""))
  112.  
  113. <:#284,9025>    foundcount = foundcount + 1
  114.  
  115. <:#284,9025>    UserControl("Resume to find next")
  116.  
  117. <:#284,9025>    type("<[>esc]<[>right]")
  118.  
  119. <:#284,9025>wend
  120.  
  121. <:#284,9025>if (0 = foundcount)
  122.  
  123. <:#284,9025>    message("{what} was not found.")
  124.  
  125. <:#284,9025>endif
  126.  
  127. <:#284,9025>END FUNCTION
  128.  
  129. >
  130.  
  131. [Embedded]
  132. 00001948
  133. >
  134. [macsum] 1
  135. QuickFind 0 0 5 8
  136. [macse]
  137. 14 QuickFind
  138. 0 32 2
  139. 0 1313 217 24 451
  140. 13
  141. 8 1
  142. 6 1
  143. 5 1
  144. 18 1
  145. 11 00000091
  146. 6 0
  147. 15
  148. 9
  149. 0 271 "FindString" 1
  150. 0 265 "FindString"
  151. 13
  152. 8 2
  153. 0 24
  154. 13
  155. 8 3
  156. 6 3
  157. 7 ""
  158. 18 1
  159. 11 00000197
  160. 6 3
  161. 8 2
  162. 0 1 "Find:" "{2}"
  163. 13
  164. 8 2
  165. 0 264 "FindString" "{2}"
  166. 5 0
  167. 8 4
  168. 2 488 1 0 0 0 "{2}" ""
  169. 13
  170. 1 3
  171. 11 00000345
  172. 0 3 "{2} was not found."
  173. 6 0
  174. 15
  175. 9
  176. 5 1
  177. 2 488 1 0 0 0 "{2}" ""
  178. 13
  179. 18 0
  180. 11 00000473
  181. 6 4
  182. 5 1
  183. 3 0
  184. 8 4
  185. 0 7 "Resume to find next"
  186. 0 6 "[27][39]"
  187. 10 00000345
  188. 5 0
  189. 6 4
  190. 18 0
  191. 11 00000528
  192. 0 3 "{2} was not found."
  193. 6 0
  194. 15
  195. 9
  196. 00001973
  197.