home *** CD-ROM | disk | FTP | other *** search
REM Description: Manage 'List Files of Type' entries REM Filename: lstfiles.wmc REM Created by: Steve Wylie - 11/08/93 DECLARE FUNCTION GetWindowsDirectory LIB "kernel" (lpSysPath AS STRING, nSize As WORD) As WORD CONST Section$ = "FileNames" CONST IniFile$ = "wsw.ini" CONST MaxEntries% = 64 DIM entries$(MaxEntries%) REM Because we need to get all of the INI file entries in the [FileNames] section, REM we have to read the WSW.INI file directly, instead of using the GetPrivateProfileString REM statement. So we have to get the path to the ini file in order to read it. size% = w2i(GetWindowsDirectory(winPath$, i2w(150))) if (right$(winPath$, 1) <> "\") THEN winPath$ = winPath$ + "\" fileName$ = winpath$+IniFile$ sectionName$ = "[" + Section$ + "]" REM Now read the file until we get to the right section. OPEN fileName$ FOR INPUT AS #1 DO LINE INPUT #1, line$ LOOP UNTIL EOF(#1) OR INSTR(line$, sectionName$) > 0 IF NOT EOF(#1) THEN entry% = 1 DO LINE INPUT #1, tempStr$ tempStr$ = ltrim$(rtrim$(tempStr$)) IF (tempStr$ <> "") AND (INSTR(tempStr$, "[") = 0) AND (left$(tempStr$,1) <> ";") AND (right$(tempStr$,1) <> "=") THEN entries$(entry%) = tempStr$ entry% = entry% + 1 ENDIF LOOP UNTIL (INSTR(tempStr$, "[") > 0) OR (EOF(#1)) OR (entry% = MaxEntries%) ENDIF REM We're done with the file, so we can close it. CLOSE #1 index% = 1 BEGIN DIALOG Dialog1 194, 126, "Manage List Files of Type Entries" TEXT 4, 4, 140, 16, "Choose an &Entry from the list and then choose an action:" LISTBOX 4, 22, 140, 100, entries$, index% PUSHBUTTON 150, 4, 40, 14, "&Close", 2 PUSHBUTTON 150, 20, 40, 14, "&Add New", 3 PUSHBUTTON 150, 36, 40, 14, "&Modify", 4 PUSHBUTTON 150, 52, 40, 14, "&Delete", 5 END DIALOG start: IF entry% > 1 THEN ret% = Dialog(Dialog1) IF ret% = 2 THEN STOP IF ret% = 1 THEN ret% = 4 'On double-click, choose Modify ELSE ' If there are no entries, then we have to add a new one. ret% = 3 ENDIF ' Define the title for the second dialog title$ = "Add List Files of Type Entry" IF ret% = 4 THEN title$ = "Modify List Files of Type Entry" BEGIN DIALOG Dialog2 204, 108, title$ TEXT 4, 4, 150, 8, "&Entry:" TEXTBOX 4, 14, 150, 12, entryText$ TEXT 4, 28, 150, 8, "Example: Documents" TEXT 4, 42, 150, 8, "&File Specification:" TEXTBOX 4, 52, 150, 12, fileSpec$ TEXT 4, 66, 150, 8, "Example: *.doc" TEXT 4, 80, 150, 24, "You can specify more than one file specification, separated by semicolons. Example: *.doc;*.txt" OKBUTTON 160, 4, 40, 14 CANCELBUTTON 160, 20, 40, 14 END DIALOG SELECT CASE ret% CASE 3 REM Add new entry ret2% = Dialog(Dialog2) ' If user presses Cancel and no entries are in the ini file, then just stop. IF ret2% = 2 AND entry% = 1 THEN STOP IF ret2% = 1 AND entryText$ <> "" THEN REM Create the new entry in the ini file WritePrivateProfileString Section$, entryText$, fileSpec$, IniFile$ REM And add it to the listbox entries$(entry%) = entryText$ + "=" + fileSpec$ index% = entry% entry% = entry% + 1 ENDIF entryText$ = "" fileSpec$ = "" CASE 4 REM Modify selected entry tempStr$ = entries$(index%) equal% = INSTR(tempStr$, "=") entryText$ = left$(tempStr$, equal%-1) oldEntry$ = entryText$ fileSpec$ = mid$(tempstr$, equal%+1, len(tempStr$)) ret2% = Dialog(Dialog2) if ret2% = 1 AND entryText$ <> "" THEN REM Remove the old entry, in case the entry name was changed. WritePrivateProfileString Section$, oldEntry$, chr$(0), IniFile$ WritePrivateProfileString Section$, entryText$, fileSpec$, IniFile$ entries$(index%) = entryText$ + "=" + fileSpec$ ENDIF entryText$ = "" fileSpec$ = "" CASE 5 REM Delete selected entry title$ = "Delete Entry" tempStr$ = entries$(index%) equal% = INSTR(tempStr$, "=") entryText$ = left$(tempStr$, equal%-1) fileSpec$ = mid$(tempstr$, equal%+1, len(tempStr$)) ret% = MessageBox(entryText$ + chr$(13) + chr$(13) + "Are you sure you want to delete this entry?", "Delete Entry?", 33) IF ret% = 1 THEN REM Remove the deleted entry IF entryText$ <> "" THEN WritePrivateProfileString Section$, entryText$, chr$(0), IniFile$ ENDIF REM Remove the deleted entry from the listbox also, and shuffle the other entries up. FOR i% = index% to (MaxEntries% - 1) entries$(index%) = entries$(index%+1) NEXT i% entries$(MaxEntries%) = "" REM Decrease the number of entries entry% = entry% - 1 ENDIF END SELECT GoTo start ***** WARNING ***** This is a WSWin macro file. Subsequent data is binary information and should not be modified. # MF # 1.0 None 762570472 d ö D2 T9 8 ë è 8 ï î 1Å @ 8 ò ö ô ò û ù à Æ û ÿ æ ÿ É Ö 8 $ ¥ Ç ¢ Æ ¥ ₧ ƒ á ₧ £ â á í â 8 $ "ó Æ £ Æ ó 8 "ñ Æ ï ú ñ 8 "¿ ª ë "⌐ ¿ º Ñ ⌐ 8 # ú Ç 8 % Ç ¼ 8 $ Ç ¡ .« Ç ¼ Ñ » « â ¡ » ¬ â 8 $ Ç ▒ â ▒ ▓ â 8 │ Ç 8 % Ç ╢ 8 ! ╕ ╢ ╣ ║ ╖ ╣ ╗ ╝ ╢ ╗ 8! ! | ┬ ╢ ╛ ├ ┬ .─ Ç ╢ ª ┼ ─ ╞ ┼ ╟ ├ ╞ ╚ Ç ┐ ╢ ╚ ╔ ╩ ╦ ╔ └ ╠ ╦ ═ ╟ ╠ ╬ Ç ¢ ╢ ╬ ╧ ╨ ╤ ╧ ┴ ╥ ╤ â ═ ╥ ╙ â 8! | # 2│ @ 0╘ Å ╘ ╢ 8# $ │ │ Ç 8$ & .╒ Ç ╢ ª ╓ ╒ ╫ ╓ $ Ç ╪ ┘ ╪ ┌ ╫ ┘ █ │ ì ▄ █ â ┌ ▄ ┤ â 8& * &Ç 8* , ▌ Ç 3▐ ▀ α ß 4 Γ Γ π Σ σ 4 Γ µ π τ Å ▌ 4 ö Γ Φ Θ Ω δ 4 ö ∞ Φ Θ φ ε 4 ö ∩ Φ Θ ≡ Γ 4 ö ± Φ Θ ≥ ≤ 8, 5 5 85 8 â │ Ç ÷ â 88 : 6≈ ▐ 8: : â ≈ δ ∙ â 8: ; 8; ; â ≈ Ç √ â 8; < ≈ Γ ⌡ 8< ? ≈ ε 8? C ⁿ ² 8C C â ≈ Γ â 8C D ⁿ 3ⁿ 4 Γ Γ ö 4 Γ Θ ö 4 Γ ö 4 Γ ö 4 Γ ± ö 4 Γ ö 4 Γ ö 4 Γ Φ Θ 4 ∞ Φ Θ 8D P 5 8P R ≈ 8R T â ε â 8T V 6 8V W & δ │ Ç â â 8W & X 8X X , Ç ╛ â â 8X , [ ë ï !" 8[ ] 2│ @ 0#Å "$┴ "%$ #% 8] ^ ▌ │ 8^ _ │ │ Ç 8_ a ╛ 8a b ╛ 8b d â Γ &â ' 8d f 2▌ @ 0(Å ╢ ( 8f g .)Ç ╢ ┴ 8g h *)Ç ┐ ╢ *+, + 8h i - 8i j 0)Ç .╢ 12 -/╢ 01 / 8j k 6 8k k , 4Ç 5╛ â 456â 8k , n 8 789: ë -9ï ;< 8n o ë ï => 8o p 2▌ @ 0?Å "@┴ "A@ ?A 8p r ╛ 8r s ╛ 8s u â ≤ Bâ C 8u w ⁿ D 8w x 2▌ @ 0EÅ ╢ E 8x y .)Ç ╢ ┴ 8y z F)Ç ┐ ╢ FGH G 8z { J)Ç .╢ KL -I╢ JK I 8{ | RN 7RST"USVN 7VWX"YUW"ZYO[P\QMZ[\≈ ] 8| | â ≈ Ç _â 8| ~ ! â ╛ aâ 8~ ! Ç b 7bcd ë cï ef 8Ç ä kì Ç hkg▌ iggÇ â ghmâ 8ä à 2▌ @ 0nÅ p▌ Ç 2p @ 0oÅ no 8à å l 8å ç 2ì @ 0qÅ q╛ 8ç ë │ │ Ç 8ë Ä ⌠ t~ | ssssssssssssssssssss.G .G .G .G -.G 5.G ;.G A.G N.G ^.G l.G z.G ê.G û.G ñ.G ▓.G ╢.G ╣.G ╜.G └.G ┬.G ─.G ╞.G ╔.G ╠.G ╧.G ╥.G ╘.G ╓.G ┌.G ▄.G ▐.G α.G Γ.G ! Σ.G " Θ.G # ∞.G $ ≡.G % ⌡.G & ⁿ.G ' /G ( /G ) /G * /G + /G , "/G - (/G . -/G / 3/G 0 6/G 1 ;/G 2 @/G 3 B/G 4 E/G 5 J/G 6 N/G 7 T/G 8 Y/G 9 `/G : g/G ; l/G < o/G = w/G > y/G ? {/G @ /G A ê/G B î/G C Å/G D ù/G E ₧/G F ú/G G ¡/G H ┤/G I ╣/G J ╜/G K ┬/G L ╟/G M ═/G N ╤/G O ╒/G P ▄/G Q π/G R Ω/G S ≡/G T ≈/G U 0G V 0G W 0G X $0G Y 10G Z :0G [ G0G \ P0G ] X0G ^ `0G _ h0G ` q0G a v0G b {0G c Ç0G d ç0G e Ä0G f ö0G g ¢0G h ¥0G i ó0G j ¿0G k «0G l ╡0G m ╛0G n ╟0G o ╦0G p ╙0G q ╫0G r ▄0G s Γ0G t Φ0G u ε0G v ⌠0G w ∙0G x ■0G y 1G z 1G { 1G | 1G } W_ W_ + W_ + W_ W_ W_ W_ W_ àB å 4 W_ = W_ G W_ M W_ V W_ + b W_ k W_ + u W_ +P @ ü W_ + @ ä W_ @ ì W_ ô W_ ç ù W_ á W_ à ñ W_ + û ¿ W_ ¡ W_ ▓ W_ ╖ W_ ╝ W_ ┴ W_ ó ╞ W_ ë ═ W_ + ╤ W_ ╓ W_ █ W_ α W_ µ W_ ó δ W_ ± W_ √ W_ W_ W_ + W_ + W_ W_ "W_ ∞ 'W_ 0 ,W_ 2W_ 8W_ >W_ DW_ ª IW_ OW_ ª TW_ [W_ ^ `W_ ª eW_ nW_ ë uW_ ë |W_ éW_ êW_ ÄW_ öW_ R ÖW_ + £W_ ë * óW_ + ªW_ + ¬W_ ░W_ ╢W_ ╝W_ ┬W_ ╚W_ ╬W_ ╘W_ ┌W_ αW_ µW_ ∞W_ ≥W_ °W_ ■W_ W_ W_ W_ R W_ Å W_ "W_ (W_ .W_ 4W_ :W_ @W_ FW_ LW_ SW_ [W_ + ┬ _W_ + ~ cW_ + çW_ + ëW_ + î ìW_ + ÉW_ + ╠W_ + ╧W_ + d ╙W_ + ( ╓W_ + ┘W_ + ΓW_ + ΣW_ + τW_ + ≥W_ + ⌠W_ + $ ≈W_ + W_ + 4 W_ + W_ + W_ 8 6 W_ └ W_ ░ "W_ 'W_ ä -W_ ä 3W_ ¼ 9W_ ¼ ?W_ FW_ + eW_ ° kW_ ° qW_ + ôW_ ¢W_ + ╠ ƒW_ + l úW_ + ÑW_ + »W_ + ▓W_ ╜W_ + └W_ + ╓W_ + * ┘W_ + ≡W_ ·W_ + B ²W_ + W_ + P W_ + W_ + yW_ + á }W_ âW_ 8 ëW_ ┤ ÅW_ ╕ òW_ ¢W_ ° íW_ ºW_ ¡W_ ° │W_ è ╣W_ ┐W_ ┼W_ è ╦W_ ç 9 σW_ δW_ ±W_ Å ≈W_ ²W_ W_ ╩ W_ 4 W_ Å W_ W_ "W_ (W_ .W_ 8W_ ç - <W_ BW_ HW_ NW_ TW_ ZW_ `W_ fW_ lW_ ë 7 qW_ wW_ }W_ âW_ ëW_ ÅW_ òW_ ¢W_ Å íW_ ºW_ ¡W_ F │W_ 8 ╣W_ + ╚W_ Å ╬W_ ╘W_ ┌W_ αW_ µW_ ∞W_ ≥W_ °W_ ç 3 W_ + W_ + 4W_ + DW_ + ! GW_ MW_ SW_ YW_ _W_ eW_ kW_ qW_ wW_ }W_ âW_ ëW_ ÅW_ 8 òW_ 8 ¢W_ Ä íW_ Ä ºW_ ¡W_ ┤W_ ╗W_ ┬W_ ╔W_ ╠W_ ╤W_ ╕ ╫W_ ╞ ▌W_ ΣW_ ░ ΩW_ ≡W_ Å ≈W_ Å ■W_ W_ Å W_ W_ ???? 0 1 CANCEL ERRORNUM [T1] GETWINDOWSDIRECTORY "kernel" LPSYSPATH NSIZE SECTION$ "FileNames" INIFILE$ "wsw.ini" MAXENTRIES% 64 ENTRIES$ SIZE% W2I WINPATH$ I2W 150 [T2] [T3] [T4] [T5] [T6] [L1] RIGHT$ "\" [T7] [T8] [T9] [T10] [L2] [T11] FILENAME$ [T12] SECTIONNAME$ "[" "]" [T13] [T14] [L3] [L4] LINE$ [T15] [T16] [T17] [L5] [T18] [L6] ENTRY% [L7] [L8] TEMPSTR$ LTRIM$ RTRIM$ [T19] [T20] [T21] [T22] [L9] "" LEFT$ ";" "=" [T23] [T24] [T25] [T26] [T27] [T28] [T29] [T30] [T31] [T32] [T33] [T34] [T35] [T36] [T37] [T38] [T39] [L10] [T40] [T41] [T42] [T43] [T44] [T45] [T46] [T47] [T48] INDEX% DIALOG1 194 126 "Manage List Files of Type Entries" 4 140 16 "Choose an &Entry from the list and then choose an action:" 22 100 40 14 "&Close" 2 20 "&Add New" 3 36 "&Modify" 52 "&Delete" 5 START [L11] [L12] RET% [L13] [L14] [L15] [L16] TITLE$ "Add List Files of Type Entry" [L17] [L18] "Modify List Files of Type Entry" DIALOG2 204 108 8 "&Entry:" 12 ENTRYTEXT$ 28 "Example: Documents" 42 "&File Specification:" FILESPEC$ 66 "Example: *.doc" 80 24 "You can specify more than one file specification, separated by semicolons. Example: *.doc;*.txt" 160 [T49] [L19] [L20] [L21] RET2% [L22] [T50] [T51] [L23] [L24] [T52] [T53] [L25] WRITEPRIVATEPROFILESTRING [T54] [T55] [T56] [T57] [T58] [L26] [L27] [T59] EQUAL% [T60] [T61] [T62] OLDENTRY$ LEN [T63] [T64] [T65] [T66] [L28] [T67] [T68] [L29] CHR$ [T69] [T70] [T71] [T72] [T73] [T74] [T75] [T76] [T77] [T78] [L30] [L31] "Delete Entry" [T79] [T80] [T81] [T82] [T83] [T84] [T85] [T86] MESSAGEBOX 13 "Are you sure you want to delete this entry?" "Delete Entry?" 33 [T87] [T88] [T89] [T90] [T91] [T92] [T93] [T94] [T95] [T96] [T97] [T98] [L32] [L33] [L34] [L35] [T99] [T100] [T101] [T102] [T103] I% [F1] [L36] [L37] [T104] [L38] [L39] [T105] [T106] [T107] [T108] 
