home *** CD-ROM | disk | FTP | other *** search
/ Program Metropolis - Software Boutique 95 / SOFTWARECD.iso / camipro3 / macros.cmz / KEYWORD.SMM < prev    next >
Encoding:
INI File  |  1994-08-14  |  18.0 KB  |  1,498 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.     ºQÑ╬ñσÑ≤╕Ω░T┤MºΣ└╔«╫
  19.     Lotus WPD Marketing
  20.     Advanced
  21.     Global Arrays, Instr 
  22.     noautorun
  23.     773103557
  24.     52
  25.     676699899
  26.     765
  27.     5
  28.     0
  29.     0
  30.     0
  31.     0
  32.     keyword
  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. [ParaNum]
  54.     1
  55. [tag]
  56.     Bullet 2
  57.     5
  58.     [fnt]
  59.         Tms Rmn
  60.         240
  61.         0
  62.         49152
  63.     [algn]
  64.         1
  65.         1
  66.         1080
  67.         360
  68.         360
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         144
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         0
  79.     [line]
  80.         0
  81.         8
  82.         0
  83.         1
  84.         0
  85.         1
  86.         1
  87.         1
  88.         10
  89.         10
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         104
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         280
  103.         1
  104.         2
  105.         .
  106.         ,
  107.         $
  108.     Bullet 2
  109.     0
  110.     0
  111. [tag]
  112.     Indent 1
  113.     6
  114.     [fnt]
  115.         Tms Rmn
  116.         240
  117.         0
  118.         49152
  119.     [algn]
  120.         1
  121.         1
  122.         1080
  123.         0
  124.         0
  125.     [spc]
  126.         33
  127.         273
  128.         1
  129.         144
  130.         0
  131.         1
  132.         100
  133.     [brk]
  134.         0
  135.     [line]
  136.         0
  137.         8
  138.         0
  139.         1
  140.         0
  141.         1
  142.         1
  143.         1
  144.         10
  145.         10
  146.     [spec]
  147.         0
  148.         0
  149.         
  150.         0
  151.         0
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         280
  159.         1
  160.         2
  161.         .
  162.         ,
  163.         $
  164.     Indent 1
  165.     0
  166.     0
  167. [tag]
  168.     Indent 2
  169.     7
  170.     [fnt]
  171.         Tms Rmn
  172.         240
  173.         0
  174.         49152
  175.     [algn]
  176.         1
  177.         1
  178.         1440
  179.         0
  180.         0
  181.     [spc]
  182.         33
  183.         273
  184.         1
  185.         144
  186.         0
  187.         1
  188.         100
  189.     [brk]
  190.         0
  191.     [line]
  192.         0
  193.         8
  194.         0
  195.         1
  196.         0
  197.         1
  198.         1
  199.         1
  200.         10
  201.         10
  202.     [spec]
  203.         0
  204.         0
  205.         
  206.         0
  207.         0
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         280
  215.         1
  216.         2
  217.         .
  218.         ,
  219.         $
  220.     Indent 2
  221.     0
  222.     0
  223. [tag]
  224.     Body Single
  225.     8
  226.     [fnt]
  227.         Tms Rmn
  228.         240
  229.         0
  230.         49152
  231.     [algn]
  232.         1
  233.         1
  234.         0
  235.         0
  236.         0
  237.     [spc]
  238.         33
  239.         273
  240.         1
  241.         0
  242.         0
  243.         1
  244.         100
  245.     [brk]
  246.         0
  247.     [line]
  248.         0
  249.         8
  250.         0
  251.         1
  252.         0
  253.         1
  254.         1
  255.         1
  256.         10
  257.         10
  258.     [spec]
  259.         0
  260.         0
  261.         
  262.         0
  263.         0
  264.         1
  265.         0
  266.         0
  267.         0
  268.         0
  269.     [nfmt]
  270.         280
  271.         1
  272.         2
  273.         .
  274.         ,
  275.         $
  276.     Body Single
  277.     0
  278.     0
  279. [tag]
  280.     Bold & Center
  281.     9
  282.     [fnt]
  283.         Tms Rmn
  284.         240
  285.         0
  286.         49153
  287.     [algn]
  288.         4
  289.         1
  290.         0
  291.         0
  292.         0
  293.     [spc]
  294.         33
  295.         273
  296.         1
  297.         0
  298.         144
  299.         1
  300.         100
  301.     [brk]
  302.         0
  303.     [line]
  304.         0
  305.         8
  306.         0
  307.         1
  308.         0
  309.         1
  310.         1
  311.         1
  312.         10
  313.         10
  314.     [spec]
  315.         0
  316.         0
  317.         
  318.         0
  319.         0
  320.         1
  321.         0
  322.         0
  323.         0
  324.         0
  325.     [nfmt]
  326.         280
  327.         1
  328.         2
  329.         .
  330.         ,
  331.         $
  332.     Bold & Center
  333.     0
  334.     0
  335. [tag]
  336.     First Indent
  337.     11
  338.     [fnt]
  339.         Tms Rmn
  340.         240
  341.         0
  342.         49152
  343.     [algn]
  344.         1
  345.         1
  346.         0
  347.         720
  348.         0
  349.     [spc]
  350.         33
  351.         273
  352.         1
  353.         144
  354.         0
  355.         1
  356.         100
  357.     [brk]
  358.         0
  359.     [line]
  360.         0
  361.         8
  362.         0
  363.         1
  364.         0
  365.         1
  366.         1
  367.         1
  368.         10
  369.         10
  370.     [spec]
  371.         0
  372.         0
  373.         
  374.         0
  375.         0
  376.         1
  377.         0
  378.         0
  379.         0
  380.         0
  381.     [nfmt]
  382.         280
  383.         1
  384.         2
  385.         .
  386.         ,
  387.         $
  388.     First Indent
  389.     0
  390.     0
  391. [tag]
  392.     Bullet 1
  393.     12
  394.     [fnt]
  395.         Tms Rmn
  396.         240
  397.         0
  398.         49152
  399.     [algn]
  400.         1
  401.         1
  402.         720
  403.         360
  404.         360
  405.     [spc]
  406.         33
  407.         273
  408.         1
  409.         144
  410.         0
  411.         1
  412.         100
  413.     [brk]
  414.         0
  415.     [line]
  416.         0
  417.         8
  418.         0
  419.         1
  420.         0
  421.         1
  422.         1
  423.         1
  424.         10
  425.         10
  426.     [spec]
  427.         0
  428.         0
  429.         
  430.         0
  431.         104
  432.         1
  433.         0
  434.         0
  435.         0
  436.         0
  437.     [nfmt]
  438.         280
  439.         1
  440.         2
  441.         .
  442.         ,
  443.         $
  444.     Bullet 1
  445.     0
  446.     0
  447. [l1]
  448.     0
  449. [pg]
  450.     5
  451.     49 0 5 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
  452.     98 0 16 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
  453.     147 0 13 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
  454.     196 0 10 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
  455.     240 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
  456. [edoc]
  457. <:#293,9025>Macro by <+!>Charlie Pappas<-!>
  458.  
  459. <:#284,9025>
  460.  
  461. @Function@<:#293,9025>function keyword()
  462.  
  463. <:#284,9025>IF IsNewWave()
  464.  
  465. <:#284,9025>    Message("Macro not available while running under HP NewWave.")
  466.  
  467. <:#284,9025>    Exit Function
  468.  
  469. <:#284,9025>ENDIF
  470.  
  471. <:#284,9025>ignorekeyboard(2)
  472.  
  473. <:#284,9025>declare strpath(p1)
  474.  
  475. <:#284,9025>declare strfile(p1)
  476.  
  477. <:#284,9025>declare ckfile(file, txt)
  478.  
  479. <:#284,9025>dim keys(10)
  480.  
  481. <:#284,9025>filledit(8006, "*.sam")
  482.  
  483. <:#284,9025>filledit(8000, getdocpath$())
  484.  
  485. <:#284,9025>for i = 1 to 4
  486.  
  487. <:#284,9025>    field = getprofilestring$("amipro", "field{i}", "amipro.ini")
  488.  
  489. <:#284,9025>    if field = ""
  490.  
  491. <:#284,9025>        field = "Field{i}"
  492.  
  493. <:#284,9025>    endif
  494.  
  495. <:#284,9025>    filledit((i + 8100), field)
  496.  
  497. <:#284,9025>next
  498.  
  499. <:#284,9025>box = dialogbox(".", "keywords")
  500.  
  501. <:#284,9025>if box <<<;> 1
  502.  
  503. <:#284,9025>    return 0
  504.  
  505. <:#284,9025>endif
  506.  
  507. <:#284,9025>path = getdialogfield$(8000)
  508.  
  509. <:#284,9025>for i = 1 to 5
  510.  
  511. <:#284,9025>    keys(i) = getdialogfield$(i + 8000)
  512.  
  513. <:#284,9025>next
  514.  
  515. <:#284,9025>for i = 6 to 9
  516.  
  517. <:#284,9025>    keys(i) = getdialogfield$(i + 8005)
  518.  
  519. <:#284,9025>next
  520.  
  521. <:#284,9025>keys(10) = getdialogfield$(8777)
  522.  
  523. <:#284,9025>onerror endit
  524.  
  525. <:#284,9025>oncancel endit
  526.  
  527. <:#284,9025>allocglobalvar("hits", 1)
  528.  
  529. <:#284,9025>allocglobalvar("filesfound", 1)
  530.  
  531. <:#284,9025>setglobalvar("hits", 0)
  532.  
  533. <:#284,9025>setglobalvar("filesfound", 0)
  534.  
  535. <:#284,9025>path = getdialogfield$(8000)
  536.  
  537. <:#284,9025>spec = getdialogfield$(8006)
  538.  
  539. <:#284,9025>if right$(path, 1) <<<;> "\"
  540.  
  541. <:#284,9025>    path = strcat$(path, "\")
  542.  
  543. <:#284,9025>endif
  544.  
  545. <:#284,9025>file = findfirst$(strcat$(path, spec), 1)
  546.  
  547. <:#284,9025>if file = ""
  548.  
  549. <:#284,9025>    message("No files found")
  550.  
  551. <:#284,9025>    return 0
  552.  
  553. <:#284,9025>endif
  554.  
  555. <:#284,9025>setglobalvar("filesfound", 1)
  556.  
  557. <:#284,9025>if ckfile(strcat$(path, file), &keys) = 0
  558.  
  559. <:#284,9025>    if decide("Stop Search")
  560.  
  561. <:#284,9025>        goto endit
  562.  
  563. <:#284,9025>    endif
  564.  
  565. <:#284,9025>endif
  566.  
  567. <:#284,9025>while (1)
  568.  
  569. <:#284,9025>    file = findnext$()
  570.  
  571. <:#284,9025>    if file = ""
  572.  
  573. <:#284,9025>        break
  574.  
  575. <:#284,9025>    endif
  576.  
  577. <:#284,9025>    file = strcat$(path, file)
  578.  
  579. <:#284,9025>    setglobalvar("filesfound", (getglobalvar$("filesfound") + 1))
  580.  
  581. <:#284,9025>    if ckfile(file, &keys) = 0
  582.  
  583. <:#284,9025>        if decide("Stop Search")
  584.  
  585. <:#284,9025>            goto endit
  586.  
  587. <:#284,9025>        endif
  588.  
  589. <:#284,9025>    endif
  590.  
  591. <:#284,9025>wend
  592.  
  593. <:#284,9025>endit:
  594.  
  595. <:#284,9025>statusbarmsg("")
  596.  
  597. <:#284,9025>filledit(8111, getglobalvar$("hits"))
  598.  
  599. <:#284,9025>filledit(8110, getglobalvar$("filesfound"))
  600.  
  601. <:#284,9025>filledit(8007, path)
  602.  
  603. <:#284,9025>freeglobalvar("hits")
  604.  
  605. <:#284,9025>freeglobalvar("filesfound")
  606.  
  607. <:#284,9025>box = dialogbox(".", "files")
  608.  
  609. <:#284,9025>if box <<<;> 1
  610.  
  611. <:#284,9025>    return 0
  612.  
  613. <:#284,9025>endif
  614.  
  615. <:#284,9025>statusbarmsg("")
  616.  
  617. <:#284,9025>files = getdialogfield$(8000)
  618.  
  619. <:#284,9025>if files <<<;> ""
  620.  
  621. <:#284,9025>    for i = 1 to 9
  622.  
  623. <:#284,9025>        fname = strfield$(files, i, " ")
  624.  
  625. <:#284,9025>        if fname = -1 or fname = ""
  626.  
  627. <:#284,9025>            break
  628.  
  629. <:#284,9025>        endif
  630.  
  631. <:#284,9025>        if left$(path,1) <<<;> "\"
  632.  
  633. <:#284,9025>            path = strcat$(path,"\")
  634.  
  635. <:#284,9025>        endif            
  636.  
  637. <:#284,9025>        fname = strcat$(path,fname)
  638.  
  639. <:#284,9025>        FileOpen(fname, 1, "")
  640.  
  641. <:#284,9025>    next
  642.  
  643. <:#284,9025>endif
  644.  
  645. <:#284,9025>end function
  646.  
  647. <:#284,9025>
  648.  
  649. @Function@<:#293,9025>function ckfile(file, keys)
  650.  
  651. <:#284,9025>defstr flag, ck;
  652.  
  653. <:#284,9025>if instr(1, ucase$(file), "KEYWORD.SMM") <;> 0
  654.  
  655. <:#284,9025>    return 1
  656.  
  657. <:#284,9025>endif
  658.  
  659. <:#284,9025>stat = 0
  660.  
  661. <:#284,9025>statusbarmsg("Checking file:  {file}")
  662.  
  663. <:#284,9025>fh = fopen(file, "r")
  664.  
  665. <:#284,9025>if fh << 1
  666.  
  667. <:#284,9025>    message("Unable to read file")
  668.  
  669. <:#284,9025>    return 1
  670.  
  671. <:#284,9025>endif
  672.  
  673. <:#284,9025>onerror endit
  674.  
  675. <:#284,9025>oncancel endit
  676.  
  677. <:#284,9025>line = ""
  678.  
  679. <:#284,9025>b = mid$("<[><[>", 1, 1)
  680.  
  681. <:#284,9025>while (line <<<;> "{b}desc]")
  682.  
  683. <:#284,9025>    line = fgets$(fh)
  684.  
  685. <:#284,9025>    if line = -1
  686.  
  687. <:#284,9025>        fclose(fh)
  688.  
  689. <:#284,9025>        return 1
  690.  
  691. <:#284,9025>    endif
  692.  
  693. <:#284,9025>wend
  694.  
  695. <:#284,9025>statusbarmsg("Checking text of file:  {file}")
  696.  
  697. <:#284,9025>line = fgets$(fh)
  698.  
  699. <:#284,9025>if assign(&ck, *keys(10)) <<<;> ""
  700.  
  701. <:#284,9025>    if instr(1, lcase$(line), lcase$(ck)) <;> 0
  702.  
  703. <:#284,9025>        setglobalvar("hits", (getglobalvar$("hits") + 1))
  704.  
  705. <:#284,9025>        beep()
  706.  
  707. <:#284,9025>        filllist(strfile(file))
  708.  
  709. <:#284,9025>        fclose(fh)
  710.  
  711. <:#284,9025>        return 1
  712.  
  713. <:#284,9025>    endif
  714.  
  715. <:#284,9025>endif
  716.  
  717. <:#284,9025>line = fgets$(fh)
  718.  
  719. <:#284,9025>for i = 6 to 9
  720.  
  721. <:#284,9025>    ck = *keys(i)
  722.  
  723. <:#284,9025>    if ck <<<;> ""
  724.  
  725. <:#284,9025>        if instr(1, lcase$(line), lcase$(ck)) <;> 0
  726.  
  727. <:#284,9025>            setglobalvar("hits", (getglobalvar$("hits") + 1))
  728.  
  729. <:#284,9025>            beep()
  730.  
  731. <:#284,9025>            filllist(strfile(file))
  732.  
  733. <:#284,9025>            fclose(fh)
  734.  
  735. <:#284,9025>            return 1
  736.  
  737. <:#284,9025>        endif
  738.  
  739. <:#284,9025>    endif
  740.  
  741. <:#284,9025>    line = fgets$(fh)
  742.  
  743. <:#284,9025>next
  744.  
  745. <:#284,9025>for i = 1 to 8
  746.  
  747. <:#284,9025>    line = fgets$(fh)
  748.  
  749. <:#284,9025>    if line = -1
  750.  
  751. <:#284,9025>        fclose(fh)
  752.  
  753. <:#284,9025>        return 1
  754.  
  755. <:#284,9025>    endif
  756.  
  757. <:#284,9025>next
  758.  
  759. <:#284,9025>line = fgets$(fh)
  760.  
  761. <:#284,9025>for i = 1 to 5
  762.  
  763. <:#284,9025>    ck = *keys(i);
  764.  
  765. <:#284,9025>    if ck <<<;> ""
  766.  
  767. <:#284,9025>        if instr(1, lcase$(line), lcase$(ck)) <;> 0
  768.  
  769. <:#284,9025>            setglobalvar("hits", (getglobalvar$("hits") + 1))
  770.  
  771. <:#284,9025>            beep()
  772.  
  773. <:#284,9025>            filllist(strfile(file))
  774.  
  775. <:#284,9025>            fclose(fh)
  776.  
  777. <:#284,9025>            return 1
  778.  
  779. <:#284,9025>        endif
  780.  
  781. <:#284,9025>    endif
  782.  
  783. <:#284,9025>    line = fgets$(fh)
  784.  
  785. <:#284,9025>next
  786.  
  787. <:#284,9025>stat = 1
  788.  
  789. <:#284,9025>endit:
  790.  
  791. <:#284,9025>fclose(fh)
  792.  
  793. <:#284,9025>return stat
  794.  
  795. <:#284,9025>end function
  796.  
  797. <:#284,9025>
  798.  
  799. @Function@<:#293,9025>DIALOG keywords
  800.  
  801. <:#284,9025>-2134376448 21 79 22 206 156 "" "" "Keyword Search"
  802.  
  803. <:#284,9025>FONT 8 "Helv"
  804.  
  805. <:#284,9025>6 19 56 8 1001 1342308352 "static" "&Files to include:" 0 
  806.  
  807. <:#284,9025>64 17 82 12 8006 1350631552 "edit" "" 0 
  808.  
  809. <:#284,9025>6 32 42 8 1000 1342177280 "static" "&Description:" 0 
  810.  
  811. <:#284,9025>6 42 194 22 8777 1350631428 "edit" "" 0 
  812.  
  813. <:#284,9025>6 66 96 8 1002 1342308352 "static" "&Keywords:" 0 
  814.  
  815. <:#284,9025>6 76 96 12 8001 1350631552 "edit" "" 0 
  816.  
  817. <:#284,9025>6 90 96 12 8002 1350631552 "edit" "" 0 
  818.  
  819. <:#284,9025>104 76 96 12 8003 1350631552 "edit" "" 0 
  820.  
  821. <:#284,9025>104 90 96 12 8004 1350631552 "edit" "" 0 
  822.  
  823. <:#284,9025>6 104 96 8 8101 1342308352 "static" "" 0 
  824.  
  825. <:#284,9025>6 114 96 12 8011 1350631552 "edit" "" 0 
  826.  
  827. <:#284,9025>6 128 96 8 8102 1342177280 "static" "" 0 
  828.  
  829. <:#284,9025>6 138 96 12 8012 1350631552 "edit" "" 0 
  830.  
  831. <:#284,9025>104 104 96 8 8103 1342177280 "static" "" 0 
  832.  
  833. <:#284,9025>104 114 96 12 8013 1350631552 "edit" "" 0 
  834.  
  835. <:#284,9025>104 128 96 8 8104 1342177280 "static" "" 0 
  836.  
  837. <:#284,9025>104 138 96 12 8014 1350631552 "edit" "" 0 
  838.  
  839. <:#284,9025>160 4 40 14 1 1342373889 "button" "OK" 0 
  840.  
  841. <:#284,9025>160 20 40 14 2 1342373888 "button" "Cancel" 0 
  842.  
  843. <:#284,9025>6 7 56 8 1003 1342308352 "static" "&Directory:" 0 
  844.  
  845. <:#284,9025>64 4 82 12 8000 1350631552 "edit" "" 0 
  846.  
  847. <:#284,9025>END DIALOG
  848.  
  849. <:#284,9025>
  850.  
  851. @Function@<:#293,9025>DIALOG files
  852.  
  853. <:#284,9025>-2134376448 11 104 38 160 88 "" "" "Files Found"
  854.  
  855. <:#284,9025>FONT 8 "Helv"
  856.  
  857. <:#284,9025>6 4 60 8 1000 1342308352 "static" "&Matching files:" 0 
  858.  
  859. <:#284,9025>6 14 64 68 9000 1352728587 "listbox" "" 0 
  860.  
  861. <:#284,9025>114 4 40 14 1 1342373889 "button" "Open" 0 
  862.  
  863. <:#284,9025>114 20 40 14 2 1342373888 "button" "Cancel" 0 
  864.  
  865. <:#284,9025>73 71 60 0 8000 1342177280 "static" "" 0 
  866.  
  867. <:#284,9025>74 72 54 8 1001 1342177280 "static" "Files searched:" 0 
  868.  
  869. <:#284,9025>130 72 16 8 8110 1342177280 "static" "" 0 
  870.  
  871. <:#284,9025>130 62 16 8 8111 1342177280 "static" "" 0 
  872.  
  873. <:#284,9025>74 62 54 8 1004 1342177280 "static" "Matches:" 0 
  874.  
  875. <:#284,9025>74 32 32 8 1002 1342177280 "static" "Directory:" 0 
  876.  
  877. <:#284,9025>74 42 80 8 8007 1342177280 "static" "" 0 
  878.  
  879. <:#284,9025>END DIALOG
  880.  
  881. <:#284,9025>
  882.  
  883. @Function@<:#293,9025>function Strfile(PathFile) ' returns filename from fullpath
  884.  
  885. <:#284,9025>i = 1
  886.  
  887. <:#284,9025>while (1)
  888.  
  889. <:#284,9025>    ck = strchr(i PathFile "\")
  890.  
  891. <:#284,9025>    if ck << 1
  892.  
  893. <:#284,9025>        break
  894.  
  895. <:#284,9025>    endif
  896.  
  897. <:#284,9025>    i = ck + 1
  898.  
  899. <:#284,9025>wend
  900.  
  901. <:#284,9025>plen = len(pathfile)
  902.  
  903. <:#284,9025>pathfile = MID$(PathFile i plen)
  904.  
  905. <:#284,9025>return pathfile
  906.  
  907. <:#284,9025>end function
  908.  
  909. <:#284,9025>
  910.  
  911. @Function@<:#293,9025>function Strpath(PathFile) ' returns path from fullpath
  912.  
  913. <:#284,9025>i = 1
  914.  
  915. <:#284,9025>while (1)
  916.  
  917. <:#284,9025>    ck = strchr(i PathFile "\")
  918.  
  919. <:#284,9025>    if ck << 1
  920.  
  921. <:#284,9025>        break
  922.  
  923. <:#284,9025>    endif
  924.  
  925. <:#284,9025>    i = ck + 1
  926.  
  927. <:#284,9025>wend
  928.  
  929. <:#284,9025>path = MID$(PathFile 1 (i - 1))
  930.  
  931. <:#284,9025>return path
  932.  
  933. <:#284,9025>end function
  934.  
  935. <:#284,9025>
  936.  
  937. >
  938.  
  939. [Embedded]
  940. 00012373
  941. >
  942. [macsum] 6
  943. keyword 0 0 10 2
  944. ckfile 2122 2 8 96
  945. keywords 3811 0 -1 171
  946. files 4849 0 -1 197
  947. Strfile 5460 1 4 213
  948. Strpath 5684 1 4 227
  949. [macse]
  950. 14 keyword
  951. 0 1317
  952. 13
  953. 11 00000108
  954. 0 3 "Macro not available while running under HP NewWave."
  955. 6 0
  956. 15
  957. 9
  958. 0 32 2
  959. 5 10
  960. 21 1 [X]
  961. 0 31 8006 "*.sam"
  962. 0 268
  963. 13
  964. 0 31 8000 [X]
  965. 5 1
  966. 8 2
  967. 5 4
  968. 6 2
  969. 18 2
  970. 12 00000262
  971. 10 00000407
  972. 5 1
  973. 6 2
  974. 3 0
  975. 8 2
  976. 10 00000187
  977. 0 286 "amipro" "field{2}" "amipro.ini"
  978. 13
  979. 8 3
  980. 6 3
  981. 7 ""
  982. 18 0
  983. 11 00000360
  984. 7 "Field{2}"
  985. 8 3
  986. 6 2
  987. 5 8100
  988. 3 0
  989. 0 31 [X] "{3}"
  990. 10 00000229
  991. 0 26 "." "keywords"
  992. 13
  993. 8 4
  994. 6 4
  995. 5 1
  996. 18 1
  997. 11 00000478
  998. 5 0
  999. 15
  1000. 9
  1001. 0 27 8000
  1002. 13
  1003. 8 5
  1004. 5 1
  1005. 8 2
  1006. 5 5
  1007. 6 2
  1008. 18 2
  1009. 12 00000583
  1010. 10 00000639
  1011. 5 1
  1012. 6 2
  1013. 3 0
  1014. 8 2
  1015. 10 00000508
  1016. 6 2
  1017. 6 2
  1018. 5 8000
  1019. 3 0
  1020. 0 27 [X]
  1021. 13
  1022. 23 1
  1023. 10 00000550
  1024. 5 6
  1025. 8 2
  1026. 5 9
  1027. 6 2
  1028. 18 2
  1029. 12 00000724
  1030. 10 00000780
  1031. 5 1
  1032. 6 2
  1033. 3 0
  1034. 8 2
  1035. 10 00000649
  1036. 6 2
  1037. 6 2
  1038. 5 8005
  1039. 3 0
  1040. 0 27 [X]
  1041. 13
  1042. 23 1
  1043. 10 00000691
  1044. 5 10
  1045. 0 27 8777
  1046. 13
  1047. 23 1
  1048. 20 00001538
  1049. 19 00001538
  1050. 0 271 "hits" 1
  1051. 0 271 "filesfound" 1
  1052. 0 264 "hits" 0
  1053. 0 264 "filesfound" 0
  1054. 0 27 8000
  1055. 13
  1056. 8 5
  1057. 0 27 8006
  1058. 13
  1059. 8 6
  1060. 0 807 "{5}" 1
  1061. 13
  1062. 7 "\"
  1063. 18 1
  1064. 11 00001019
  1065. 0 16 "{5}" "\"
  1066. 13
  1067. 8 5
  1068. 0 16 "{5}" "{6}"
  1069. 13
  1070. 0 280 [X] 1
  1071. 13
  1072. 8 7
  1073. 6 7
  1074. 7 ""
  1075. 18 0
  1076. 11 00001127
  1077. 0 3 "No files found"
  1078. 5 0
  1079. 15
  1080. 9
  1081. 0 264 "filesfound" 1
  1082. 0 16 "{5}" "{7}"
  1083. 13
  1084. 16 ckfile [X] &1
  1085. 13
  1086. 5 0
  1087. 18 0
  1088. 11 00001266
  1089. 0 2 "Stop Search"
  1090. 13
  1091. 11 00001266
  1092. 10 00001538
  1093. 5 1
  1094. 11 00001538
  1095. 0 281
  1096. 13
  1097. 8 7
  1098. 6 7
  1099. 7 ""
  1100. 18 0
  1101. 11 00001343
  1102. 10 00001538
  1103. 0 16 "{5}" "{7}"
  1104. 13
  1105. 8 7
  1106. 0 265 "filesfound"
  1107. 13
  1108. 5 1
  1109. 3 0
  1110. 0 264 "filesfound" [X]
  1111. 16 ckfile "{7}" &1
  1112. 13
  1113. 5 0
  1114. 18 0
  1115. 11 00001525
  1116. 0 2 "Stop Search"
  1117. 13
  1118. 11 00001525
  1119. 10 00001538
  1120. 10 00001266
  1121. 0 789 ""
  1122. 0 265 "hits"
  1123. 13
  1124. 0 31 8111 [X]
  1125. 0 265 "filesfound"
  1126. 13
  1127. 0 31 8110 [X]
  1128. 0 31 8007 "{5}"
  1129. 0 266 "hits"
  1130. 0 266 "filesfound"
  1131. 0 26 "." "files"
  1132. 13
  1133. 8 4
  1134. 6 4
  1135. 5 1
  1136. 18 1
  1137. 11 00001739
  1138. 5 0
  1139. 15
  1140. 9
  1141. 0 789 ""
  1142. 0 27 8000
  1143. 13
  1144. 8 8
  1145. 6 8
  1146. 7 ""
  1147. 18 1
  1148. 11 00002110
  1149. 5 1
  1150. 8 2
  1151. 5 9
  1152. 6 2
  1153. 18 2
  1154. 12 00001884
  1155. 10 00002110
  1156. 5 1
  1157. 6 2
  1158. 3 0
  1159. 8 2
  1160. 10 00001809
  1161. 0 20 "{8}" "{2}" " "
  1162. 13
  1163. 8 9
  1164. 6 9
  1165. 5 -1
  1166. 18 0
  1167. 6 9
  1168. 7 ""
  1169. 18 0
  1170. 1 2
  1171. 11 00001980
  1172. 10 00002110
  1173. 0 806 "{5}" 1
  1174. 13
  1175. 7 "\"
  1176. 18 1
  1177. 11 00002050
  1178. 0 16 "{5}" "\"
  1179. 13
  1180. 8 5
  1181. 0 16 "{5}" "{9}"
  1182. 13
  1183. 8 9
  1184. 2 102 1 "{9}" 1 ""
  1185. 10 00001851
  1186. 6 0
  1187. 15
  1188. 9
  1189. 14 ckfile
  1190. 0 18 "{0}"
  1191. 13
  1192. 0 808 1 [X] "KEYWORD.SMM"
  1193. 13
  1194. 5 0
  1195. 18 3
  1196. 11 00000094
  1197. 5 1
  1198. 15
  1199. 9
  1200. 5 0
  1201. 8 5
  1202. 0 789 "Checking file:  {0}"
  1203. 0 259 "{0}" "r"
  1204. 13
  1205. 8 6
  1206. 6 6
  1207. 5 1
  1208. 18 5
  1209. 11 00000227
  1210. 0 3 "Unable to read file"
  1211. 5 1
  1212. 15
  1213. 9
  1214. 20 00001652
  1215. 19 00001652
  1216. 7 ""
  1217. 8 7
  1218. 0 15 "[[" 1 1
  1219. 13
  1220. 8 8
  1221. 6 7
  1222. 7 "{8}desc]"
  1223. 18 1
  1224. 11 00000416
  1225. 0 257 "{6}"
  1226. 13
  1227. 8 7
  1228. 6 7
  1229. 5 -1
  1230. 18 0
  1231. 11 00000403
  1232. 0 260 "{6}"
  1233. 5 1
  1234. 15
  1235. 9
  1236. 10 00000288
  1237. 0 789 "Checking text of file:  {0}"
  1238. 0 257 "{6}"
  1239. 13
  1240. 8 7
  1241. 5 10
  1242. 22 1
  1243. 0 805 &4 [X]
  1244. 13
  1245. 7 ""
  1246. 18 1
  1247. 11 00000717
  1248. 0 17 "{7}"
  1249. 13
  1250. 0 17 "{4}"
  1251. 13
  1252. 0 808 1 [X] [X]
  1253. 13
  1254. 5 0
  1255. 18 3
  1256. 11 00000717
  1257. 0 265 "hits"
  1258. 13
  1259. 5 1
  1260. 3 0
  1261. 0 264 "hits" [X]
  1262. 0 801
  1263. 16 strfile "{0}"
  1264. 13
  1265. 0 25 [X]
  1266. 0 260 "{6}"
  1267. 5 1
  1268. 15
  1269. 9
  1270. 0 257 "{6}"
  1271. 13
  1272. 8 7
  1273. 5 6
  1274. 8 9
  1275. 5 9
  1276. 6 9
  1277. 18 2
  1278. 12 00000824
  1279. 10 00001092
  1280. 5 1
  1281. 6 9
  1282. 3 0
  1283. 8 9
  1284. 10 00000749
  1285. 6 9
  1286. 22 1
  1287. 8 4
  1288. 6 4
  1289. 7 ""
  1290. 18 1
  1291. 11 00001057
  1292. 0 17 "{7}"
  1293. 13
  1294. 0 17 "{4}"
  1295. 13
  1296. 0 808 1 [X] [X]
  1297. 13
  1298. 5 0
  1299. 18 3
  1300. 11 00001057
  1301. 0 265 "hits"
  1302. 13
  1303. 5 1
  1304. 3 0
  1305. 0 264 "hits" [X]
  1306. 0 801
  1307. 16 strfile "{0}"
  1308. 13
  1309. 0 25 [X]
  1310. 0 260 "{6}"
  1311. 5 1
  1312. 15
  1313. 9
  1314. 0 257 "{6}"
  1315. 13
  1316. 8 7
  1317. 10 00000791
  1318. 5 1
  1319. 8 9
  1320. 5 8
  1321. 6 9
  1322. 18 2
  1323. 12 00001177
  1324. 10 00001267
  1325. 5 1
  1326. 6 9
  1327. 3 0
  1328. 8 9
  1329. 10 00001102
  1330. 0 257 "{6}"
  1331. 13
  1332. 8 7
  1333. 6 7
  1334. 5 -1
  1335. 18 0
  1336. 11 00001254
  1337. 0 260 "{6}"
  1338. 5 1
  1339. 15
  1340. 9
  1341. 10 00001144
  1342. 0 257 "{6}"
  1343. 13
  1344. 8 7
  1345. 5 1
  1346. 8 9
  1347. 5 5
  1348. 6 9
  1349. 18 2
  1350. 12 00001374
  1351. 10 00001642
  1352. 5 1
  1353. 6 9
  1354. 3 0
  1355. 8 9
  1356. 10 00001299
  1357. 6 9
  1358. 22 1
  1359. 8 4
  1360. 6 4
  1361. 7 ""
  1362. 18 1
  1363. 11 00001607
  1364. 0 17 "{7}"
  1365. 13
  1366. 0 17 "{4}"
  1367. 13
  1368. 0 808 1 [X] [X]
  1369. 13
  1370. 5 0
  1371. 18 3
  1372. 11 00001607
  1373. 0 265 "hits"
  1374. 13
  1375. 5 1
  1376. 3 0
  1377. 0 264 "hits" [X]
  1378. 0 801
  1379. 16 strfile "{0}"
  1380. 13
  1381. 0 25 [X]
  1382. 0 260 "{6}"
  1383. 5 1
  1384. 15
  1385. 9
  1386. 0 257 "{6}"
  1387. 13
  1388. 8 7
  1389. 10 00001341
  1390. 5 1
  1391. 8 5
  1392. 0 260 "{6}"
  1393. 6 5
  1394. 15
  1395. 9
  1396. 6 2
  1397. 15
  1398. 9
  1399. DIALOG keywords
  1400. -2134376448 21 79 22 206 156 "" "" "Keyword Search" 
  1401. FONT 8 "Helv" 
  1402. 6 19 56 8 1001 1342308352 "static" "&Files to include:" 0 
  1403. 64 17 82 12 8006 1350631552 "edit" "" 0 
  1404. 6 32 42 8 1000 1342177280 "static" "&Description:" 0 
  1405. 6 42 194 22 8777 1350631428 "edit" "" 0 
  1406. 6 66 96 8 1002 1342308352 "static" "&Keywords:" 0 
  1407. 6 76 96 12 8001 1350631552 "edit" "" 0 
  1408. 6 90 96 12 8002 1350631552 "edit" "" 0 
  1409. 104 76 96 12 8003 1350631552 "edit" "" 0 
  1410. 104 90 96 12 8004 1350631552 "edit" "" 0 
  1411. 6 104 96 8 8101 1342308352 "static" "" 0 
  1412. 6 114 96 12 8011 1350631552 "edit" "" 0 
  1413. 6 128 96 8 8102 1342177280 "static" "" 0 
  1414. 6 138 96 12 8012 1350631552 "edit" "" 0 
  1415. 104 104 96 8 8103 1342177280 "static" "" 0 
  1416. 104 114 96 12 8013 1350631552 "edit" "" 0 
  1417. 104 128 96 8 8104 1342177280 "static" "" 0 
  1418. 104 138 96 12 8014 1350631552 "edit" "" 0 
  1419. 160 4 40 14 1 1342373889 "button" "OK" 0 
  1420. 160 20 40 14 2 1342373888 "button" "Cancel" 0 
  1421. 6 7 56 8 1003 1342308352 "static" "&Directory:" 0 
  1422. 64 4 82 12 8000 1350631552 "edit" "" 0 
  1423. DIALOG files
  1424. -2134376448 11 104 38 160 88 "" "" "Files Found" 
  1425. FONT 8 "Helv" 
  1426. 6 4 60 8 1000 1342308352 "static" "&Matching files:" 0 
  1427. 6 14 64 68 9000 1352728587 "listbox" "" 0 
  1428. 114 4 40 14 1 1342373889 "button" "Open" 0 
  1429. 114 20 40 14 2 1342373888 "button" "Cancel" 0 
  1430. 73 71 60 0 8000 1342177280 "static" "" 0 
  1431. 74 72 54 8 1001 1342177280 "static" "Files searched:" 0 
  1432. 130 72 16 8 8110 1342177280 "static" "" 0 
  1433. 130 62 16 8 8111 1342177280 "static" "" 0 
  1434. 74 62 54 8 1004 1342177280 "static" "Matches:" 0 
  1435. 74 32 32 8 1002 1342177280 "static" "Directory:" 0 
  1436. 74 42 80 8 8007 1342177280 "static" "" 0 
  1437. 14 Strfile
  1438. 5 1
  1439. 8 2
  1440. 5 1
  1441. 11 00000146
  1442. 0 13 "{2}" "{0}" "\"
  1443. 13
  1444. 8 3
  1445. 6 3
  1446. 5 1
  1447. 18 5
  1448. 11 00000113
  1449. 10 00000146
  1450. 6 3
  1451. 5 1
  1452. 3 0
  1453. 8 2
  1454. 10 00000022
  1455. 0 14 "{0}"
  1456. 13
  1457. 8 4
  1458. 0 15 "{0}" "{2}" "{4}"
  1459. 13
  1460. 8 0
  1461. 6 0
  1462. 15
  1463. 9
  1464. 6 1
  1465. 15
  1466. 9
  1467. 14 Strpath
  1468. 5 1
  1469. 8 2
  1470. 5 1
  1471. 11 00000146
  1472. 0 13 "{2}" "{0}" "\"
  1473. 13
  1474. 8 3
  1475. 6 3
  1476. 5 1
  1477. 18 5
  1478. 11 00000113
  1479. 10 00000146
  1480. 6 3
  1481. 5 1
  1482. 3 0
  1483. 8 2
  1484. 10 00000022
  1485. 6 2
  1486. 5 1
  1487. 3 1
  1488. 0 15 "{0}" 1 [X]
  1489. 13
  1490. 8 4
  1491. 6 4
  1492. 15
  1493. 9
  1494. 6 1
  1495. 15
  1496. 9
  1497. 00012398
  1498.