Liren Large Software Subsidy 18/18.iso/w/w252/4.ddi/MACROS.CMZ/KEYWORD.SMM

INI File | 1991-08-19 | 14.2 KB | 1,435 lines

[ver]
    4
[sty]
    ~DEFAULT.STY
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[lang]
    1
[desc]
    Locate files by key words, doc description, or first four fields of doc info.
    Lotus WPD Marketing
    Advanced
    Global Arrays, Instr

    682670405
    43
    676699899
    737
    5
    0
    0
    0
    0
    keyword





    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[tag]
    Body Single
    3
    [fnt]
        Tms Rmn
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        0
    [line]
        0
        8
        0
        1
        0
        1
        1
        1
        10
        10
    [spec]
        0
        0

        0
        0
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Single
    0
    0
[tag]
    Bullet 1
    4
    [fnt]
        Tms Rmn
        240
        0
        49152
    [algn]
        1
        1
        720
        360
        360
    [spc]
        33
        273
        1
        144
        0
        1
        100
    [brk]
        0
    [line]
        0
        8
        0
        1
        0
        1
        1
        1
        10
        10
    [spec]
        0
        0

        0
        104
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Bullet 1
    0
    0
[tag]
    Bullet 2
    5
    [fnt]
        Tms Rmn
        240
        0
        49152
    [algn]
        1
        1
        1080
        360
        360
    [spc]
        33
        273
        1
        144
        0
        1
        100
    [brk]
        0
    [line]
        0
        8
        0
        1
        0
        1
        1
        1
        10
        10
    [spec]
        0
        0

        0
        104
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Bullet 2
    0
    0
[tag]
    Indent 1
    6
    [fnt]
        Tms Rmn
        240
        0
        49152
    [algn]
        1
        1
        1080
        0
        0
    [spc]
        33
        273
        1
        144
        0
        1
        100
    [brk]
        0
    [line]
        0
        8
        0
        1
        0
        1
        1
        1
        10
        10
    [spec]
        0
        0

        0
        0
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Indent 1
    0
    0
[tag]
    Indent 2
    7
    [fnt]
        Tms Rmn
        240
        0
        49152
    [algn]
        1
        1
        1440
        0
        0
    [spc]
        33
        273
        1
        144
        0
        1
        100
    [brk]
        0
    [line]
        0
        8
        0
        1
        0
        1
        1
        1
        10
        10
    [spec]
        0
        0

        0
        0
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Indent 2
    0
    0
[tag]
    Bold & Center
    9
    [fnt]
        Tms Rmn
        240
        0
        49153
    [algn]
        4
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        144
        1
        100
    [brk]
        0
    [line]
        0
        8
        0
        1
        0
        1
        1
        1
        10
        10
    [spec]
        0
        0

        0
        0
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Bold & Center
    0
    0
[tag]
    First Indent
    11
    [fnt]
        Tms Rmn
        240
        0
        49152
    [algn]
        1
        1
        0
        720
        0
    [spc]
        33
        273
        1
        144
        0
        1
        100
    [brk]
        0
    [line]
        0
        8
        0
        1
        0
        1
        1
        1
        10
        10
    [spec]
        0
        0

        0
        0
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    First Indent
    0
    0
[l1]
    0
[edoc]
Macro by <+!>Charlie Pappas<-!>


function keyword()

ignorekeyboard(1)

declare strpath(p1)

declare strfile(p1)

declare ckfile(file, txt)

dim keys(10)

filledit(8006, "*.sam")

filledit(8000, getdocpath$())

for i = 1 to 4

    field = getprofilestring$("amipro", "field{i}", "amipro.ini")

    if field = ""

        field = "Field{i}"

    endif

    filledit((i + 8100), field)

next

box = dialogbox(".", "keywords")

if box <<<;> 1

    return 0

endif

for i = 1 to 5

    keys(i) = getdialogfield$(i + 8000)

next

for i = 6 to 9

    keys(i) = getdialogfield$(i + 8005)

next

keys(10) = getdialogfield$(8777)

onerror endit

oncancel endit

allocglobalvar("hits", 1)

allocglobalvar("filesfound", 1)

setglobalvar("hits", 0)

setglobalvar("filesfound", 0)

path = getdialogfield$(8000)

spec = getdialogfield$(8006)

if right$(path, 1) <<<;> "\"

    path = strcat$(path, "\")

endif

file = findfirst$(strcat$(path, spec), 1)

if file = ""

    message("No files found")

    return 0

endif

setglobalvar("filesfound", 1)

if ckfile(strcat$(path, file), &keys) = 0

    if decide("Stop Search")

        goto endit

    endif

endif

while (1)

    file = findnext$()

    if file = ""

        break

    endif

    file = strcat$(path, file)

    setglobalvar("filesfound", (getglobalvar$("filesfound") + 1))

    if ckfile(file, &keys) = 0

        if decide("Stop Search")

            goto endit

        endif

    endif

wend

endit:

statusbarmsg("")

filledit(8111, getglobalvar$("hits"))

filledit(8110, getglobalvar$("filesfound"))

filledit(8007, path)

freeglobalvar("hits")

freeglobalvar("filesfound")

box = dialogbox(".", "files")

if box <<<;> 1

    return 0

endif

statusbarmsg("")

files = getdialogfield$(8000)

if files <<<;> ""

    for i = 1 to 9

        fname = strfield$(files, i, " ")

        if fname = ""

            break

        endif

        FileOpen(fname, 1, "")

    next

endif

end function


function ckfile(file, keys)

defstr flag, ck;

if instr(1, ucase$(file), "KEYWORD.SMM") <;> 0

    return 1

endif

stat = 0

statusbarmsg("Checking file:  {file}")

fh = fopen(file, "r")

if fh << 1

    message("Unable to read file")

    return 1

endif

onerror endit

oncancel endit

line = ""

b = mid$("<[><[>", 1, 1)

while (line <<<;> "{b}desc]")

    line = fgets$(fh)

    if line = -1

        fclose(fh)

        return 1

    endif

wend

statusbarmsg("Checking text of file:  {file}")

line = fgets$(fh)

if assign(&ck, *keys(10)) <<<;> ""

    if instr(1, lcase$(line), lcase$(ck)) <;> 0

        setglobalvar("hits", (getglobalvar$("hits") + 1))

        beep()

        filllist(strfile(file))

        fclose(fh)

        return 1

    endif

endif

line = fgets$(fh)

for i = 6 to 9

    ck = *keys(i)

    if ck <<<;> ""

        if instr(1, lcase$(line), lcase$(ck)) <;> 0

            setglobalvar("hits", (getglobalvar$("hits") + 1))

            beep()

            filllist(strfile(file))

            fclose(fh)

            return 1

        endif

    endif

    line = fgets$(fh)

next

for i = 1 to 8

    line = fgets$(fh)

    if line = -1

        fclose(fh)

        return 1

    endif

next

line = fgets$(fh)

for i = 1 to 5

    ck = *keys(i);

    if ck <<<;> ""

        if instr(1, lcase$(line), lcase$(ck)) <;> 0

            setglobalvar("hits", (getglobalvar$("hits") + 1))

            beep()

            filllist(strfile(file))

            fclose(fh)

            return 1

        endif

    endif

    line = fgets$(fh)

next

stat = 1

endit:

fclose(fh)

return stat

end function


DIALOG keywords

-2134376448 21 79 22 206 156 "" "" "Keyword Search"

FONT 8 "Helv"

6 19 56 8 1001 1342308352 "static" "&Files to include:" 0

64 17 82 12 8006 1350631552 "edit" "" 0

6 32 42 8 1000 1342177280 "static" "&Description:" 0

6 42 194 22 8777 1350631428 "edit" "" 0

6 66 96 8 1002 1342308352 "static" "&Keywords:" 0

6 76 96 12 8001 1350631552 "edit" "" 0

6 90 96 12 8002 1350631552 "edit" "" 0

104 76 96 12 8003 1350631552 "edit" "" 0

104 90 96 12 8004 1350631552 "edit" "" 0

6 104 96 8 8101 1342308352 "static" "" 0

6 114 96 12 8011 1350631552 "edit" "" 0

6 128 96 8 8102 1342177280 "static" "" 0

6 138 96 12 8012 1350631552 "edit" "" 0

104 104 96 8 8103 1342177280 "static" "" 0

104 114 96 12 8013 1350631552 "edit" "" 0

104 128 96 8 8104 1342177280 "static" "" 0

104 138 96 12 8014 1350631552 "edit" "" 0

160 4 40 14 1 1342373889 "button" "OK" 0

160 20 40 14 2 1342373888 "button" "Cancel" 0

6 7 56 8 1003 1342308352 "static" "&Directory:" 0

64 4 82 12 8000 1350631552 "edit" "" 0

END DIALOG


DIALOG files

-2134376448 11 104 38 160 88 "" "" "Files Found"

FONT 8 "Helv"

6 4 60 8 1000 1342308352 "static" "&Matching files:" 0

6 14 64 68 9000 1352728587 "listbox" "" 0

114 4 40 14 1 1342373889 "button" "Open" 0

114 20 40 14 2 1342373888 "button" "Cancel" 0

73 71 60 0 8000 1342177280 "static" "" 0

74 72 54 8 1001 1342177280 "static" "Files searched:" 0

130 72 16 8 8110 1342177280 "static" "" 0

130 62 16 8 8111 1342177280 "static" "" 0

74 62 54 8 1004 1342177280 "static" "Matches:" 0

74 32 32 8 1002 1342177280 "static" "Directory:" 0

74 42 80 8 8007 1342177280 "static" "" 0

END DIALOG


function Strfile(PathFile) ' returns filename from fullpath

i = 1

while (1)

    ck = strchr(i PathFile "\")

    if ck << 1

        break

    endif

    i = ck + 1

wend

plen = len(pathfile)

pathfile = MID$(PathFile i plen)

return pathfile

end function


function Strpath(PathFile) ' returns path from fullpath

i = 1

while (1)

    ck = strchr(i PathFile "\")

    if ck << 1

        break

    endif

    i = ck + 1

wend

path = MID$(PathFile 1 (i - 1))

return path

end function


>

[Embedded]
00008700
>
[macsum] 6
keyword 0 0 10 2
ckfile 1887 2 8 87
keywords 3576 0 -1 162
files 4614 0 -1 188
Strfile 5225 1 4 204
Strpath 5449 1 4 218
[macse]
14 keyword
0 32 1
5 10
21 1 [X]
0 31 8006 "*.sam"
0 268
13
0 31 8000 [X]
5 1
8 2
5 4
6 2
18 2
12 00000166
10 00000311
5 1
6 2
3 0
8 2
10 00000091
0 286 "amipro" "field{2}" "amipro.ini"
13
8 3
6 3
7 ""
18 0
11 00000264
7 "Field{2}"
8 3
6 2
5 8100
3 0
0 31 [X] "{3}"
10 00000133
0 26 "." "keywords"
13
8 4
6 4
5 1
18 1
11 00000382
5 0
15
9
5 1
8 2
5 5
6 2
18 2
12 00000467
10 00000523
5 1
6 2
3 0
8 2
10 00000392
6 2
6 2
5 8000
3 0
0 27 [X]
13
23 1
10 00000434
5 6
8 2
5 9
6 2
18 2
12 00000608
10 00000664
5 1
6 2
3 0
8 2
10 00000533
6 2
6 2
5 8005
3 0
0 27 [X]
13
23 1
10 00000575
5 10
0 27 8777
13
23 1
20 00001422
19 00001422
0 271 "hits" 1
0 271 "filesfound" 1
0 264 "hits" 0
0 264 "filesfound" 0
0 27 8000
13
8 5
0 27 8006
13
8 6
0 807 "{5}" 1
13
7 "\"
18 1
11 00000903
0 16 "{5}" "\"
13
8 5
0 16 "{5}" "{6}"
13
0 280 [X] 1
13
8 7
6 7
7 ""
18 0
11 00001011
0 3 "No files found"
5 0
15
9
0 264 "filesfound" 1
0 16 "{5}" "{7}"
13
16 ckfile [X] &1
13
5 0
18 0
11 00001150
0 2 "Stop Search"
13
11 00001150
10 00001422
5 1
11 00001422
0 281
13
8 7
6 7
7 ""
18 0
11 00001227
10 00001422
0 16 "{5}" "{7}"
13
8 7
0 265 "filesfound"
13
5 1
3 0
0 264 "filesfound" [X]
16 ckfile "{7}" &1
13
5 0
18 0
11 00001409
0 2 "Stop Search"
13
11 00001409
10 00001422
10 00001150
0 789 ""
0 265 "hits"
13
0 31 8111 [X]
0 265 "filesfound"
13
0 31 8110 [X]
0 31 8007 "{5}"
0 266 "hits"
0 266 "filesfound"
0 26 "." "files"
13
8 4
6 4
5 1
18 1
11 00001623
5 0
15
9
0 789 ""
0 27 8000
13
8 8
6 8
7 ""
18 1
11 00001875
5 1
8 2
5 9
6 2
18 2
12 00001768
10 00001875
5 1
6 2
3 0
8 2
10 00001693
0 20 "{8}" "{2}" " "
13
8 9
6 9
7 ""
18 0
11 00001842
10 00001875
2 102 1 "{9}" 1 ""
10 00001735
6 0
15
9
14 ckfile
0 18 "{0}"
13
0 808 1 [X] "KEYWORD.SMM"
13
5 0
18 3
11 00000094
5 1
15
9
5 0
8 5
0 789 "Checking file:  {0}"
0 259 "{0}" "r"
13
8 6
6 6
5 1
18 5
11 00000227
0 3 "Unable to read file"
5 1
15
9
20 00001652
19 00001652
7 ""
8 7
0 15 "[[" 1 1
13
8 8
6 7
7 "{8}desc]"
18 1
11 00000416
0 257 "{6}"
13
8 7
6 7
5 -1
18 0
11 00000403
0 260 "{6}"
5 1
15
9
10 00000288
0 789 "Checking text of file:  {0}"
0 257 "{6}"
13
8 7
5 10
22 1
0 805 &4 [X]
13
7 ""
18 1
11 00000717
0 17 "{7}"
13
0 17 "{4}"
13
0 808 1 [X] [X]
13
5 0
18 3
11 00000717
0 265 "hits"
13
5 1
3 0
0 264 "hits" [X]
0 801
16 strfile "{0}"
13
0 25 [X]
0 260 "{6}"
5 1
15
9
0 257 "{6}"
13
8 7
5 6
8 9
5 9
6 9
18 2
12 00000824
10 00001092
5 1
6 9
3 0
8 9
10 00000749
6 9
22 1
8 4
6 4
7 ""
18 1
11 00001057
0 17 "{7}"
13
0 17 "{4}"
13
0 808 1 [X] [X]
13
5 0
18 3
11 00001057
0 265 "hits"
13
5 1
3 0
0 264 "hits" [X]
0 801
16 strfile "{0}"
13
0 25 [X]
0 260 "{6}"
5 1
15
9
0 257 "{6}"
13
8 7
10 00000791
5 1
8 9
5 8
6 9
18 2
12 00001177
10 00001267
5 1
6 9
3 0
8 9
10 00001102
0 257 "{6}"
13
8 7
6 7
5 -1
18 0
11 00001254
0 260 "{6}"
5 1
15
9
10 00001144
0 257 "{6}"
13
8 7
5 1
8 9
5 5
6 9
18 2
12 00001374
10 00001642
5 1
6 9
3 0
8 9
10 00001299
6 9
22 1
8 4
6 4
7 ""
18 1
11 00001607
0 17 "{7}"
13
0 17 "{4}"
13
0 808 1 [X] [X]
13
5 0
18 3
11 00001607
0 265 "hits"
13
5 1
3 0
0 264 "hits" [X]
0 801
16 strfile "{0}"
13
0 25 [X]
0 260 "{6}"
5 1
15
9
0 257 "{6}"
13
8 7
10 00001341
5 1
8 5
0 260 "{6}"
6 5
15
9
6 2
15
9
DIALOG keywords
-2134376448 21 79 22 206 156 "" "" "Keyword Search"
FONT 8 "Helv"
6 19 56 8 1001 1342308352 "static" "&Files to include:" 0
64 17 82 12 8006 1350631552 "edit" "" 0
6 32 42 8 1000 1342177280 "static" "&Description:" 0
6 42 194 22 8777 1350631428 "edit" "" 0
6 66 96 8 1002 1342308352 "static" "&Keywords:" 0
6 76 96 12 8001 1350631552 "edit" "" 0
6 90 96 12 8002 1350631552 "edit" "" 0
104 76 96 12 8003 1350631552 "edit" "" 0
104 90 96 12 8004 1350631552 "edit" "" 0
6 104 96 8 8101 1342308352 "static" "" 0
6 114 96 12 8011 1350631552 "edit" "" 0
6 128 96 8 8102 1342177280 "static" "" 0
6 138 96 12 8012 1350631552 "edit" "" 0
104 104 96 8 8103 1342177280 "static" "" 0
104 114 96 12 8013 1350631552 "edit" "" 0
104 128 96 8 8104 1342177280 "static" "" 0
104 138 96 12 8014 1350631552 "edit" "" 0
160 4 40 14 1 1342373889 "button" "OK" 0
160 20 40 14 2 1342373888 "button" "Cancel" 0
6 7 56 8 1003 1342308352 "static" "&Directory:" 0
64 4 82 12 8000 1350631552 "edit" "" 0
DIALOG files
-2134376448 11 104 38 160 88 "" "" "Files Found"
FONT 8 "Helv"
6 4 60 8 1000 1342308352 "static" "&Matching files:" 0
6 14 64 68 9000 1352728587 "listbox" "" 0
114 4 40 14 1 1342373889 "button" "Open" 0
114 20 40 14 2 1342373888 "button" "Cancel" 0
73 71 60 0 8000 1342177280 "static" "" 0
74 72 54 8 1001 1342177280 "static" "Files searched:" 0
130 72 16 8 8110 1342177280 "static" "" 0
130 62 16 8 8111 1342177280 "static" "" 0
74 62 54 8 1004 1342177280 "static" "Matches:" 0
74 32 32 8 1002 1342177280 "static" "Directory:" 0
74 42 80 8 8007 1342177280 "static" "" 0
14 Strfile
5 1
8 2
5 1
11 00000146
0 13 "{2}" "{0}" "\"
13
8 3
6 3
5 1
18 5
11 00000113
10 00000146
6 3
5 1
3 0
8 2
10 00000022
0 14 "{0}"
13
8 4
0 15 "{0}" "{2}" "{4}"
13
8 0
6 0
15
9
6 1
15
9
14 Strpath
5 1
8 2
5 1
11 00000146
0 13 "{2}" "{0}" "\"
13
8 3
6 3
5 1
18 5
11 00000113
10 00000146
6 3
5 1
3 0
8 2
10 00000022
6 2
5 1
3 1
0 15 "{0}" 1 [X]
13
8 4
6 4
15
9
6 1
15
9
00008725