Program Metropolis - Software Boutique 95/SOFTWARECD.iso/camipro3/macros.cmz/FSPELL.SMM

INI File | 1994-08-14 | 8.2 KB | 532 lines

[ver]
    4
[sty]
    _default.sty
[files]
[charset]
    82
    CHINESEBIG5 (Windows)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    ╣∩ªhÑ≈ñσÑ≤░╡½≈ªr└╦¼díC
    Lotus WPD Marketing
    Intermediate
    FillList, Spelling
    noautorun
    773102879
    45
    676699899
    298
    3
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[l1]
    0
[pg]
    3
    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
    98 0 67 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
    106 0 10 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
[edoc]
<:#289,9025>Macro by <+!>Charlie Pappas<-!>

<:#284,9025>

<:#284,9025>function fspell()

<:#284,9025>IF IsNewWave()

<:#284,9025>    Message("Macro not available while running under HP NewWave.")

<:#284,9025>    Exit Function

<:#284,9025>ENDIF

<:#284,9025>ignorekeyboard(2)

<:#284,9025>for i = 101 to 105

<:#284,9025>    filledit(i, 1)

<:#284,9025>next

<:#284,9025>again:

<:#284,9025>filledit(9001, strcat$(GetDocPath$(), "*.sam"))

<:#284,9025>box = dialogbox(".", "files")

<:#284,9025>if box <<<;> 1

<:#284,9025>    return 0

<:#284,9025>endif

<:#284,9025>if getdialogfield$(8001) = ""

<:#284,9025>    message("select files from the list")

<:#284,9025>    goto again

<:#284,9025>endif

<:#284,9025>cdir = getcurrentdir$()

<:#284,9025>dim files(100)

<:#284,9025>for i = 1 to 100

<:#284,9025>    file = strfield$(getdialogfield$(8001), i, " ")

<:#284,9025>    if file = -1

<:#284,9025>        break

<:#284,9025>    endif

<:#284,9025>    files(i) = file

<:#284,9025>next

<:#284,9025>opts = 0

<:#284,9025>if getdialogfield$(101)

<:#284,9025>    opts = opts + 1

<:#284,9025>endif

<:#284,9025>if not getdialogfield$(102)

<:#284,9025>    opts = opts + 2

<:#284,9025>endif

<:#284,9025>if not getdialogfield$(103)

<:#284,9025>    opts = opts + 4

<:#284,9025>endif

<:#284,9025>if not getdialogfield$(104)

<:#284,9025>    opts = opts + 8

<:#284,9025>endif

<:#284,9025>if not getdialogfield$(105)

<:#284,9025>    opts = opts + 16

<:#284,9025>endif

<:#284,9025>if getdialogfield$(106)

<:#284,9025>    opts = opts + 64

<:#284,9025>endif

<:#284,9025> for j = 1 to i - 1

<:#284,9025>'singlestep(1)

<:#284,9025>    file = files(j)

<:#284,9025>    if j = 1

<:#284,9025>        opts = 1

<:#284,9025>    else

<:#284,9025>        opts = 129

<:#284,9025>    endif

<:#284,9025><:f240,2Times New Roman,255,0,0>    ifopen = 0

<:#284,9025><:f240,2Times New Roman,255,0,0>    Count = GetOpenFileCount()

<:#284,9025><:f240,2Times New Roman,255,0,0>    IF Count <;> 0

<:#284,9025><:f240,2Times New Roman,255,0,0>    DIM Filess(Count)

<:#284,9025><:f240,2Times New Roman,255,0,0>    GetOpenFileNames(&Filess)

<:#284,9025><:f240,2Times New Roman,255,0,0>    FOR II = 1 to Count

<:#284,9025><:f240,2Times New Roman,255,0,0>    f = filess(II)

<:#284,9025>    <:f240,2Times New Roman,255,0,0>pathplace = instr(0, f, "\")

<:#284,9025><:f240,2Times New Roman,255,0,0>    while pathplace <<<;> 0

<:#284,9025><:f240,2Times New Roman,255,0,0>        pathtemp = pathplace + 1

<:#284,9025><:f240,2Times New Roman,255,0,0>        pathplace = instr(pathtemp, f,"\")

<:s><:#284,9025><:f240,2Times New Roman,255,0,0>    wend

<:#284,9025><:f240,2Times New Roman,255,0,0>    length = len(f)

<:#284,9025><:f240,2Times New Roman,255,0,0>    pathplace = right$(f, length  - pathtemp + 1)

<:#284,9025><:f240,2Times New Roman,255,0,0>    if  pathplace =  ucase$(file) and ifopen = 0 then

<:#284,9025><:f240,2Times New Roman,255,0,0>        ifopen = 1<:f>

<:#284,9025><:f240,2Times New Roman,255,0,0>    <:f><:f240,2Times New Roman,255,0,0>endif

<:#284,9025><:f240,2Times New Roman,255,0,0>    NEXT    <:f>

<:#284,9025>    <:f240,2Times New Roman,255,0,0>endif

<:#284,9025><:f240,2Times New Roman,255,0,0>    if ifopen = 0 then

<:#284,9025>        FileOpen(strcat$(cdir, file),  1, "")

<:#284,9025>        spellcheck(opts)

<:#284,9025>        save()

<:#284,9025>        fileclose()

<:#284,9025>    <:f240,2Times New Roman,255,0,0>else<:f>

<:#284,9025>        <:f240,2Times New Roman,255,0,0>selectwindow({file})

<:#284,9025><:f240,2Times New Roman,255,0,0>        spellcheck(Opts)

<:#284,9025><:f240,2Times New Roman,255,0,0>        save()

<:#284,9025><:f240,2Times New Roman,255,0,0>    endif        <:f>

<:#284,9025>next

<:#284,9025>end function

<:#284,9025>

<:#284,9025>DIALOG files

<:#284,9025>-2134376448 13 86 28 184 158 "" "" "Spell Check Multiple Files"

<:#284,9025>FONT 8 "Helv"

<:#284,9025>6 6 66 8 1000 1342308352 "static" "&Files to check:" 0

<:#284,9025>6 16 66 58 9001 1352728587 "listbox" "" 0

<:#284,9025>5 77 173 75 900 1342308359 "button" "&Options" 0

<:#284,9025>10 89 163 9 101 1342242819 "button" "Beginning of document" 0

<:#284,9025>10 99 163 9 102 1342242819 "button" "Include other te&xt streams" 0

<:#284,9025>10 109 163 9 103 1342242819 "button" "Check for &repeated words" 0

<:#284,9025>10 119 163 9 104 1342242819 "button" "Check words with &numbers" 0

<:#284,9025>10 129 163 9 105 1342242819 "button" "Check words with &initial caps" 0

<:#284,9025>10 139 163 9 106 1342242819 "button" "Include &user dictionary alternatives" 0

<:#284,9025>136 6 40 14 1 1342373889 "button" "OK" 0

<:#284,9025>136 22 40 14 2 1342373888 "button" "Cancel" 0

<:#284,9025>78 26 36 1 8001 1342177280 "static" "" 0

<:#284,9025>78 46 98 8 7999 1342177280 "static" "" 0

<:#284,9025>END DIALOG

>

[Embedded]
00005596
>
[macsum] 2
fspell 0 0 16 2
files 1821 0 -1 89
[macse]
14 fspell
0 1317
13
11 00000107
0 3 "Macro not available while running under HP NewWave."
6 0
15
9
0 32 2
5 101
8 1
5 105
6 1
18 2
12 00000204
10 00000231
5 1
6 1
3 0
8 1
10 00000127
0 31 "{1}" 1
10 00000171
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 00000347
5 0
15
9
0 27 8001
13
7 ""
18 0
11 00000434
0 3 "select files from the list"
10 00000231
0 290
13
8 3
5 100
21 4 [X]
5 1
8 1
5 100
6 1
18 2
12 00000554
10 00000670
5 1
6 1
3 0
8 1
10 00000477
0 27 8001
13
0 20 [X] "{1}" " "
13
8 5
6 5
5 -1
18 0
11 00000641
10 00000670
6 1
6 5
23 4
10 00000521
5 0
8 6
0 27 101
13
11 00000727
6 6
5 1
3 0
8 6
0 27 102
13
1 3
11 00000779
6 6
5 2
3 0
8 6
0 27 103
13
1 3
11 00000831
6 6
5 4
3 0
8 6
0 27 104
13
1 3
11 00000883
6 6
5 8
3 0
8 6
0 27 105
13
1 3
11 00000936
6 6
5 16
3 0
8 6
0 27 106
13
11 00000984
6 6
5 64
3 0
8 6
5 1
8 7
6 1
5 1
3 1
6 7
18 2
12 00001079
10 00001809
5 1
6 7
3 0
8 7
10 00000994
6 7
22 4
8 5
6 7
5 1
18 0
11 00001147
5 1
8 6
10 00001159
5 129
8 6
5 0
8 8
0 1050
13
8 9
6 9
5 0
18 3
11 00001644
6 9
21 10 [X]
0 1051 &10
5 1
8 11
6 9
6 11
18 2
12 00001332
10 00001644
5 1
6 11
3 0
8 11
10 00001254
6 11
22 10
8 12
0 808 0 "{12}" "\"
13
8 13
6 13
5 0
18 1
11 00001481
6 13
5 1
3 0
8 14
0 808 "{14}" "{12}" "\"
13
8 13
10 00001381
0 14 "{12}"
13
8 15
6 15
6 14
3 1
5 1
3 0
0 807 "{12}" [X]
13
8 13
6 13
0 18 "{5}"
13
18 0
6 8
5 0
18 0
1 1
11 00001631
5 1
8 8
10 00001297
6 8
5 0
18 0
11 00001759
0 16 "{3}" "{5}"
13
2 102 1 [X] 1 ""
2 459 1 "{6}"
2 103 1
2 147 1
10 00001796
0 796 "{5}"
2 459 1 "{6}"
2 103 1
10 00001046
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
00005621