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

INI File | 1991-08-19 | 4.4 KB | 378 lines

[ver]
    4
[sty]
    ~macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[lang]
    1
[desc]
    Spellcheck multiple documents with one command with FSPELL.
    Lotus WPD Marketing
    Intermediate
    FillList, Spelling

    682670356
    17
    676699899
    68
    2
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[l1]
    0
[edoc]
Macro by <+!>Charlie Pappas<-!>


function fspell()

for i = 101 to 105

    filledit(i, 1)

next

again:

filledit(9001, strcat$(GetDocPath$(), "*.sam"))

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

if box <<<;> 1

    return 0

endif

if getdialogfield$(8001) = ""

    message("select files from the list")

    goto again

endif

cdir = getcurrentdir$()

dim files(100)

for i = 1 to 100

    file = strfield$(getdialogfield$(8001), i, " ")

    if file = ""

        break

    endif

    files(i) = file

next

opts = 0

if getdialogfield$(101)

    opts = opts + 1

endif

if not getdialogfield$(102)

    opts = opts + 2

endif

if not getdialogfield$(103)

    opts = opts + 4

endif

if not getdialogfield$(104)

    opts = opts + 8

endif

if not getdialogfield$(105)

    opts = opts + 16

endif

if getdialogfield$(106)

    opts = opts + 64

endif

for j = 1 to i - 1

    file = files(j)

    if j = 1

        opts = 1

    else

        opts = 129

    endif

    FileOpen(strcat$(cdir, file),  129 8203)

    spellcheck(opts)

    save()

next

fileclose()

end function


DIALOG files

-2134376448 13 86 28 184 158 "" "" "Spell Check Multiple Files"

FONT 8 "Helv"

6 6 66 8 1000 1342308352 "static" "&Files to check:" 0

6 16 66 58 9001 1352728587 "listbox" "" 0

5 77 173 75 900 1342308359 "button" "&Options" 0

10 89 163 9 101 1342242819 "button" "Beginning of document" 0

10 99 163 9 102 1342242819 "button" "Include other te&xt streams" 0

10 109 163 9 103 1342242819 "button" "Check for &repeated words" 0

10 119 163 9 104 1342242819 "button" "Check words with &numbers" 0

10 129 163 9 105 1342242819 "button" "Check words with &initial caps" 0

10 139 163 9 106 1342242819 "button" "Include &user dictionary alternatives" 0

136 6 40 14 1 1342373889 "button" "OK" 0

136 22 40 14 2 1342373888 "button" "Cancel" 0

78 26 36 1 8001 1342177280 "static" "" 0

78 46 98 8 7999 1342177280 "static" "" 0

END DIALOG

>

[Embedded]
00002454
>
[macsum] 2
fspell 0 0 8 2
files 1157 0 -1 58
[macse]
14 fspell
5 101
8 1
5 105
6 1
18 2
12 00000100
10 00000127
5 1
6 1
3 0
8 1
10 00000023
0 31 "{1}" 1
10 00000067
0 268
13
0 16 [X] "*.sam"
13
0 31 9001 [X]
0 26 "." "files"
13
8 2
6 2
5 1
18 1
11 00000243
5 0
15
9
0 27 8001
13
7 ""
18 0
11 00000330
0 3 "select files from the list"
10 00000127
0 290
13
8 3
5 100
21 4 [X]
5 1
8 1
5 100
6 1
18 2
12 00000450
10 00000566
5 1
6 1
3 0
8 1
10 00000373
0 27 8001
13
0 20 [X] "{1}" " "
13
8 5
6 5
7 ""
18 0
11 00000537
10 00000566
6 1
6 5
23 4
10 00000417
5 0
8 6
0 27 101
13
11 00000623
6 6
5 1
3 0
8 6
0 27 102
13
1 3
11 00000675
6 6
5 2
3 0
8 6
0 27 103
13
1 3
11 00000727
6 6
5 4
3 0
8 6
0 27 104
13
1 3
11 00000779
6 6
5 8
3 0
8 6
0 27 105
13
1 3
11 00000832
6 6
5 16
3 0
8 6
0 27 106
13
11 00000880
6 6
5 64
3 0
8 6
5 1
8 7
6 1
5 1
3 1
6 7
18 2
12 00000975
10 00001136
5 1
6 7
3 0
8 7
10 00000890
6 7
22 4
8 5
6 7
5 1
18 0
11 00001043
5 1
8 6
10 00001055
5 129
8 6
0 16 "{3}" "{5}"
13
2 102 1 [X] 129 8203
2 459 1 "{6}"
2 103 1
10 00000942
2 147 1
6 0
15
9
DIALOG files
-2134376448 13 86 28 184 158 "" "" "Spell Check Multiple Files"
FONT 8 "Helv"
6 6 66 8 1000 1342308352 "static" "&Files to check:" 0
6 16 66 58 9001 1352728587 "listbox" "" 0
5 77 173 75 900 1342308359 "button" "&Options" 0
10 89 163 9 101 1342242819 "button" "Beginning of document" 0
10 99 163 9 102 1342242819 "button" "Include other te&xt streams" 0
10 109 163 9 103 1342242819 "button" "Check for &repeated words" 0
10 119 163 9 104 1342242819 "button" "Check words with &numbers" 0
10 129 163 9 105 1342242819 "button" "Check words with &initial caps" 0
10 139 163 9 106 1342242819 "button" "Include &user dictionary alternatives" 0
136 6 40 14 1 1342373889 "button" "OK" 0
136 22 40 14 2 1342373888 "button" "Cancel" 0
78 26 36 1 8001 1342177280 "static" "" 0
78 46 98 8 7999 1342177280 "static" "" 0
00002479