home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 July & August
/
Pcwk78b98.iso
/
Smart30
/
ENGLISH
/
PRODUCTS
/
LOTUS018.DSK
/
KEYWORD.SMM
< prev
next >
Wrap
INI File
|
1992-09-14
|
18KB
|
1,490 lines
[ver]
4
[sty]
_macro.sty
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
PostScript Printer
[port]
LPT1:
[lang]
1
[desc]
Locate files by doc info
Lotus WPD Marketing
Advanced
Global Arrays, Instr
noautorun
716504303
51
676699899
765
6
0
0
0
0
keyword
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[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]
Body Single
8
[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]
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
[tag]
Bullet 1
12
[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
[l1]
0
[edoc]
<:#293,9360>Macro by <+!>Charlie Pappas<-!>
<:#284,9360>
@Function@<:#293,9360>function keyword()
<:#284,9360>IF IsNewWave()
<:#284,9360> Message("Macro not available while running under HP NewWave.")
<:#284,9360> Exit Function
<:#284,9360>ENDIF
<:#284,9360>ignorekeyboard(2)
<:#284,9360>declare strpath(p1)
<:#284,9360>declare strfile(p1)
<:#284,9360>declare ckfile(file, txt)
<:#284,9360>dim keys(10)
<:#284,9360>filledit(8006, "*.sam")
<:#284,9360>filledit(8000, getdocpath$())
<:#284,9360>for i = 1 to 4
<:#284,9360> field = getprofilestring$("amipro", "field{i}", "amipro.ini")
<:#284,9360> if field = ""
<:#284,9360> field = "Field{i}"
<:#284,9360> endif
<:#284,9360> filledit((i + 8100), field)
<:#284,9360>next
<:#284,9360>box = dialogbox(".", "keywords")
<:#284,9360>if box <<<;> 1
<:#284,9360> return 0
<:#284,9360>endif
<:#284,9360>path = getdialogfield$(8000)
<:#284,9360>for i = 1 to 5
<:#284,9360> keys(i) = getdialogfield$(i + 8000)
<:#284,9360>next
<:#284,9360>for i = 6 to 9
<:#284,9360> keys(i) = getdialogfield$(i + 8005)
<:#284,9360>next
<:#284,9360>keys(10) = getdialogfield$(8777)
<:#284,9360>onerror endit
<:#284,9360>oncancel endit
<:#284,9360>allocglobalvar("hits", 1)
<:#284,9360>allocglobalvar("filesfound", 1)
<:#284,9360>setglobalvar("hits", 0)
<:#284,9360>setglobalvar("filesfound", 0)
<:#284,9360>path = getdialogfield$(8000)
<:#284,9360>spec = getdialogfield$(8006)
<:#284,9360>if right$(path, 1) <<<;> "\"
<:#284,9360> path = strcat$(path, "\")
<:#284,9360>endif
<:#284,9360>file = findfirst$(strcat$(path, spec), 1)
<:#284,9360>if file = ""
<:#284,9360> message("No files found")
<:#284,9360> return 0
<:#284,9360>endif
<:#284,9360>setglobalvar("filesfound", 1)
<:#284,9360>if ckfile(strcat$(path, file), &keys) = 0
<:#284,9360> if decide("Stop Search")
<:#284,9360> goto endit
<:#284,9360> endif
<:#284,9360>endif
<:#284,9360>while (1)
<:#284,9360> file = findnext$()
<:#284,9360> if file = ""
<:#284,9360> break
<:#284,9360> endif
<:#284,9360> file = strcat$(path, file)
<:#284,9360> setglobalvar("filesfound", (getglobalvar$("filesfound") + 1))
<:#284,9360> if ckfile(file, &keys) = 0
<:#284,9360> if decide("Stop Search")
<:#284,9360> goto endit
<:#284,9360> endif
<:#284,9360> endif
<:#284,9360>wend
<:#284,9360>endit:
<:#284,9360>statusbarmsg("")
<:#284,9360>filledit(8111, getglobalvar$("hits"))
<:#284,9360>filledit(8110, getglobalvar$("filesfound"))
<:#284,9360>filledit(8007, path)
<:#284,9360>freeglobalvar("hits")
<:#284,9360>freeglobalvar("filesfound")
<:#284,9360>box = dialogbox(".", "files")
<:#284,9360>if box <<<;> 1
<:#284,9360> return 0
<:#284,9360>endif
<:#284,9360>statusbarmsg("")
<:#284,9360>files = getdialogfield$(8000)
<:#284,9360>if files <<<;> ""
<:#284,9360> for i = 1 to 9
<:#284,9360> fname = strfield$(files, i, " ")
if fname = -1 or fname = ""
<:#284,9360> break
<:#284,9360> endif
<:#284,9360> if left$(path,1) <<<;> "\"
<:#284,9360> path = strcat$(path,"\")
<:#284,9360> endif
<:#284,9360> fname = strcat$(path,fname)
<:#284,9360> FileOpen(fname, 1, "")
<:#284,9360> next
<:#284,9360>endif
<:#284,9360>end function
<:#284,9360>
@Function@<:#293,9360>function ckfile(file, keys)
<:#284,9360>defstr flag, ck;
<:#284,9360>if instr(1, ucase$(file), "KEYWORD.SMM") <;> 0
<:#284,9360> return 1
<:#284,9360>endif
<:#284,9360>stat = 0
<:#284,9360>statusbarmsg("Checking file: {file}")
<:#284,9360>fh = fopen(file, "r")
<:#284,9360>if fh << 1
<:#284,9360> message("Unable to read file")
<:#284,9360> return 1
<:#284,9360>endif
<:#284,9360>onerror endit
<:#284,9360>oncancel endit
<:#284,9360>line = ""
<:#284,9360>b = mid$("<[><[>", 1, 1)
<:#284,9360>while (line <<<;> "{b}desc]")
<:#284,9360> line = fgets$(fh)
<:#284,9360> if line = -1
<:#284,9360> fclose(fh)
<:#284,9360> return 1
<:#284,9360> endif
<:#284,9360>wend
<:#284,9360>statusbarmsg("Checking text of file: {file}")
<:#284,9360>line = fgets$(fh)
<:#284,9360>if assign(&ck, *keys(10)) <<<;> ""
<:#284,9360> if instr(1, lcase$(line), lcase$(ck)) <;> 0
<:#284,9360> setglobalvar("hits", (getglobalvar$("hits") + 1))
<:#284,9360> beep()
<:#284,9360> filllist(strfile(file))
<:#284,9360> fclose(fh)
<:#284,9360> return 1
<:#284,9360> endif
<:#284,9360>endif
<:#284,9360>line = fgets$(fh)
<:#284,9360>for i = 6 to 9
<:#284,9360> ck = *keys(i)
<:#284,9360> if ck <<<;> ""
<:#284,9360> if instr(1, lcase$(line), lcase$(ck)) <;> 0
<:#284,9360> setglobalvar("hits", (getglobalvar$("hits") + 1))
<:#284,9360> beep()
<:#284,9360> filllist(strfile(file))
<:#284,9360> fclose(fh)
<:#284,9360> return 1
<:#284,9360> endif
<:#284,9360> endif
<:#284,9360> line = fgets$(fh)
<:#284,9360>next
<:#284,9360>for i = 1 to 8
<:#284,9360> line = fgets$(fh)
<:#284,9360> if line = -1
<:#284,9360> fclose(fh)
<:#284,9360> return 1
<:#284,9360> endif
<:#284,9360>next
<:#284,9360>line = fgets$(fh)
<:#284,9360>for i = 1 to 5
<:#284,9360> ck = *keys(i);
<:#284,9360> if ck <<<;> ""
<:#284,9360> if instr(1, lcase$(line), lcase$(ck)) <;> 0
<:#284,9360> setglobalvar("hits", (getglobalvar$("hits") + 1))
<:#284,9360> beep()
<:#284,9360> filllist(strfile(file))
<:#284,9360> fclose(fh)
<:#284,9360> return 1
<:#284,9360> endif
<:#284,9360> endif
<:#284,9360> line = fgets$(fh)
<:#284,9360>next
<:#284,9360>stat = 1
<:#284,9360>endit:
<:#284,9360>fclose(fh)
<:#284,9360>return stat
<:#284,9360>end function
<:#284,9360>
@Function@<:#293,9360>DIALOG keywords
<:#284,9360>-2134376448 21 79 22 206 156 "" "" "Keyword Search"
<:#284,9360>FONT 8 "Helv"
<:#284,9360>6 19 56 8 1001 1342308352 "static" "&Files to include:" 0
<:#284,9360>64 17 82 12 8006 1350631552 "edit" "" 0
<:#284,9360>6 32 42 8 1000 1342177280 "static" "&Description:" 0
<:#284,9360>6 42 194 22 8777 1350631428 "edit" "" 0
<:#284,9360>6 66 96 8 1002 1342308352 "static" "&Keywords:" 0
<:#284,9360>6 76 96 12 8001 1350631552 "edit" "" 0
<:#284,9360>6 90 96 12 8002 1350631552 "edit" "" 0
<:#284,9360>104 76 96 12 8003 1350631552 "edit" "" 0
<:#284,9360>104 90 96 12 8004 1350631552 "edit" "" 0
<:#284,9360>6 104 96 8 8101 1342308352 "static" "" 0
<:#284,9360>6 114 96 12 8011 1350631552 "edit" "" 0
<:#284,9360>6 128 96 8 8102 1342177280 "static" "" 0
<:#284,9360>6 138 96 12 8012 1350631552 "edit" "" 0
<:#284,9360>104 104 96 8 8103 1342177280 "static" "" 0
<:#284,9360>104 114 96 12 8013 1350631552 "edit" "" 0
<:#284,9360>104 128 96 8 8104 1342177280 "static" "" 0
<:#284,9360>104 138 96 12 8014 1350631552 "edit" "" 0
<:#240,9360>160 4 40 14 1 1342373889 "button" "OK" 0
<:#240,9360>160 20 40 14 2 1342373888 "button" "Cancel" 0
<:#240,9360>6 7 56 8 1003 1342308352 "static" "&Directory:" 0
<:#240,9360>64 4 82 12 8000 1350631552 "edit" "" 0
<:#240,9360>END DIALOG
<:#240,9360>
@Function@<:#293,9360>DIALOG files
<:#284,9360>-2134376448 11 104 38 160 88 "" "" "Files Found"
<:#284,9360>FONT 8 "Helv"
<:#240,9360>6 4 60 8 1000 1342308352 "static" "&Matching files:" 0
<:#240,9360>6 14 64 68 9000 1352728587 "listbox" "" 0
<:#240,9360>114 4 40 14 1 1342373889 "button" "Open" 0
<:#240,9360>114 20 40 14 2 1342373888 "button" "Cancel" 0
<:#240,9360>73 71 60 0 8000 1342177280 "static" "" 0
<:#284,9360>74 72 54 8 1001 1342177280 "static" "Files searched:" 0
<:#240,9360>130 72 16 8 8110 1342177280 "static" "" 0
<:#240,9360>130 62 16 8 8111 1342177280 "static" "" 0
<:#240,9360>74 62 54 8 1004 1342177280 "static" "Matches:" 0
<:#284,9360>74 32 32 8 1002 1342177280 "static" "Directory:" 0
<:#284,9360>74 42 80 8 8007 1342177280 "static" "" 0
<:#240,9360>END DIALOG
<:#240,9360>
@Function@<:#240,9360>function Strfile(PathFile) ' returns filename from fullpath
<:#240,9360>i = 1
<:#240,9360>while (1)
<:#240,9360> ck = strchr(i PathFile "\")
<:#240,9360> if ck << 1
<:#240,9360> break
<:#240,9360> endif
<:#240,9360> i = ck + 1
<:#240,9360>wend
<:#240,9360>plen = len(pathfile)
<:#240,9360>pathfile = MID$(PathFile i plen)
<:#240,9360>return pathfile
<:#240,9360>end function
<:#240,9360>
@Function@<:#240,9360>function Strpath(PathFile) ' returns path from fullpath
<:#284,9360>i = 1
<:#284,9360>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]
00011790
>
[macsum] 6
keyword 0 0 10 2
ckfile 2122 2 8 96
keywords 3811 0 -1 171
files 4849 0 -1 197
Strfile 5460 1 4 213
Strpath 5684 1 4 227
[macse]
14 keyword
0 1317
13
11 00000108
0 3 "Macro not available while running under HP NewWave."
6 0
15
9
0 32 2
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 00000262
10 00000407
5 1
6 2
3 0
8 2
10 00000187
0 286 "amipro" "field{2}" "amipro.ini"
13
8 3
6 3
7 ""
18 0
11 00000360
7 "Field{2}"
8 3
6 2
5 8100
3 0
0 31 [X] "{3}"
10 00000229
0 26 "." "keywords"
13
8 4
6 4
5 1
18 1
11 00000478
5 0
15
9
0 27 8000
13
8 5
5 1
8 2
5 5
6 2
18 2
12 00000583
10 00000639
5 1
6 2
3 0
8 2
10 00000508
6 2
6 2
5 8000
3 0
0 27 [X]
13
23 1
10 00000550
5 6
8 2
5 9
6 2
18 2
12 00000724
10 00000780
5 1
6 2
3 0
8 2
10 00000649
6 2
6 2
5 8005
3 0
0 27 [X]
13
23 1
10 00000691
5 10
0 27 8777
13
23 1
20 00001538
19 00001538
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 00001019
0 16 "{5}" "\"
13
8 5
0 16 "{5}" "{6}"
13
0 280 [X] 1
13
8 7
6 7
7 ""
18 0
11 00001127
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 00001266
0 2 "Stop Search"
13
11 00001266
10 00001538
5 1
11 00001538
0 281
13
8 7
6 7
7 ""
18 0
11 00001343
10 00001538
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 00001525
0 2 "Stop Search"
13
11 00001525
10 00001538
10 00001266
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 00001739
5 0
15
9
0 789 ""
0 27 8000
13
8 8
6 8
7 ""
18 1
11 00002110
5 1
8 2
5 9
6 2
18 2
12 00001884
10 00002110
5 1
6 2
3 0
8 2
10 00001809
0 20 "{8}" "{2}" " "
13
8 9
6 9
5 -1
18 0
6 9
7 ""
18 0
1 2
11 00001980
10 00002110
0 806 "{5}" 1
13
7 "\"
18 1
11 00002050
0 16 "{5}" "\"
13
8 5
0 16 "{5}" "{9}"
13
8 9
2 102 1 "{9}" 1 ""
10 00001851
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
00011815