home *** CD-ROM | disk | FTP | other *** search
/ Program Metropolis - Software Boutique 95 / SOFTWARECD.iso / camipro3 / macros.cmz / FINDFILE.SMM < prev    next >
Encoding:
INI File  |  1994-08-14  |  19.8 KB  |  1,336 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.     Apple LaserWriter Plus
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     ┤MºΣ¿├╢}▒╥ñσÑ≤
  19.     Lotus WPD Marketing
  20.     Advanced
  21.     Instr
  22.     noautorun
  23.     777081500
  24.     20
  25.     705033251
  26.     341
  27.     7
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  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. [ParaNum]
  54.     1
  55. [l1]
  56.     0
  57. [pg]
  58.     7
  59.     48 0 34 0 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
  60.     95 0 12 0 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
  61.     144 0 10 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  62.     193 0 27 0 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
  63.     242 0 24 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  64.     291 0 24 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  65.     330 0 0 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
  66. [edoc]
  67. <:#293,9025>Macro by <+!>Charlie Pappas<-!> and David Zoller
  68.  
  69. <:#284,9025>
  70.  
  71. <:#568,9025>DEFINE MoveWindow()    DllCall("user,MoveWindow,HHHHHHH",%1,%2,%3,%4,%5,1)
  72.  
  73. <:#284,9025>DEFINE GetWindowSize()    DllCall("user,GetWindowRect,HHN",%1,%2)
  74.  
  75. <:#284,9025>Define PostMessage() DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)
  76.  
  77. <:#284,9025>define EnableWindow() DllCall("user,EnableWindow,HHH", %1, %2)
  78.  
  79. <:#284,9025>define SetFocus() DllCall("user,SetFocus,HH",%1)
  80.  
  81. <:#284,9025>define LB_GETSELCOUNT 0x411
  82.  
  83. <:#284,9025>define LB_GETSELITEMS 0x412
  84.  
  85. <:#284,9025>define LB_GETTEXT 0x40a
  86.  
  87. <:#284,9025>
  88.  
  89. @Function@<:#293,9025>function ff.smm(passme)
  90.  
  91. <:#284,9025>IF IsNewWave()
  92.  
  93. <:#284,9025>    Message("Macro not available while running under HP NewWave.")
  94.  
  95. <:#284,9025>    Exit Function
  96.  
  97. <:#284,9025>ENDIF
  98.  
  99. <:#284,9025>'singlestep(0)
  100.  
  101. <:#284,9025>hourglass(1)
  102.  
  103. <:#284,9025>ignorekeyboard(1)
  104.  
  105. <:#284,9025>declare findit(p1 p2 p3 p4)
  106.  
  107. <:#284,9025>declare ckfile(file)
  108.  
  109. <:#284,9025>rmac = getrunningmacrofile$()
  110.  
  111. <:#284,9025>Size = 300
  112.  
  113. <:#284,9025>allocglobalvar(1000 size)
  114.  
  115. <:#284,9025>allocglobalvar(1001 size)
  116.  
  117. <:#284,9025>allocglobalvar(1002 1)
  118.  
  119. <:#284,9025>allocglobalvar(1003 1)
  120.  
  121. <:#284,9025>allocglobalvar("txt" 1)
  122.  
  123. <:#284,9025>allocglobalvar("itran", 1)
  124.  
  125. <:#284,9025>allocglobalvar("hits", 1)
  126.  
  127. <:#284,9025>
  128.  
  129. <:#284,9025>setglobalvar("txt", "")
  130.  
  131. <:#284,9025>setglobalvar(1002 size)
  132.  
  133. <:#284,9025>onerror endit
  134.  
  135. <:#284,9025>oncancel endit
  136.  
  137. <:#284,9025>FileSpec = Getdocpath$()
  138.  
  139. <:#284,9025>if passme <<<;> ""
  140.  
  141. <:#284,9025>    filespec = getmacpath$()
  142.  
  143. <:#284,9025>endif
  144.  
  145. <:#284,9025>FileSpec = "{FileSpec}*.S?M"
  146.  
  147. <:#284,9025>Subs = 0
  148.  
  149. <:#284,9025>FillEdit(8000 FileSpec)
  150.  
  151. <:#284,9025>FillEdit(100 Subs)
  152.  
  153. <:#284,9025>filledit(20, 1)
  154.  
  155. <:#284,9025>setdlgcallback(0, "{rmac}!initbox")
  156.  
  157. <:#284,9025>setdlgcallback(70, "{rmac}!findem")
  158.  
  159. <:#284,9025>setdlgcallback(71, "{rmac}!openem")
  160.  
  161. <:#284,9025>box = DialogBox(".", "filesfound")
  162.  
  163. <:#284,9025>endit:
  164.  
  165. <:#284,9025>freeglobalvar(1000)
  166.  
  167. <:#284,9025>freeglobalvar(1001)
  168.  
  169. <:#284,9025>freeglobalvar(1002)
  170.  
  171. <:#284,9025>freeglobalvar(1003)
  172.  
  173. <:#284,9025>freeglobalvar("txt")
  174.  
  175. <:#284,9025>freeglobalvar("itran")
  176.  
  177. <:#284,9025>freeglobalvar("hits")
  178.  
  179. <:#284,9025>end function
  180.  
  181. <:#284,9025>
  182.  
  183. @Function@<:#293,9025>function initbox(hdlg)
  184.  
  185. <:#284,9025>hourglass(1)
  186.  
  187. <:#284,9025>enablewindow(getdlgitem(hdlg, 71), 0)
  188.  
  189. <:#284,9025>end function
  190.  
  191. <:#284,9025>
  192.  
  193. <:#284,9025>
  194.  
  195. @Function@<:#293,9025>function openem(hdlg, id, dummy)
  196.  
  197. <:#284,9025>hourglass(1)
  198.  
  199. <:#284,9025>ignorekeyboard(1)
  200.  
  201. <:#284,9025>hwnd = GetDlgItem(hdlg, 9007)
  202.  
  203. <:#284,9025>cnt = AppSendMessage(hwnd, LB_GETSELCOUNT, 0, 0)
  204.  
  205. <:#284,9025>filesopen=GetOpenFileCount()
  206.  
  207. <:#284,9025>allowable=9 - filesopen
  208.  
  209. <:#284,9025>if cnt << 1
  210.  
  211. <:#284,9025>    message("No files selected to open.")
  212.  
  213. <:#284,9025>'    PostMessage(Hdlg,0x111,1,0)
  214.  
  215. <:#284,9025>    return 0
  216.  
  217. <:#284,9025>endif
  218.  
  219. <:#284,9025>ret=chr$(13)
  220.  
  221. <:#284,9025>if cnt <;> allowable
  222.  
  223. <:#284,9025>    message ("Select {allowable} files or less; {filesopen} file already open.")
  224.  
  225. <:#284,9025>    return 0
  226.  
  227. <:#284,9025>endif
  228.  
  229. <:#568,9025>define GetSelItems(hwnd, max, array) DllCall("user,sendmessage,HHHHN", %1, LB_GETSELITEMS, %2, %3)
  230.  
  231. <:#284,9025>dim    array(cnt)
  232.  
  233. <:#284,9025>GetSelItems(hwnd, cnt, &array)
  234.  
  235. <:#568,9025>define GetLBText(hwnd, index, ptr) dllcall("user,sendmessage,HHHHC", %1, LB_GETTEXT, %2, %3)
  236.  
  237. <:#284,9025>
  238.  
  239. <:#284,9025>defstr stuff;
  240.  
  241. <:#284,9025>PostMessage(Hdlg,0x111,1,0)
  242.  
  243. <:#284,9025>for i = 1 to cnt
  244.  
  245. <:#284,9025>    GetLBText(hwnd, array(i), &stuff)
  246.  
  247. <:#284,9025>    FileOpen(stuff, 1, "")
  248.  
  249. <:#284,9025>    pause (002)
  250.  
  251. <:#284,9025>'    message(strcat$("selected ", array(i), " {stuff}"))
  252.  
  253. <:#284,9025>next
  254.  
  255. <:#284,9025>end function
  256.  
  257. <:#284,9025>
  258.  
  259. <:#284,9025>
  260.  
  261. @Function@<:#293,9025>function findem(hdlg)
  262.  
  263. <:#284,9025>hourglass(1)
  264.  
  265. <:#284,9025>ignorekeyboard(1)
  266.  
  267. <:#284,9025>if getglobalvar$("itran") <<<;> 1
  268.  
  269. <:#284,9025>    dim rect(4)
  270.  
  271. <:#284,9025>    GetWindowSize(hDlg,&rect)
  272.  
  273. <:#284,9025>    x=rect(1)
  274.  
  275. <:#284,9025>    y=rect(2)
  276.  
  277. <:#284,9025>    x1=rect(3)
  278.  
  279. <:#284,9025>    y1=rect(4)
  280.  
  281. <:#284,9025>    MoveWindow(hDlg,x,y,x1-x,y1-y+146)
  282.  
  283. <:#284,9025>endif
  284.  
  285. <:#284,9025>setglobalvar("itran", 1)
  286.  
  287. <:#284,9025>ignorekeyboard(1)
  288.  
  289. <:#284,9025>onerror endit
  290.  
  291. <:#284,9025>oncancel endit
  292.  
  293. <:#284,9025>again:
  294.  
  295. <:#284,9025>FileSpec = GetDlgitemtext(hdlg, 8000)
  296.  
  297. <:#284,9025>setglobalvar("txt", GetDlgitemtext(hdlg, 8001))
  298.  
  299. <:#284,9025>if strchr(1, filespec, "\") << 1
  300.  
  301. <:#284,9025>    filespec = strcat$("\", filespec)
  302.  
  303. <:#284,9025>endif
  304.  
  305. <:#284,9025>Subs = GetDlgitemtext(hdlg, 100)
  306.  
  307. <:#284,9025>handle = getdlgitem(hdlg, 9007)
  308.  
  309. <:#284,9025>appsendmessage(handle, 0x0405, 0, 0) ' lb_resetcontent clears the listbox
  310.  
  311. <:#284,9025>freeglobalvar(1000)
  312.  
  313. <:#284,9025>freeglobalvar(1001)
  314.  
  315. <:#284,9025>freeglobalvar(1002)
  316.  
  317. <:#284,9025>freeglobalvar(1003)
  318.  
  319. <:#284,9025>Size = 300
  320.  
  321. <:#284,9025>allocglobalvar(1000 size)
  322.  
  323. <:#284,9025>allocglobalvar(1001 size)
  324.  
  325. <:#284,9025>allocglobalvar(1002 1)
  326.  
  327. <:#284,9025>allocglobalvar(1003 1)
  328.  
  329. <:#284,9025>setglobalvar(1003 0)
  330.  
  331. <:#284,9025>setglobalvar(1002 size)
  332.  
  333. <:#284,9025>setglobalvar("hits", 0)
  334.  
  335. <:#284,9025>setdlgitemtext(hdlg, 8007, getglobalvar$(1003))
  336.  
  337. <:#284,9025>setdlgitemtext(hdlg, 8009, getglobalvar$(1003))
  338.  
  339. <:#284,9025>i = 1
  340.  
  341. <:#284,9025>while (i <;> 0)
  342.  
  343. <:#284,9025>    i = strchr(i FileSpec "\")
  344.  
  345. <:#284,9025>    if i << 1 then
  346.  
  347. <:#284,9025>        break
  348.  
  349. <:#284,9025>    endif
  350.  
  351. <:#284,9025>    j = i
  352.  
  353. <:#284,9025>    i = i + 1
  354.  
  355. <:#284,9025>wend
  356.  
  357. <:#284,9025>if j << 1 then
  358.  
  359. <:#284,9025>    if  False = (strchr(1 FileSpec "*")) or False = (strchr(1 FileSpec "?"))
  360.  
  361. <:#284,9025>        Message("Invalid Filespec")
  362.  
  363. <:#284,9025>        goto again
  364.  
  365. <:#284,9025>    else
  366.  
  367. <:#284,9025>        StartWhere = GetCurrentDir$()
  368.  
  369. <:#284,9025>        if (right$(startwhere, 1)) <<<;> "\" then
  370.  
  371. <:#284,9025>            StartWhere = "{StartWhere}\"
  372.  
  373. <:#284,9025>        endif
  374.  
  375. <:#284,9025>        ForWhat = FileSpec
  376.  
  377. <:#284,9025>    endif
  378.  
  379. <:#284,9025>else
  380.  
  381. <:#284,9025>    ForWhat = MID$(FileSpec j + 1 (Len(FileSpec) - j + 1))
  382.  
  383. <:#284,9025>    StartWhere = MID$(FileSpec 1 j)
  384.  
  385. <:#284,9025>endif
  386.  
  387. <:#284,9025>allocglobalvar("breakit", 1)
  388.  
  389. <:#284,9025>freeglobalvar("breakit")
  390.  
  391. <:#284,9025>allocglobalvar("breakit", 1)
  392.  
  393. <:#284,9025>FindIt(hdlg, StartWhere, ForWhat, Subs)
  394.  
  395. <:#284,9025>'<:f240,BArial,255,0,0>freeglobalvar("breakit")<:f>
  396.  
  397. <:#284,9025>count = getglobalvar$(1003)
  398.  
  399. <:#284,9025>setdlgitemtext(hdlg, 8007, count)
  400.  
  401. <:#284,9025>statusbarmsg("")
  402.  
  403. <:#284,9025>enablewindow(getdlgitem(hdlg, 71), 1)
  404.  
  405. <:#284,9025>setfocus(getdlgitem(hdlg, 71))
  406.  
  407. <:#284,9025>return 1
  408.  
  409. <:#284,9025>endit:
  410.  
  411. <:#284,9025>for i = 1000 to 1003
  412.  
  413. <:#284,9025>    allocglobalvar(i, 1)
  414.  
  415. <:#284,9025>next
  416.  
  417. <:#284,9025>for i = 1000 to 1003
  418.  
  419. <:#284,9025>    freeglobalvar(i)
  420.  
  421. <:#284,9025>next
  422.  
  423. <:#284,9025>statusbarmsg("")
  424.  
  425. <:#284,9025>end function
  426.  
  427. <:#284,9025>
  428.  
  429. @Function@<:#293,9025>function findit(hdlg, startwhere, forwhat, subs)
  430.  
  431. <:#284,9025>hourglass(1)
  432.  
  433. <:#284,9025>ignorekeyboard(1)
  434.  
  435. <:#284,9025>onerror endit
  436.  
  437. <:#284,9025>oncancel endit
  438.  
  439. <:#284,9025>if getglobalvar$("breakit")
  440.  
  441. <:#284,9025>    goto endit
  442.  
  443. <:#284,9025>endif
  444.  
  445. <+C><:#284,9025>rmac = getrunningmacrofile$()
  446.  
  447. <+C><:#284,9025>
  448.  
  449. <:#284,9025>dim dirs(300)
  450.  
  451. <:#284,9025>count = getglobalvar$(1003)
  452.  
  453. <:#284,9025>temp = strcat$(startwhere forwhat)
  454.  
  455. <:#284,9025>name = findfirst$(temp 1)
  456.  
  457. <:#284,9025>statusbarmsg(name)
  458.  
  459. <:#284,9025>while "" <<<;> name
  460.  
  461. <:#284,9025>    if "\" <<<;> right$(name, 1)
  462.  
  463. <:#284,9025>        count = count + 1
  464.  
  465. <:#284,9025>        size = getglobalvar$(1002)
  466.  
  467. <:#284,9025>        if size = count
  468.  
  469. <:#284,9025>            size = size + 100
  470.  
  471. <:#284,9025>            allocglobalvar(1000 size)
  472.  
  473. <:#284,9025>            allocglobalvar(1001 size)
  474.  
  475. <:#284,9025>            setglobalvar(1002 size)
  476.  
  477. <:#284,9025>        endif
  478.  
  479. <:#284,9025>        statusbarmsg("{startwhere}{name}")
  480.  
  481. <:#284,9025>        txt = getglobalvar$("txt")
  482.  
  483. <:#284,9025>        if txt <<<;> ""
  484.  
  485. <:#284,9025>            file = ckfile("{startwhere}{name}")
  486.  
  487. <:#284,9025>            if file = 0
  488.  
  489. <:#284,9025>                goto noadd
  490.  
  491. <:#284,9025>            endif
  492.  
  493. <:#284,9025>        endif
  494.  
  495. <:#284,9025>        setdlgitemtext(hdlg, 9007, "{startwhere}{name}")
  496.  
  497. <:#284,9025>        'count = getglobalvar$(1003)
  498.  
  499. <:#284,9025>        setdlgitemtext(hdlg, 8007, count)
  500.  
  501. <:#284,9025>        hits = getglobalvar$("hits")
  502.  
  503. <:#284,9025>        hits = hits + 1
  504.  
  505. <:#284,9025>        setglobalvar("hits", hits)
  506.  
  507. <:#284,9025>        setdlgitemtext(hdlg, 8009, hits)
  508.  
  509. <:#284,9025>        'filllist("{startwhere}{name}")
  510.  
  511. <:#284,9025>        'type("{startwhere}{name}<[>enter]") ******** DATA ***********
  512.  
  513. <:#284,9025>        setglobalarray(1000 count startwhere)
  514.  
  515. <:#284,9025>        setglobalarray(1001 count name)
  516.  
  517. <:#284,9025>        noadd:
  518.  
  519. <:#284,9025>    endif
  520.  
  521. <:#284,9025>    name = findnext$()
  522.  
  523. <:#284,9025>wend
  524.  
  525. <:#284,9025>setglobalvar(1003 count)
  526.  
  527. <:#284,9025>if subs <<<;> 1 then
  528.  
  529. <:#284,9025>    return 1
  530.  
  531. <:#284,9025>endif
  532.  
  533. <:#284,9025>temp = strcat$(startwhere "*.")
  534.  
  535. <:#284,9025>name = findfirst$(temp 16)
  536.  
  537. <:#284,9025>dircount = 0
  538.  
  539. <:#284,9025>while "" <<<;> name
  540.  
  541. <:#284,9025>    if "\" = right$(name, 1)
  542.  
  543. <:#284,9025>        if "." <<<;> mid$(name 1 1)
  544.  
  545. <:#284,9025>            temp = strcat$(startwhere name)
  546.  
  547. <:#284,9025>            dircount = dircount + 1
  548.  
  549. <:#284,9025>            dirs(dircount) = temp
  550.  
  551. <:#284,9025>        endif
  552.  
  553. <:#284,9025>    endif
  554.  
  555. <:#284,9025>    name = findnext$()
  556.  
  557. <:#284,9025>    statusbarmsg(name)
  558.  
  559. <:#284,9025>wend
  560.  
  561. <:#284,9025>for i = 1 to dircount
  562.  
  563. <:#284,9025>    temp = dirs(i)
  564.  
  565. <:#284,9025>    if getglobalvar$("breakit") = 1
  566.  
  567. <:#284,9025>        goto endit
  568.  
  569. <:#284,9025>    endif
  570.  
  571. <:#284,9025>    findit(hdlg, temp, forwhat, subs)
  572.  
  573. <:#284,9025>next
  574.  
  575. <:#284,9025>return 1
  576.  
  577. <:#284,9025>endit:
  578.  
  579. <:#284,9025>setglobalvar("breakit", 1)
  580.  
  581. <:#284,9025>end function
  582.  
  583. <:#284,9025>
  584.  
  585. <:#284,9025>
  586.  
  587. @Function@<:#293,9025>
  588.  
  589. @Function@<:#293,9025>function ckfile(file)
  590.  
  591. <:#284,9025>ignorekeyboard(1)
  592.  
  593. <:#284,9025>txt = getglobalvar$("txt")
  594.  
  595. <:#284,9025>extension=lcase$(strfield$(file, 2, "."))
  596.  
  597. <:#284,9025>dontsearch=lcase$("bmp com dll exe flt grp hlp ico sys wav")
  598.  
  599. <:#284,9025>if kinstr(1, dontsearch, extension) !=0
  600.  
  601. <:#284,9025>    return 0
  602.  
  603. <:#284,9025>    exit function
  604.  
  605. <:#284,9025>endif
  606.  
  607. <:#284,9025>statusbarmsg("Checking text of file:  {file}")
  608.  
  609. <:#284,9025>fh = fopen(file, "rb")
  610.  
  611. <:#284,9025>if fh << 1
  612.  
  613. <:#284,9025>    message("Unable to open file {file}")
  614.  
  615. <:#284,9025>    return 0
  616.  
  617. <:#284,9025>endif
  618.  
  619. <:#284,9025>onerror endit
  620.  
  621. <:#284,9025>oncancel endit
  622.  
  623. <:#284,9025>fseek(fh, 0, fend)
  624.  
  625. <:#284,9025>last = ftell(fh)
  626.  
  627. <:#284,9025>fseek(fh, 0, fbegin)
  628.  
  629. <:#284,9025>start = 0
  630.  
  631. <:#284,9025>while (1)
  632.  
  633. <:#284,9025>    data = fread(fh, 3200)
  634.  
  635. <:#284,9025>    if data = -1
  636.  
  637. <:#284,9025>        break
  638.  
  639. <:#284,9025>    endif
  640.  
  641. <:#284,9025>    a = len(data)
  642.  
  643.     data = strcat$(data,"\0")
  644.  
  645. <:#284,9025>    ck = kinstr(1, data, txt)
  646.  
  647. <:#284,9025>    if ck <<<;> 0 and ck <<<;> ""
  648.  
  649. <:#284,9025>        break
  650.  
  651. <:#284,9025>    endif
  652.  
  653. <:#284,9025>    start = start + 3200
  654.  
  655. <:#284,9025>    where = ftell(fh)
  656.  
  657. <:#284,9025>    if where <;>= last
  658.  
  659. <:#284,9025>        break
  660.  
  661. <:#284,9025>    endif
  662.  
  663. <:#284,9025>wend
  664.  
  665. <:#284,9025>endit:
  666.  
  667. <:#284,9025>fclose(fh)
  668.  
  669. <:#284,9025>return ck
  670.  
  671. <:#284,9025>end function
  672.  
  673. <:#284,9025>
  674.  
  675. <:#284,9025>
  676.  
  677. <:#284,9025>62
  678.  
  679. @Function@<:#293,9025>DIALOG filesfound
  680.  
  681. <:#284,9025>-2134376448 14 56 27 222 50 "" "" "Find Files"
  682.  
  683. <:#284,9025>FONT 8 "Helv"
  684.  
  685. <:#284,9025>6 7 58 8 1002 1342177280 "static" "Searc&h For:" 0 
  686.  
  687. <:#284,9025>69 5 90 12 8000 1350631552 "edit" "" 0 
  688.  
  689. <:#284,9025>69 18 85 9 100 1342242819 "button" "Include &Subdirectories" 0 
  690.  
  691. <:#284,9025>6 32 61 10 1001 1342177280 "static" "Text to search for:" 0 
  692.  
  693. <:#284,9025>69 30 89 12 8001 1350631552 "edit" "" 0 
  694.  
  695. <:#284,9025>4 60 66 8 1000 1342177280 "static" "&Select files to open:" 0 
  696.  
  697. <:#284,9025>4 71 212 71 9007 1352728587 "listbox" "" 0 
  698.  
  699. <:#284,9025>177 52 40 14 71 1342373889 "button" "Open" 0 
  700.  
  701. <:#284,9025>177 5 40 14 70 1342373889 "button" "Search" 0 
  702.  
  703. <:#284,9025>177 21 40 14 2 1342373888 "button" "Cancel" 0 
  704.  
  705. <:#284,9025>104 50 52 10 1003 1342177280 "static" "Files searched" 0 
  706.  
  707. <:#284,9025>82 49 18 9 8007 1342177280 "static" "" 0 
  708.  
  709. <:#284,9025>104 61 48 9 1005 1342177280 "static" "Files found" 0 
  710.  
  711. <:#284,9025>82 61 18 9 8009 1342177280 "static" "" 0 
  712.  
  713. <:#284,9025>END DIALOG
  714.  
  715. <:#284,9025>
  716.  
  717. <:#284,9025>
  718.  
  719. @Function@<:#293,9025>function stopit()
  720.  
  721. <:#284,9025>setglobalvar("breakit", 1)
  722.  
  723. <:#284,9025>end function
  724.  
  725. <:#284,9025>
  726.  
  727. >
  728.  
  729. [Embedded]
  730. 00013737
  731. >
  732. [macsum] 8
  733. ff.smm 0 1 6 11
  734. initbox 659 1 1 58
  735. openem 748 3 9 64
  736. findem 1383 1 15 97
  737. findit 3266 4 12 181
  738. ckfile 4679 1 11 261
  739. filesfound 5491 0 -1 306
  740. stopit 6290 0 1 326
  741. [macse]
  742. 14 ff.smm
  743. 0 1317
  744. 13
  745. 11 00000107
  746. 0 3 "Macro not available while running under HP NewWave."
  747. 6 1
  748. 15
  749. 9
  750. 0 296 1
  751. 0 32 1
  752. 0 802
  753. 13
  754. 8 2
  755. 5 300
  756. 8 3
  757. 0 271 1000 "{3}"
  758. 0 271 1001 "{3}"
  759. 0 271 1002 1
  760. 0 271 1003 1
  761. 0 271 "txt" 1
  762. 0 271 "itran" 1
  763. 0 271 "hits" 1
  764. 0 264 "txt" ""
  765. 0 264 1002 "{3}"
  766. 20 00000557
  767. 19 00000557
  768. 0 268
  769. 13
  770. 8 4
  771. 6 0
  772. 7 ""
  773. 18 1
  774. 11 00000386
  775. 0 295
  776. 13
  777. 8 4
  778. 7 "{4}*.S?M"
  779. 8 4
  780. 5 0
  781. 8 5
  782. 0 31 8000 "{4}"
  783. 0 31 100 "{5}"
  784. 0 31 20 1
  785. 0 41 0 "{2}!initbox"
  786. 0 41 70 "{2}!findem"
  787. 0 41 71 "{2}!openem"
  788. 0 26 "." "filesfound"
  789. 13
  790. 8 6
  791. 0 266 1000
  792. 0 266 1001
  793. 0 266 1002
  794. 0 266 1003
  795. 0 266 "txt"
  796. 0 266 "itran"
  797. 0 266 "hits"
  798. 6 1
  799. 15
  800. 9
  801. 14 initbox
  802. 0 296 1
  803. 0 44 "{0}" 71
  804. 13
  805. 0 284 "user,EnableWindow,HHH" [X] 0
  806. 6 1
  807. 15
  808. 9
  809. 14 openem
  810. 0 296 1
  811. 0 32 1
  812. 0 44 "{0}" 9007
  813. 13
  814. 8 4
  815. 0 1036 "{4}" 1041 0 0
  816. 13
  817. 8 5
  818. 0 1050
  819. 13
  820. 8 6
  821. 5 9
  822. 6 6
  823. 3 1
  824. 8 7
  825. 6 5
  826. 5 1
  827. 18 5
  828. 11 00000198
  829. 0 3 "No files selected to open."
  830. 5 0
  831. 15
  832. 9
  833. 0 39 13
  834. 13
  835. 8 8
  836. 6 5
  837. 6 7
  838. 18 3
  839. 11 00000313
  840. 0 3 "Select {7} files or less; {6} file already open."
  841. 5 0
  842. 15
  843. 9
  844. 6 5
  845. 21 9 [X]
  846. 0 284 "user,sendmessage,HHHHN" "{4}" 1042 "{5}" &9
  847. 0 284 "User,PostMessage,HHHHJ" "{0}" 273 1 0
  848. 5 1
  849. 8 11
  850. 6 5
  851. 6 11
  852. 18 2
  853. 12 00000515
  854. 10 00000623
  855. 5 1
  856. 6 11
  857. 3 0
  858. 8 11
  859. 10 00000437
  860. 6 11
  861. 22 9
  862. 0 284 "user,sendmessage,HHHHC" "{4}" 1034 [X] &10
  863. 2 102 1 "{10}" 1 ""
  864. 0 274 002
  865. 10 00000480
  866. 6 3
  867. 15
  868. 9
  869. 14 findem
  870. 0 296 1
  871. 0 32 1
  872. 0 265 "itran"
  873. 13
  874. 5 1
  875. 18 1
  876. 11 00000294
  877. 5 4
  878. 21 2 [X]
  879. 0 284 "user,GetWindowRect,HHN" "{0}" &2
  880. 5 1
  881. 22 2
  882. 8 3
  883. 5 2
  884. 22 2
  885. 8 4
  886. 5 3
  887. 22 2
  888. 8 5
  889. 5 4
  890. 22 2
  891. 8 6
  892. 6 5
  893. 6 3
  894. 3 1
  895. 6 6
  896. 6 4
  897. 3 1
  898. 5 146
  899. 3 0
  900. 0 284 "user,MoveWindow,HHHHHHH" "{0}" "{3}" "{4}" [X] [X] 1
  901. 0 264 "itran" 1
  902. 0 32 1
  903. 20 00001615
  904. 19 00001615
  905. 0 42 "{0}" 8000
  906. 13
  907. 8 7
  908. 0 42 "{0}" 8001
  909. 13
  910. 0 264 "txt" [X]
  911. 0 13 1 "{7}" "\"
  912. 13
  913. 5 1
  914. 18 5
  915. 11 00000480
  916. 0 16 "\" "{7}"
  917. 13
  918. 8 7
  919. 0 42 "{0}" 100
  920. 13
  921. 8 8
  922. 0 44 "{0}" 9007
  923. 13
  924. 8 9
  925. 0 1036 "{9}" 1029 0 0
  926. 0 266 1000
  927. 0 266 1001
  928. 0 266 1002
  929. 0 266 1003
  930. 5 300
  931. 8 10
  932. 0 271 1000 "{10}"
  933. 0 271 1001 "{10}"
  934. 0 271 1002 1
  935. 0 271 1003 1
  936. 0 264 1003 0
  937. 0 264 1002 "{10}"
  938. 0 264 "hits" 0
  939. 0 265 1003
  940. 13
  941. 0 43 "{0}" 8007 [X]
  942. 0 265 1003
  943. 13
  944. 0 43 "{0}" 8009 [X]
  945. 5 1
  946. 8 11
  947. 6 11
  948. 5 0
  949. 18 3
  950. 11 00000968
  951. 0 13 "{11}" "{7}" "\"
  952. 13
  953. 8 11
  954. 6 11
  955. 5 1
  956. 18 5
  957. 11 00000921
  958. 10 00000968
  959. 6 11
  960. 8 12
  961. 6 11
  962. 5 1
  963. 3 0
  964. 8 11
  965. 10 00000815
  966. 6 12
  967. 5 1
  968. 18 5
  969. 11 00001236
  970. 5 0
  971. 0 13 1 "{7}" "*"
  972. 13
  973. 18 0
  974. 5 0
  975. 0 13 1 "{7}" "?"
  976. 13
  977. 18 0
  978. 1 2
  979. 11 00001132
  980. 0 3 "Invalid Filespec"
  981. 10 00000345
  982. 10 00001223
  983. 0 290
  984. 13
  985. 8 13
  986. 0 807 "{13}" 1
  987. 13
  988. 7 "\"
  989. 18 1
  990. 11 00001212
  991. 7 "{13}\"
  992. 8 13
  993. 6 7
  994. 8 14
  995. 10 00001350
  996. 6 12
  997. 5 1
  998. 3 0
  999. 0 14 "{7}"
  1000. 13
  1001. 6 12
  1002. 3 1
  1003. 5 1
  1004. 3 0
  1005. 0 15 "{7}" [X] [X]
  1006. 13
  1007. 8 14
  1008. 0 15 "{7}" 1 "{12}"
  1009. 13
  1010. 8 13
  1011. 0 271 "breakit" 1
  1012. 0 266 "breakit"
  1013. 0 271 "breakit" 1
  1014. 16 FindIt "{0}" "{13}" "{14}" "{8}"
  1015. 0 265 1003
  1016. 13
  1017. 8 15
  1018. 0 43 "{0}" 8007 "{15}"
  1019. 0 789 ""
  1020. 0 44 "{0}" 71
  1021. 13
  1022. 0 284 "user,EnableWindow,HHH" [X] 1
  1023. 0 44 "{0}" 71
  1024. 13
  1025. 0 284 "user,SetFocus,HH" [X]
  1026. 5 1
  1027. 15
  1028. 9
  1029. 5 1000
  1030. 8 11
  1031. 5 1003
  1032. 6 11
  1033. 18 2
  1034. 12 00001710
  1035. 10 00001739
  1036. 5 1
  1037. 6 11
  1038. 3 0
  1039. 8 11
  1040. 10 00001629
  1041. 0 271 "{11}" 1
  1042. 10 00001675
  1043. 5 1000
  1044. 8 11
  1045. 5 1003
  1046. 6 11
  1047. 18 2
  1048. 12 00001834
  1049. 10 00001861
  1050. 5 1
  1051. 6 11
  1052. 3 0
  1053. 8 11
  1054. 10 00001753
  1055. 0 266 "{11}"
  1056. 10 00001799
  1057. 0 789 ""
  1058. 6 1
  1059. 15
  1060. 9
  1061. 14 findit
  1062. 0 296 1
  1063. 0 32 1
  1064. 20 00001382
  1065. 19 00001382
  1066. 0 265 "breakit"
  1067. 13
  1068. 11 00000101
  1069. 10 00001382
  1070. 0 802
  1071. 13
  1072. 8 5
  1073. 5 300
  1074. 21 6 [X]
  1075. 0 265 1003
  1076. 13
  1077. 8 7
  1078. 0 16 "{1}" "{2}"
  1079. 13
  1080. 8 8
  1081. 0 280 "{8}" 1
  1082. 13
  1083. 8 9
  1084. 0 789 "{9}"
  1085. 7 ""
  1086. 6 9
  1087. 18 1
  1088. 11 00000807
  1089. 7 "\"
  1090. 0 807 "{9}" 1
  1091. 13
  1092. 18 1
  1093. 11 00000778
  1094. 6 7
  1095. 5 1
  1096. 3 0
  1097. 8 7
  1098. 0 265 1002
  1099. 13
  1100. 8 10
  1101. 6 10
  1102. 6 7
  1103. 18 0
  1104. 11 00000447
  1105. 6 10
  1106. 5 100
  1107. 3 0
  1108. 8 10
  1109. 0 271 1000 "{10}"
  1110. 0 271 1001 "{10}"
  1111. 0 264 1002 "{10}"
  1112. 0 789 "{1}{9}"
  1113. 0 265 "txt"
  1114. 13
  1115. 8 11
  1116. 6 11
  1117. 7 ""
  1118. 18 1
  1119. 11 00000590
  1120. 16 ckfile "{1}{9}"
  1121. 13
  1122. 8 12
  1123. 6 12
  1124. 5 0
  1125. 18 0
  1126. 11 00000590
  1127. 10 00000778
  1128. 0 43 "{0}" 9007 "{1}{9}"
  1129. 0 43 "{0}" 8007 "{7}"
  1130. 0 265 "hits"
  1131. 13
  1132. 8 13
  1133. 6 13
  1134. 5 1
  1135. 3 0
  1136. 8 13
  1137. 0 264 "hits" "{13}"
  1138. 0 43 "{0}" 8009 "{13}"
  1139. 0 272 1000 "{7}" "{1}"
  1140. 0 272 1001 "{7}" "{9}"
  1141. 0 281
  1142. 13
  1143. 8 9
  1144. 10 00000219
  1145. 0 264 1003 "{7}"
  1146. 6 3
  1147. 5 1
  1148. 18 1
  1149. 11 00000866
  1150. 5 1
  1151. 15
  1152. 9
  1153. 0 16 "{1}" "*."
  1154. 13
  1155. 8 8
  1156. 0 280 "{8}" 16
  1157. 13
  1158. 8 9
  1159. 5 0
  1160. 8 14
  1161. 7 ""
  1162. 6 9
  1163. 18 1
  1164. 11 00001157
  1165. 7 "\"
  1166. 0 807 "{9}" 1
  1167. 13
  1168. 18 0
  1169. 11 00001115
  1170. 7 "."
  1171. 0 15 "{9}" 1 1
  1172. 13
  1173. 18 1
  1174. 11 00001115
  1175. 0 16 "{1}" "{9}"
  1176. 13
  1177. 8 8
  1178. 6 14
  1179. 5 1
  1180. 3 0
  1181. 8 14
  1182. 6 14
  1183. 6 8
  1184. 23 6
  1185. 0 281
  1186. 13
  1187. 8 9
  1188. 0 789 "{9}"
  1189. 10 00000928
  1190. 5 1
  1191. 8 15
  1192. 6 14
  1193. 6 15
  1194. 18 2
  1195. 12 00001247
  1196. 10 00001370
  1197. 5 1
  1198. 6 15
  1199. 3 0
  1200. 8 15
  1201. 10 00001168
  1202. 6 15
  1203. 22 6
  1204. 8 8
  1205. 0 265 "breakit"
  1206. 13
  1207. 5 1
  1208. 18 0
  1209. 11 00001322
  1210. 10 00001382
  1211. 16 findit "{0}" "{8}" "{2}" "{3}"
  1212. 10 00001212
  1213. 5 1
  1214. 15
  1215. 9
  1216. 0 264 "breakit" 1
  1217. 6 4
  1218. 15
  1219. 9
  1220. 14 ckfile
  1221. 0 32 1
  1222. 0 265 "txt"
  1223. 13
  1224. 8 2
  1225. 0 20 "{0}" 2 "."
  1226. 13
  1227. 0 17 [X]
  1228. 13
  1229. 8 3
  1230. 0 17 "bmp com dll exe flt grp hlp ico sys wav"
  1231. 13
  1232. 8 4
  1233. 0 138 1 "{4}" "{3}"
  1234. 13
  1235. 5 0
  1236. 18 1
  1237. 11 00000212
  1238. 5 0
  1239. 15
  1240. 9
  1241. 6 1
  1242. 15
  1243. 9
  1244. 0 789 "Checking text of file:  {0}"
  1245. 0 259 "{0}" "rb"
  1246. 13
  1247. 8 5
  1248. 6 5
  1249. 5 1
  1250. 18 5
  1251. 11 00000348
  1252. 0 3 "Unable to open file {0}"
  1253. 5 0
  1254. 15
  1255. 9
  1256. 20 00000774
  1257. 19 00000774
  1258. 0 263 "{5}" 0 2
  1259. 0 262 "{5}"
  1260. 13
  1261. 8 6
  1262. 0 263 "{5}" 0 0
  1263. 5 0
  1264. 8 7
  1265. 5 1
  1266. 11 00000774
  1267. 0 782 "{5}" 3200
  1268. 13
  1269. 8 8
  1270. 6 8
  1271. 5 -1
  1272. 18 0
  1273. 11 00000528
  1274. 10 00000774
  1275. 0 14 "{8}"
  1276. 13
  1277. 8 9
  1278. 0 16 "{8}" "\0"
  1279. 13
  1280. 8 8
  1281. 0 138 1 "{8}" "{2}"
  1282. 13
  1283. 8 10
  1284. 6 10
  1285. 5 0
  1286. 18 1
  1287. 6 10
  1288. 7 ""
  1289. 18 1
  1290. 1 1
  1291. 11 00000672
  1292. 10 00000774
  1293. 6 7
  1294. 5 3200
  1295. 3 0
  1296. 8 7
  1297. 0 262 "{5}"
  1298. 13
  1299. 8 11
  1300. 6 11
  1301. 6 6
  1302. 18 2
  1303. 11 00000761
  1304. 10 00000774
  1305. 10 00000440
  1306. 0 260 "{5}"
  1307. 6 10
  1308. 15
  1309. 9
  1310. 6 1
  1311. 15
  1312. 9
  1313. DIALOG filesfound
  1314. -2134376448 14 56 27 222 50 "" "" "Find Files" 
  1315. FONT 8 "Helv" 
  1316. 6 7 58 8 1002 1342177280 "static" "Searc&h For:" 0 
  1317. 69 5 90 12 8000 1350631552 "edit" "" 0 
  1318. 69 18 85 9 100 1342242819 "button" "Include &Subdirectories" 0 
  1319. 6 32 61 10 1001 1342177280 "static" "Text to search for:" 0 
  1320. 69 30 89 12 8001 1350631552 "edit" "" 0 
  1321. 4 60 66 8 1000 1342177280 "static" "&Select files to open:" 0 
  1322. 4 71 212 71 9007 1352728587 "listbox" "" 0 
  1323. 177 52 40 14 71 1342373889 "button" "Open" 0 
  1324. 177 5 40 14 70 1342373889 "button" "Search" 0 
  1325. 177 21 40 14 2 1342373888 "button" "Cancel" 0 
  1326. 104 50 52 10 1003 1342177280 "static" "Files searched" 0 
  1327. 82 49 18 9 8007 1342177280 "static" "" 0 
  1328. 104 61 48 9 1005 1342177280 "static" "Files found" 0 
  1329. 82 61 18 9 8009 1342177280 "static" "" 0 
  1330. 14 stopit
  1331. 0 264 "breakit" 1
  1332. 6 0
  1333. 15
  1334. 9
  1335. 00013762
  1336.