home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / AMWP-2.ZIP / MACROS.ZIP / FIND.SMM < prev    next >
Encoding:
INI File  |  1990-05-02  |  1.1 KB  |  107 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     !default.sty
  5. [files]
  6. [prn]
  7.     PCL / HP LaserJet
  8. [lang]
  9.     1
  10. [desc]
  11.     
  12.     
  13.     
  14.     
  15.     
  16.     641687488
  17.     4
  18.     641666413
  19. [fopts]
  20.     0
  21.     1
  22.     0
  23.     0
  24. [lnopts]
  25.     2
  26.     Body Text
  27. [docopts]
  28.     5
  29.     2
  30. [l1]
  31.     0
  32. [pg]
  33.     1
  34.     18 0 12 1025 0 0 0 65535 65535 Standard    0 0 0    0 0 0 0 0 0 0 65535 0 0 0 0 0 0
  35. [edoc]
  36. '
  37.  
  38. ' Quickfind - ask for/remember a search string, then search. 
  39.  
  40. ' As long as its is found put up a resume box.
  41.  
  42. '
  43.  
  44. FUNCTION QuickFind()
  45.  
  46. AllocGlobalVar(297, 1)
  47.  
  48. what = GetGlobalVar$(297)
  49.  
  50. what = Query$("Find what?", what)
  51.  
  52. SetGlobalVar(297, what)
  53.  
  54. foundcount = 0
  55.  
  56. while (1 = Replace(0, 0, 0, what, ""))
  57.  
  58.     foundcount = foundcount + 1
  59.  
  60.     UserControl("Hit retsume to FindNext")
  61.  
  62. wend
  63.  
  64. if (0 = foundcount)
  65.  
  66.     message("{what} was not found.")
  67.  
  68. endif
  69.  
  70. END FUNCTION
  71.  
  72. >
  73. [macsum] 1
  74. QuickFind 0 0 3 4
  75. [macse]
  76. 14 QuickFind
  77. 0 271 297 1
  78. 0 265 297
  79. 13
  80. 8 1
  81. 0 1 "Find what?" "{1}"
  82. 13
  83. 8 1
  84. 0 264 297 "{1}"
  85. 5 0
  86. 8 2
  87. 5 1
  88. 2 488 1 0 0 0 "{1}" ""
  89. 13
  90. 18 0
  91. 11 00000223
  92. 6 2
  93. 5 1
  94. 3 0
  95. 8 2
  96. 0 7 "Hit retsume to FindNext"
  97. 10 00000107
  98. 5 0
  99. 6 2
  100. 18 0
  101. 11 00000278
  102. 0 3 "{1} was not found."
  103. 6 0
  104. 15
  105. 9
  106. 00000809
  107.