home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / FSPELL.SMM < prev    next >
INI File  |  1992-06-17  |  8KB  |  531 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _default.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Spellcheck multiple documents
  19.     Lotus WPD Marketing
  20.     Intermediate
  21.     FillList, Spelling
  22.     noautorun
  23.     708809769
  24.     44
  25.     676699899
  26.     298
  27.     3
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  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. [l1]
  54.     0
  55. [pg]
  56.     3
  57.     45 0 17 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
  58.     90 0 12 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
  59.     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
  60. [edoc]
  61. Macro by <+!>Charlie Pappas<-!>
  62.  
  63.  
  64. function fspell()
  65.  
  66. IF IsNewWave()
  67.  
  68.     Message("Macro not available while running under HP NewWave.")
  69.  
  70.     Exit Function
  71.  
  72. ENDIF
  73.  
  74. ignorekeyboard(2)
  75.  
  76. for i = 101 to 105
  77.  
  78.     filledit(i, 1)
  79.  
  80. next
  81.  
  82. again:
  83.  
  84. filledit(9001, strcat$(GetDocPath$(), "*.sam"))
  85.  
  86. box = dialogbox(".", "files")
  87.  
  88. if box <<<;> 1
  89.  
  90.     return 0
  91.  
  92. endif
  93.  
  94. if getdialogfield$(8001) = ""
  95.  
  96.     message("select files from the list")
  97.  
  98.     goto again
  99.  
  100. endif
  101.  
  102. cdir = getcurrentdir$()
  103.  
  104. dim files(100)
  105.  
  106. for i = 1 to 100
  107.  
  108.     file = strfield$(getdialogfield$(8001), i, " ")
  109.  
  110.     if file = -1
  111.  
  112.         break
  113.  
  114.     endif
  115.  
  116.     files(i) = file
  117.  
  118. next
  119.  
  120. opts = 0
  121.  
  122. if getdialogfield$(101)
  123.  
  124.     opts = opts + 1
  125.  
  126. endif
  127.  
  128. if not getdialogfield$(102)
  129.  
  130.     opts = opts + 2
  131.  
  132. endif
  133.  
  134. if not getdialogfield$(103)
  135.  
  136.     opts = opts + 4
  137.  
  138. endif
  139.  
  140. if not getdialogfield$(104)
  141.  
  142.     opts = opts + 8
  143.  
  144. endif
  145.  
  146. if not getdialogfield$(105)
  147.  
  148.     opts = opts + 16
  149.  
  150. <:#284,9360>endif
  151.  
  152. <:#284,9360>if getdialogfield$(106)
  153.  
  154. <:#284,9360>    opts = opts + 64
  155.  
  156. <:#284,9360>endif
  157.  
  158. <:#284,9360> for j = 1 to i - 1
  159.  
  160. <:#284,9360>'singlestep(1)
  161.  
  162. <:#284,9360>    file = files(j)
  163.  
  164. <:#284,9360>    if j = 1
  165.  
  166. <:#284,9360>        opts = 1
  167.  
  168. <:#284,9360>    else
  169.  
  170. <:#284,9360>        opts = 129
  171.  
  172. <:#284,9360>    endif
  173.  
  174. <:#284,9360><:f240,2Times New Roman,255,0,0>    ifopen = 0
  175.  
  176. <:#284,9360><:f240,2Times New Roman,255,0,0>    Count = GetOpenFileCount()
  177.  
  178. <:#284,9360><:f240,2Times New Roman,255,0,0>    IF Count <;> 0
  179.  
  180. <:#284,9360><:f240,2Times New Roman,255,0,0>    DIM Filess(Count)
  181.  
  182. <:#284,9360><:f240,2Times New Roman,255,0,0>    GetOpenFileNames(&Filess)
  183.  
  184. <:#284,9360><:f240,2Times New Roman,255,0,0>    FOR II = 1 to Count
  185.  
  186. <:#284,9360><:f240,2Times New Roman,255,0,0>    f = filess(II)
  187.  
  188. <:#284,9360>    <:f240,2Times New Roman,255,0,0>pathplace = instr(0, f, "\")
  189.  
  190. <:#284,9360><:f240,2Times New Roman,255,0,0>    while pathplace <<<;> 0
  191.  
  192. <:#284,9360><:f240,2Times New Roman,255,0,0>        pathtemp = pathplace + 1
  193.  
  194. <:#284,9360><:f240,2Times New Roman,255,0,0>        pathplace = instr(pathtemp, f,"\")
  195.  
  196. <:s><:#284,9360><:f240,2Times New Roman,255,0,0>    wend    
  197.  
  198. <:#284,9360><:f240,2Times New Roman,255,0,0>    length = len(f)
  199.  
  200. <:#284,9360><:f240,2Times New Roman,255,0,0>    pathplace = right$(f, length  - pathtemp + 1)
  201.  
  202. <:#284,9360><:f240,2Times New Roman,255,0,0>    if  pathplace =  ucase$(file) and ifopen = 0 then
  203.  
  204. <:#284,9360><:f240,2Times New Roman,255,0,0>        ifopen = 1<:f>
  205.  
  206. <:#284,9360><:f240,2Times New Roman,255,0,0>    <:f><:f240,2Times New Roman,255,0,0>endif
  207.  
  208. <:#284,9360><:f240,2Times New Roman,255,0,0>    NEXT    <:f>
  209.  
  210. <:#284,9360>    <:f240,2Times New Roman,255,0,0>endif
  211.  
  212. <:#284,9360><:f240,2Times New Roman,255,0,0>    if ifopen = 0 then
  213.  
  214. <:#284,9360>        FileOpen(strcat$(cdir, file),  1, "")
  215.  
  216. <:#284,9360>        spellcheck(opts)
  217.  
  218. <:#284,9360>        save()
  219.  
  220. <:#284,9360>        fileclose()
  221.  
  222. <:#284,9360>    <:f240,2Times New Roman,255,0,0>else<:f>
  223.  
  224. <:#284,9360>        <:f240,2Times New Roman,255,0,0>selectwindow({file})
  225.  
  226. <:#284,9360><:f240,2Times New Roman,255,0,0>        spellcheck(Opts)
  227.  
  228. <:#284,9360><:f240,2Times New Roman,255,0,0>        save()
  229.  
  230. <:#284,9360><:f240,2Times New Roman,255,0,0>    endif        <:f>
  231.  
  232. <:#284,9360>next
  233.  
  234. <:#284,9360>end function
  235.  
  236. <:#284,9360>
  237.  
  238. <:#284,9360>DIALOG files
  239.  
  240. <:#284,9360>-2134376448 13 86 28 184 158 "" "" "Spell Check Multiple Files"
  241.  
  242. <:#284,9360>FONT 8 "Helv"
  243.  
  244. <:#284,9360>6 6 66 8 1000 1342308352 "static" "&Files to check:" 0 
  245.  
  246. <:#284,9360>6 16 66 58 9001 1352728587 "listbox" "" 0 
  247.  
  248. <:#284,9360>5 77 173 75 900 1342308359 "button" "&Options" 0 
  249.  
  250. <:#284,9360>10 89 163 9 101 1342242819 "button" "Beginning of document" 0 
  251.  
  252. <:#284,9360>10 99 163 9 102 1342242819 "button" "Include other te&xt streams" 0 
  253.  
  254. <:#284,9360>10 109 163 9 103 1342242819 "button" "Check for &repeated words" 0 
  255.  
  256. <:#284,9360>10 119 163 9 104 1342242819 "button" "Check words with &numbers" 0 
  257.  
  258. <:#284,9360>10 129 163 9 105 1342242819 "button" "Check words with &initial caps" 0 
  259.  
  260. <:#284,9360>10 139 163 9 106 1342242819 "button" "Include &user dictionary alternatives" 0 
  261.  
  262. <:#284,9360>136 6 40 14 1 1342373889 "button" "OK" 0 
  263.  
  264. <:#284,9360>136 22 40 14 2 1342373888 "button" "Cancel" 0 
  265.  
  266. <:#284,9360>78 26 36 1 8001 1342177280 "static" "" 0 
  267.  
  268. <:#284,9360>78 46 98 8 7999 1342177280 "static" "" 0 
  269.  
  270. <:#284,9360>END DIALOG
  271.  
  272. >
  273.  
  274. [Embedded]
  275. 00005068
  276. >
  277. [macsum] 2
  278. fspell 0 0 16 2
  279. files 1821 0 -1 89
  280. [macse]
  281. 14 fspell
  282. 0 1317
  283. 13
  284. 11 00000107
  285. 0 3 "Macro not available while running under HP NewWave."
  286. 6 0
  287. 15
  288. 9
  289. 0 32 2
  290. 5 101
  291. 8 1
  292. 5 105
  293. 6 1
  294. 18 2
  295. 12 00000204
  296. 10 00000231
  297. 5 1
  298. 6 1
  299. 3 0
  300. 8 1
  301. 10 00000127
  302. 0 31 "{1}" 1
  303. 10 00000171
  304. 0 268
  305. 13
  306. 0 16 [X] "*.sam"
  307. 13
  308. 0 31 9001 [X]
  309. 0 26 "." "files"
  310. 13
  311. 8 2
  312. 6 2
  313. 5 1
  314. 18 1
  315. 11 00000347
  316. 5 0
  317. 15
  318. 9
  319. 0 27 8001
  320. 13
  321. 7 ""
  322. 18 0
  323. 11 00000434
  324. 0 3 "select files from the list"
  325. 10 00000231
  326. 0 290
  327. 13
  328. 8 3
  329. 5 100
  330. 21 4 [X]
  331. 5 1
  332. 8 1
  333. 5 100
  334. 6 1
  335. 18 2
  336. 12 00000554
  337. 10 00000670
  338. 5 1
  339. 6 1
  340. 3 0
  341. 8 1
  342. 10 00000477
  343. 0 27 8001
  344. 13
  345. 0 20 [X] "{1}" " "
  346. 13
  347. 8 5
  348. 6 5
  349. 5 -1
  350. 18 0
  351. 11 00000641
  352. 10 00000670
  353. 6 1
  354. 6 5
  355. 23 4
  356. 10 00000521
  357. 5 0
  358. 8 6
  359. 0 27 101
  360. 13
  361. 11 00000727
  362. 6 6
  363. 5 1
  364. 3 0
  365. 8 6
  366. 0 27 102
  367. 13
  368. 1 3
  369. 11 00000779
  370. 6 6
  371. 5 2
  372. 3 0
  373. 8 6
  374. 0 27 103
  375. 13
  376. 1 3
  377. 11 00000831
  378. 6 6
  379. 5 4
  380. 3 0
  381. 8 6
  382. 0 27 104
  383. 13
  384. 1 3
  385. 11 00000883
  386. 6 6
  387. 5 8
  388. 3 0
  389. 8 6
  390. 0 27 105
  391. 13
  392. 1 3
  393. 11 00000936
  394. 6 6
  395. 5 16
  396. 3 0
  397. 8 6
  398. 0 27 106
  399. 13
  400. 11 00000984
  401. 6 6
  402. 5 64
  403. 3 0
  404. 8 6
  405. 5 1
  406. 8 7
  407. 6 1
  408. 5 1
  409. 3 1
  410. 6 7
  411. 18 2
  412. 12 00001079
  413. 10 00001809
  414. 5 1
  415. 6 7
  416. 3 0
  417. 8 7
  418. 10 00000994
  419. 6 7
  420. 22 4
  421. 8 5
  422. 6 7
  423. 5 1
  424. 18 0
  425. 11 00001147
  426. 5 1
  427. 8 6
  428. 10 00001159
  429. 5 129
  430. 8 6
  431. 5 0
  432. 8 8
  433. 0 1050
  434. 13
  435. 8 9
  436. 6 9
  437. 5 0
  438. 18 3
  439. 11 00001644
  440. 6 9
  441. 21 10 [X]
  442. 0 1051 &10
  443. 5 1
  444. 8 11
  445. 6 9
  446. 6 11
  447. 18 2
  448. 12 00001332
  449. 10 00001644
  450. 5 1
  451. 6 11
  452. 3 0
  453. 8 11
  454. 10 00001254
  455. 6 11
  456. 22 10
  457. 8 12
  458. 0 808 0 "{12}" "\"
  459. 13
  460. 8 13
  461. 6 13
  462. 5 0
  463. 18 1
  464. 11 00001481
  465. 6 13
  466. 5 1
  467. 3 0
  468. 8 14
  469. 0 808 "{14}" "{12}" "\"
  470. 13
  471. 8 13
  472. 10 00001381
  473. 0 14 "{12}"
  474. 13
  475. 8 15
  476. 6 15
  477. 6 14
  478. 3 1
  479. 5 1
  480. 3 0
  481. 0 807 "{12}" [X]
  482. 13
  483. 8 13
  484. 6 13
  485. 0 18 "{5}"
  486. 13
  487. 18 0
  488. 6 8
  489. 5 0
  490. 18 0
  491. 1 1
  492. 11 00001631
  493. 5 1
  494. 8 8
  495. 10 00001297
  496. 6 8
  497. 5 0
  498. 18 0
  499. 11 00001759
  500. 0 16 "{3}" "{5}"
  501. 13
  502. 2 102 1 [X] 1 ""
  503. 2 459 1 "{6}"
  504. 2 103 1
  505. 2 147 1
  506. 10 00001796
  507. 0 796 "{5}"
  508. 2 459 1 "{6}"
  509. 2 103 1
  510. 10 00001046
  511. 6 0
  512. 15
  513. 9
  514. DIALOG files
  515. -2134376448 13 86 28 184 158 "" "" "Spell Check Multiple Files" 
  516. FONT 8 "Helv" 
  517. 6 6 66 8 1000 1342308352 "static" "&Files to check:" 0 
  518. 6 16 66 58 9001 1352728587 "listbox" "" 0 
  519. 5 77 173 75 900 1342308359 "button" "&Options" 0 
  520. 10 89 163 9 101 1342242819 "button" "Beginning of document" 0 
  521. 10 99 163 9 102 1342242819 "button" "Include other te&xt streams" 0 
  522. 10 109 163 9 103 1342242819 "button" "Check for &repeated words" 0 
  523. 10 119 163 9 104 1342242819 "button" "Check words with &numbers" 0 
  524. 10 129 163 9 105 1342242819 "button" "Check words with &initial caps" 0 
  525. 10 139 163 9 106 1342242819 "button" "Include &user dictionary alternatives" 0 
  526. 136 6 40 14 1 1342373889 "button" "OK" 0 
  527. 136 22 40 14 2 1342373888 "button" "Cancel" 0 
  528. 78 26 36 1 8001 1342177280 "static" "" 0 
  529. 78 46 98 8 7999 1342177280 "static" "" 0 
  530. 00005093
  531.