Liren Large Software Subsidy 14

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 52.ddi / SAMPMAC.LIB / OPENDOCS.SMM < prev next >

Wrap

INI File | 1993-10-22 | 7.3 KB | 775 lines

[ver] 4 [sty] _default.sty [charset] 82 ANSI (Windows, IBM CP 1252) [PanoseFontTable] 4 5 Tms Rmn 514 774 1284 517 1027 Helvetica 2818 1029 514 514 1026 Helv 2818 1029 514 770 1026 Times New Roman 514 774 1029 517 1027 [revisions] 0 [recfile] * 1 1 3 8 0 0 [lang] 1 [desc] Open multiple documents 751322114 1 750620291 168 0 0 0 0 0 1 [prn] QMS-PS 810 [port] NW:\\SPEEDY\QMS [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Outline4 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 4 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline3 0 0 [tag] Outline3 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 720 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 3 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline3 0 0 [tag] Outline1 1 [fnt] Times New Roman 240 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 72 0 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline1 0 0 [tag] Outline2 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 216 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 2 0 1 1 0 16 0 0 [nfmt] 272 1 3 . , $ Outline2 0 0 [tag] Function 1 [fnt] Helvetica 240 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 68 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 3 . , $ Body Text 0 0 [tag] Title 8 [fnt] Helvetica 280 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 1 0 1 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [frght] [lyfrm] 0 13184 0 14400 12240 15840 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s><:#P30670848,P943718> > [hrght] [lyfrm] 0 11136 0 0 12240 1440 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s><:#P30670848,P943718> > [elay] [l1] 0 [edoc] <:s><:#P30670848,P943718>' Macro to open multiple files. <:s><:#P30670848,P943718>' Peyton McManus <:s><:#P30670848,P943718>' dialogbox is internal <:s><:#P30670848,P943718> @Subhead@<:s><:#P30670848,P943718><:X3,0;include "amixlate.sam!opendocs">'Opendocs Defines <:s>Define NowOpening "Now Opening " <:s>Define Select "Select up to 9 files to open:" <:X~3,0;include "amixlate.sam!opendocs"> @Subhead@<:s><:#P30670848,P943718>function Main() <:s><:#P30670848,P943718>DefStr Temp; <:s><:#P30670848,P943718>doc=getdocpath$() <:s><:#P30670848,P943718>doc=strfield(doc, 1, ";") 'dez <:s><:#P30670848,P943718>doc=CatSlash(doc) 'dez <:s><:#P30670848,P943718>FillEdit(1000, Select) <:s><:#P30670848,P943718>Filledit(9001,"{doc}*.s?m") ' fill the listbox with files <:s><:#P30670848,P943718>Box=dialogbox(".","Getfiles") ' display the dialogbox <:s><:#P30670848,P943718>if Box<<<;>1 ' if cancel then exit macro <:s><:#P30670848,P943718> Exit Function <:s><:#P30670848,P943718>Endif <:s><:#P30670848,P943718>Files=getdialogfield$(9001) <:s><:#P30670848,P943718>If Files = "" <:s><:#P30670848,P943718> Exit Function <:s><:#P30670848,P943718>Endif <:s><:#P30670848,P943718>x=1 <:s><:#P30670848,P943718>Dir = GetDocPath$() <:s><:#P30670848,P943718>While -1 != Assign(&Temp,StrField$(Files, x, " ")) <:s><:#P30670848,P943718> FileName="{dir}{temp}" <:s><:#P30670848,P943718> MsgText = StrCat$(NowOpening, FileName) <:s><:#P30670848,P943718> StatusBarMsg(MsgText) <:s><:#P30670848,P943718> Fileopen(FileName,1,"") <:s><:#P30670848,P943718> pause(010) <:s><:#P30670848,P943718> If GetOpenFileCount() <;> 8 <:s><:#P30670848,P943718> Break; <:s><:#P30670848,P943718> Endif <:s><:#P30670848,P943718> x = x + 1 <:s><:#P30670848,P943718>Wend <:s><:#P30670848,P943718>StatusBarMsg("") <:s><:#P30670848,P943718>End Function <:s><:#P30670848,P943718> <:s><:#P30670848,P943718>DIALOG Getfiles <:s><:#P30670848,P943718>-2134376448 5 97 34 129 102 "" "" "Multiple File Open" <:s><:#P30670848,P943718>FONT 8 "Helv" <:s><:#P30670848,P943718>6 22 62 76 9001 1352728587 "listbox" "" 0 <:s><:#P30670848,P943718>6 2 62 18 1000 1342177280 "static" "" 0 <:s><:#P30670848,P943718>74 42 50 9 7999 1342177280 "static" "" 0 <:s><:#P30670848,P943718>83 4 40 14 1 1342373889 "button" "OK" 0 <:s><:#P30670848,P943718>83 20 40 14 2 1342373888 "button" "Cancel" 0 <:s><:#P30670848,P943718>END DIALOG <:s><:#P30670848,P943718> > [Embedded] 00006172 > [macsum4] 2 14 Main 0 0 9 8 Getfiles 902 0 65535 39 [macse] 14 Main 29 0 Main 17 1 29 1 Temp 17 2 29 2 doc 31 101 45 2 13 16 _$$5CatSlash [X] 13 8 2 17 3 0 20 "{2}" 1 ";" 13 8 2 17 4 16 _$$5CatSlash "{2}" 13 8 2 17 5 0 31 1000 "Select up to 9 files to open:" 17 6 0 31 9001 "{2}*.s?m" 17 7 29 3 Box 0 26 "." "Getfiles" 13 8 3 17 8 6 3 5 1 18 1 11 00000341 6 0 15 9 17 11 29 4 Files 0 27 9001 13 8 4 17 12 6 4 7 "" 18 0 11 00000429 6 0 15 9 17 15 29 5 x 5 1 8 5 17 16 29 6 Dir 31 101 45 2 13 16 _$$5CatSlash [X] 13 8 6 17 17 5 -1 0 20 "{4}" "{5}" " " 13 0 805 &1 [X] 13 18 1 11 00000866 17 18 29 7 FileName 7 "{6}{1}" 8 7 17 19 29 8 MsgText 0 16 "Now Opening " "{7}" 13 8 8 17 20 0 789 "{8}" 17 21 16 _$$1FileOpen "{7}" 1 "" 17 22 0 274 010 17 23 0 1050 13 5 8 18 3 11 00000826 17 24 10 00000866 17 26 6 5 5 1 3 0 8 5 10 00000518 17 28 0 789 "" 6 0 15 17 29 9 DIALOG Getfiles -2134376448 5 97 34 129 102 "" "" "Multiple File Open" FONT 8 "Helv" 6 22 62 76 9001 1352728587 "listbox" "" 0 6 2 62 18 1000 1342177280 "static" "" 0 74 42 50 9 7999 1342177280 "static" "" 0 83 4 40 14 1 1342373889 "button" "OK" 0 83 20 40 14 2 1342373888 "button" "Cancel" 0 00006197