home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August (B) / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / WORDCNT.SMM < prev    next >
Encoding:
INI File  |  1992-06-16  |  7.4 KB  |  452 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _MACRO.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.     View - Displays word count, etc.
  19.     Lotus WPD Marketing
  20.     Intermediate
  21.     EvalFields
  22.     Autorun
  23.     708732860
  24.     15
  25.     695279825
  26.     279
  27.     3
  28.     347
  29.     2718
  30.     7
  31.     9
  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. [ParaNum]
  54.     1
  55. [l1]
  56.     0
  57. [pg]
  58.     3
  59.     44 0 24 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
  60.     94 0 41 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
  61.     100 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
  62. [edoc]
  63. @Function@<:#293,9360>'Declares and defines
  64.  
  65. <:#284,9360>declare onmenu(p1, p2);
  66.  
  67. <:#284,9360>'This stuff defines the Title Bar message (TitleBarMsg) stuff and is not necessary
  68.  
  69. <:#284,9360>define GetActiveWindow()    DllCall("user,GetActiveWindow,H")
  70.  
  71. <:#284,9360>define SetWindowText()    DllCall("user,SetWindowText,IHC", %1, %2)
  72.  
  73. <:#284,9360>define TitleBarMsg()    SetWindowText(GetActiveWindow(), %1)
  74.  
  75. <:#284,9360>define GetWindowText()    DllCall("user,GetWindowText,HHFH", %1, %2, %3)
  76.  
  77. <:#284,9360>'functions
  78.  
  79. @Function@<:#293,9360>FUNCTION PutOnMenu()
  80.  
  81. <:#284,9360>rmac=GetRunningMacroFile$()
  82.  
  83. <:#284,9360>item="Display Word &Count..."
  84.  
  85. <:#284,9360>menu="&View"
  86.  
  87. <:#284,9360>running=onmenu(menu, item)
  88.  
  89. <:#284,9360>if running = 1
  90.  
  91. <:#284,9360>    call filestats()
  92.  
  93. <:#284,9360>else
  94.  
  95.     StatusBarMsg("Installing a new menu item to the View menu")
  96.  
  97.     'pause(008)
  98.  
  99. <:#284,9360>    deletemenuitem(1, menu, item)
  100.  
  101. <:#568,9360>    addmenuitem(1, menu, item, "{rmac}!filestats", "Displays word count and other file statistics for the document.")
  102.  
  103.     StatusBarMsg("")
  104.  
  105. <:#284,9360>endif
  106.  
  107. <:#284,9360>END FUNCTION
  108.  
  109. @Function@<:#293,9360>FUNCTION filestats()
  110.  
  111. <:#284,9360>count=getopenfilecount()
  112.  
  113. <:#284,9360>if count =0
  114.  
  115. <:#284,9360>    message("You must have a file open to use this feature.")
  116.  
  117. <:#284,9360>    exit function
  118.  
  119. <:#284,9360>endif
  120.  
  121. <:#284,9360>StatusBarMsg("Counting words, one moment please...")
  122.  
  123. <:#284,9360>hourglass(1)
  124.  
  125. <:#284,9360>words=EvalField("NumWords")
  126.  
  127. <:#284,9360>if words<<2
  128.  
  129. <:#284,9360>    wplural=""
  130.  
  131. <:#284,9360>else
  132.  
  133. <:#284,9360>    wplural="s"
  134.  
  135. <:#284,9360>endif
  136.  
  137. <:#284,9360>pages=EvalField("NumPages")
  138.  
  139. <:#284,9360>if pages<<2
  140.  
  141. <:#284,9360>    pplural=""
  142.  
  143. <:#284,9360>else
  144.  
  145. <:#284,9360>    pplural="s"
  146.  
  147. <:#284,9360>endif
  148.  
  149. <:#284,9360>if GetOpenFileName$()=""
  150.  
  151. <:#284,9360>    if Filechanged(0,0) = 0
  152.  
  153. <:#284,9360>    savestat="Untitled file is unchanged since it was created:"
  154.  
  155. <:#284,9360>else
  156.  
  157. <:#284,9360>    savestat="Untitled file has changed since it was created:"
  158.  
  159. <:#284,9360>endif
  160.  
  161. <:#284,9360>size="n/a"
  162.  
  163. <:#240,9360>else
  164.  
  165. <:#240,9360>    if Filechanged(0,0) = 0
  166.  
  167. <:#284,9360>    savestat="Displayed file is unchanged as of last save:"
  168.  
  169. <:#240,9360>else
  170.  
  171. <:#284,9360>    savestat="Displayed file has changed since last save:"
  172.  
  173. <:#240,9360>endif
  174.  
  175. <:#240,9360>size=strcat$(EvalField("FileSize"), "K")
  176.  
  177. <:#240,9360>endif
  178.  
  179. <:#240,9360>savedate=formatDate$(EvalField("EditDate"), "a")
  180.  
  181. <:#240,9360>diff=datediff((formatdate$(now(), "a")), savedate)
  182.  
  183. <:#240,9360>if diff=0
  184.  
  185. <:#240,9360>    savedate="today"
  186.  
  187. <:#240,9360>elseif diff=1
  188.  
  189. <:#240,9360>    savedate="yesterday"
  190.  
  191. <:#240,9360>endif
  192.  
  193. <:#240,9360>savetime=formatTime$(EvalField("EditDate"), "8")
  194.  
  195. <:#284,9360>savedatetime="{savedate} at {savetime}"
  196.  
  197. <:#240,9360>StatusBarMsg("")
  198.  
  199. <:#240,9360>hourglass(0)
  200.  
  201. <:#240,9360>filledit(1006, words)
  202.  
  203. <:#240,9360>filledit(1007, pages)
  204.  
  205. <:#240,9360>filledit(1008, size)
  206.  
  207. <:#240,9360>filledit(1009, savestat)
  208.  
  209. <:#240,9360>filledit(1010, savedatetime)
  210.  
  211. <:#240,9360>box=dialogbox(".", "WordCount")
  212.  
  213. <:#240,9360>statusbarmsg("")
  214.  
  215. <:#240,9360>END FUNCTION
  216.  
  217. @Function@<:#240,9360>FUNCTION onmenu(menu, item)
  218.  
  219. <:#240,9360>rmac=getrunningmacrofile$()
  220.  
  221. <:#480,9360>result=checkmenuitem(1, menu, item, 1)    ' Must checkmenuitem twice so it gets 
  222.  
  223. <:#480,9360>result=checkmenuitem(1, menu, item, 0)    ' correct value without altering item
  224.  
  225. <:#240,9360>if result=8
  226.  
  227. <:#240,9360>    onmenu= 1
  228.  
  229. <:#240,9360>elseif
  230.  
  231. <:#240,9360>    onmenu= 0
  232.  
  233. <:#240,9360>endif
  234.  
  235. <:#240,9360>END FUNCTION
  236.  
  237. @Function@<:#240,9360>DIALOG WordCount
  238.  
  239. <:#240,9360>-2134376448 9 57 47 174 72 "" "" "Word Count"
  240.  
  241. <:#240,9360>FONT 8 "Helv"
  242.  
  243. <:#240,9360>0 7 76 10 1000 1342177282 "static" "Number of Words:" 0 
  244.  
  245. <:#240,9360>88 7 37 10 1006 1342177280 "static" "" 0 
  246.  
  247. <:#240,9360>0 22 76 10 1001 1342177282 "static" "Number of Pages:" 0 
  248.  
  249. <:#284,9360>88 22 40 8 1007 1342177280 "static" "" 0 
  250.  
  251. <:#240,9360>22 33 54 10 1002 1342177282 "static" "File size:" 0 
  252.  
  253. <:#240,9360>88 33 40 10 1008 1342177280 "static" "" 0 
  254.  
  255. <:#240,9360>6 48 164 10 1009 1342177280 "static" "" 0 
  256.  
  257. <:#240,9360>20 58 122 10 1010 1342177280 "static" "" 0 
  258.  
  259. <:#240,9360>130 2 40 14 1 1342373889 "button" "OK" 0 
  260.  
  261. <:#284,9360>END DIALOG
  262.  
  263. >
  264.  
  265. [Embedded]
  266. 00005082
  267. >
  268. [macsum] 4
  269. PutOnMenu 0 0 5 8
  270. filestats 366 0 13 23
  271. onmenu 1610 2 3 77
  272. WordCount 1794 0 -1 87
  273. [macse]
  274. 14 PutOnMenu
  275. 0 802
  276. 13
  277. 8 1
  278. 7 "Display Word &Count..."
  279. 8 2
  280. 7 "&View"
  281. 8 3
  282. 16 onmenu "{3}" "{2}"
  283. 13
  284. 8 4
  285. 6 4
  286. 5 1
  287. 18 0
  288. 11 00000167
  289. 16 filestats
  290. 10 00000354
  291. 0 789 "Installing a new menu item to the View menu"
  292. 0 520 1 "{3}" "{2}"
  293. 0 516 1 "{3}" "{2}" "{1}!filestats" "Displays word count and other file statistics for the document."
  294. 0 789 ""
  295. 6 0
  296. 15
  297. 9
  298. 14 filestats
  299. 0 1050
  300. 13
  301. 8 1
  302. 6 1
  303. 5 0
  304. 18 0
  305. 11 00000126
  306. 0 3 "You must have a file open to use this feature."
  307. 6 0
  308. 15
  309. 9
  310. 0 789 "Counting words, one moment please..."
  311. 0 296 1
  312. 0 1289 "NumWords"
  313. 13
  314. 8 2
  315. 6 2
  316. 5 2
  317. 18 5
  318. 11 00000262
  319. 7 ""
  320. 8 3
  321. 10 00000274
  322. 7 "s"
  323. 8 3
  324. 0 1289 "NumPages"
  325. 13
  326. 8 4
  327. 6 4
  328. 5 2
  329. 18 5
  330. 11 00000355
  331. 7 ""
  332. 8 5
  333. 10 00000367
  334. 7 "s"
  335. 8 5
  336. 0 267
  337. 13
  338. 7 ""
  339. 18 0
  340. 11 00000598
  341. 0 34 0 0
  342. 13
  343. 5 0
  344. 18 0
  345. 11 00000513
  346. 7 "Untitled file is unchanged since it was created:"
  347. 8 6
  348. 10 00000571
  349. 7 "Untitled file has changed since it was created:"
  350. 8 6
  351. 7 "n/a"
  352. 8 7
  353. 10 00000804
  354. 0 34 0 0
  355. 13
  356. 5 0
  357. 18 0
  358. 11 00000704
  359. 7 "Displayed file is unchanged as of last save:"
  360. 8 6
  361. 10 00000758
  362. 7 "Displayed file has changed since last save:"
  363. 8 6
  364. 0 1289 "FileSize"
  365. 13
  366. 0 16 [X] "K"
  367. 13
  368. 8 7
  369. 0 1289 "EditDate"
  370. 13
  371. 0 770 [X] "a"
  372. 13
  373. 8 8
  374. 0 772
  375. 13
  376. 0 770 [X] "a"
  377. 13
  378. 0 769 [X] "{8}"
  379. 13
  380. 8 9
  381. 6 9
  382. 5 0
  383. 18 0
  384. 11 00000965
  385. 7 "today"
  386. 8 8
  387. 10 00001014
  388. 6 9
  389. 5 1
  390. 18 0
  391. 11 00001014
  392. 7 "yesterday"
  393. 8 8
  394. 0 1289 "EditDate"
  395. 13
  396. 0 773 [X] "8"
  397. 13
  398. 8 10
  399. 7 "{8} at {10}"
  400. 8 11
  401. 0 789 ""
  402. 0 296 0
  403. 0 31 1006 "{2}"
  404. 0 31 1007 "{4}"
  405. 0 31 1008 "{7}"
  406. 0 31 1009 "{6}"
  407. 0 31 1010 "{11}"
  408. 0 26 "." "WordCount"
  409. 13
  410. 8 12
  411. 0 789 ""
  412. 6 0
  413. 15
  414. 9
  415. 14 onmenu
  416. 0 802
  417. 13
  418. 8 3
  419. 0 518 1 "{0}" "{1}" 1
  420. 13
  421. 8 4
  422. 0 518 1 "{0}" "{1}" 0
  423. 13
  424. 8 4
  425. 6 4
  426. 5 8
  427. 18 0
  428. 11 00000143
  429. 5 1
  430. 8 2
  431. 10 00000172
  432. 6 2
  433. 5 0
  434. 18 0
  435. 11 00000172
  436. 6 2
  437. 15
  438. 9
  439. DIALOG WordCount
  440. -2134376448 9 57 47 174 72 "" "" "Word Count" 
  441. FONT 8 "Helv" 
  442. 0 7 76 10 1000 1342177282 "static" "Number of Words:" 0 
  443. 88 7 37 10 1006 1342177280 "static" "" 0 
  444. 0 22 76 10 1001 1342177282 "static" "Number of Pages:" 0 
  445. 88 22 40 8 1007 1342177280 "static" "" 0 
  446. 22 33 54 10 1002 1342177282 "static" "File size:" 0 
  447. 88 33 40 10 1008 1342177280 "static" "" 0 
  448. 6 48 164 10 1009 1342177280 "static" "" 0 
  449. 20 58 122 10 1010 1342177280 "static" "" 0 
  450. 130 2 40 14 1 1342373889 "button" "OK" 0 
  451. 00005107
  452.