home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Corel / Ventura8 / Ventura / Scripts / LibraryList.csc < prev    next >
Encoding:
Text File  |  1998-07-08  |  14.2 KB  |  392 lines
  1. REM Lists all items in a VENTURA 8 library [CorelSCRIPT 8]
  2. REM LibraryList.csc  March, 1998
  3. REM ⌐ 1998 Corel Corporation. All rights reserved.
  4.  
  5. REM **************************************************************************************
  6. REM This script lists all the items in the specified Ventura Library
  7. REM The resulting list is displayed in a Ventura publication.
  8. REM **************************************************************************************
  9.  
  10. ' Create a temporary folder to provide a path for the include files
  11. '  -this enables the include files to be located 
  12. #addfol "..\..\Scripts"
  13. #include "ScpConst.csi"
  14. #include "VPConst.csi"
  15.  
  16. ' Embed bitmaps if script is to be compiled into exe or csb formats
  17. ' -this will eliminate the need to include these files
  18. #ADDRESBMP IntroBMP "Bitmaps\IntroBMP.bmp"
  19. #ADDRESBMP Step2BMP "Bitmaps\Step2BMP.bmp"
  20. #ADDRESBMP LastBMP "Bitmaps\LastBMP.bmp"
  21.  
  22. 'Constants for Dialog Return Values
  23. GLOBAL CONST DIALOG_RETURN_CANCEL% = 2
  24. GLOBAL CONST DIALOG_RETURN_NEXT% = 3
  25. GLOBAL CONST DIALOG_RETURN_BACK% = 4
  26. GLOBAL CONST DIALOG_RETURN_BROWSE% = 5
  27.  
  28. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////////////////
  29. DECLARE SUB RegQuery()
  30. DECLARE FUNCTION ShowIntro%()
  31. DECLARE FUNCTION GetLIBName%()
  32. DECLARE FUNCTION ShowFinish%()
  33. DECLARE SUB GetLibInfo() 
  34. DECLARE FUNCTION DoesFileExist(FileName$) AS BOOLEAN
  35.  
  36. '/////GLOBAL VARIABLES //////////////////////////////////////////////////////////
  37. GLOBAL VenturaRoot$        'root directory where Ventura is installed
  38. GLOBAL LibraryDir$        'directory where library files are located
  39. GLOBAL LIBName$         'name and path of library which items are to be listed
  40.  
  41. '////// LOCAL VARIABLES /////////////////////////////////////////////////////////
  42. CONST MAXSTEP% = 3        'maximum number of pages in the Wizard
  43. DIM DialogReturn%        'identifies user's selection for next step in Wizard                                        
  44. DIM NextStep%            'specifies which page appears next in the Wizard
  45.  
  46.  
  47. ' **************************************************************************************
  48. ' MAIN
  49. ' **************************************************************************************
  50. ON ERROR GOTO ErrorHandler
  51.  
  52. RegQuery                                        'get root directory where Ventura is installed
  53. LibraryDir$ = VenturaRoot$ & "\Ventura\Library"        'initialize default library directory
  54. LIBName$= VenturaRoot$ & "\Ventura\Library"            'initialize default library name
  55.  
  56. 'this section controls traversal through the dialog pages
  57. NextStep% = 1
  58. DO
  59.     SELECT CASE NextStep%
  60.         CASE 1: DialogReturn%  = ShowIntro()        'show Intro dialog
  61.         CASE 2: DialogReturn%  = GetLIBName()        'get name of library to be listed
  62.         CASE 3: DialogReturn%  = ShowFinish()        'show finish dialog
  63.     END SELECT
  64.     NextStep% = NextStep% + DialogReturn% 
  65. LOOP UNTIL NextStep% = MAXSTEP + 1
  66.  
  67. ExitScript:
  68. STOP
  69.  
  70. ErrorHandler:
  71. SELECT CASE ErrNum
  72.     CASE 800
  73.         MESSAGE "FATAL ERROR" & CHR(13) & "Script will now exit."
  74.         RESUME AT ExitScript
  75.     CASE ELSE
  76.         MESSAGE "ERROR: " & STR(ErrNum) & CHR(13) & "Script will now exit."
  77.         RESUME AT ExitScript
  78.     END SELECT
  79.  
  80.  
  81. ' *******************************************************************************
  82. ' RegQuery
  83. ' This subroutine queries the Registry to determine the root directory where 
  84. ' Ventura is installed.
  85. ' *******************************************************************************
  86. SUB RegQuery
  87. ON ERROR GOTO ErrorHandler
  88.  
  89.     'get Ventura config directory
  90.     VentDir$ = REGISTRYQUERY(HKEY_LOCAL_MACHINE,VENTURA_REGQUERY_CONST,"ConfigDir")     
  91.     
  92.     'isolate Ventura root directory from Ventura config directory
  93.     first% = 1
  94.     pos% = 1
  95.     DO WHILE first <> 0
  96.         first = INSTR(VentDir$, "\", first )
  97.         IF first <> 0 THEN
  98.             pos = first
  99.             first = first + 1
  100.         END IF
  101.     LOOP
  102.     VenturaRoot$ = LEFT(VentDir$, pos - 1)     'root directory where Ventura is installed
  103.  
  104. EXIT SUB
  105. ErrorHandler:
  106.     MESSAGE "Error reading registry:" & CHR(13) & RegString$
  107.     ErrNum = 800
  108. END SUB
  109.  
  110.  
  111. ' **************************************************************************************
  112. ' DoesFileExist
  113. ' This function determines whether the specified file exists.
  114. '
  115. ' PARAMS:FileName AS STRING - The name and path of the file in question.
  116. ' RETURNS: DoesFileExist AS BOOLEAN - TRUE if the file exists.
  117. '                                   - FALSE if the file does not exist.
  118. ' **************************************************************************************
  119. FUNCTION DoesFileExist(FileName$) AS BOOLEAN
  120. ON ERROR GOTO ErrorHandler
  121.     FileStatus$ = FINDFIRSTFOLDER(FileName$, FILEATTR_READ_ONLY OR FILEATTR_HIDDEN OR FILEATTR_SYSTEM OR FILEATTR_ARCHIVE OR FILEATTR_NORMAL_FILE OR FILEATTR_TEMPORARY)
  122.     IF FileStatus$ = "" THEN
  123.         DoesFileExist = FALSE
  124.     ELSE
  125.         DoesFileExist = TRUE
  126.     ENDIF
  127.  
  128. FunctionEnd:
  129. EXIT FUNCTION
  130.  
  131. ErrorHandler:
  132.     SELECT CASE ErrNum
  133.         CASE ELSE
  134.             DoesFileExist = FALSE
  135.     END SELECT
  136.     RESUME AT FunctionEnd
  137. END FUNCTION
  138.  
  139.  
  140. ' *******************************************************************************
  141. ' ShowIntro
  142. ' This function displays the introduction dialog.
  143. ' 
  144. ' PARAMS: None
  145. '
  146. ' RETURNS: ShowIntro AS INTEGER - Integer indicating dialog return value.
  147. ' *******************************************************************************
  148. FUNCTION ShowIntro%
  149. BEGIN DIALOG OBJECT IntroDialog 290, 180, "Corel VENTURA Library Wizard", SUB IntroDialogEventHandler
  150.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  151.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  152.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  153.     TEXT  95, 10, 185, 20, .Text2, "This wizard lists all items in the specified Corel VENTURA library."
  154.     IMAGE  10, 10, 75, 130, .IntroImage
  155.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  156.     TEXT  95, 40, 185, 20, .Text5, "To begin listing the library items, click Next."
  157. END DIALOG
  158.  
  159.     IntroDialog.IntroImage.SetImage "#IntroBMP"
  160.     IntroDialog.IntroImage.SetStyle STYLE_IMAGE_CENTERED
  161.     IntroRet%=DIALOG(IntroDialog)
  162.     IF IntroRet% = DIALOG_RETURN_CANCEL THEN STOP            
  163.     IF IntroRet% = 3 THEN ShowIntro = 1        
  164. END FUNCTION
  165.  
  166.  
  167. ' *******************************************************************************
  168. ' IntroDialogEventHandler
  169. ' This subroutine responds to user interface with the introduction dialog.
  170. ' 
  171. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  172. '                            generating a dialog event.
  173. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  174. ' *******************************************************************************
  175. SUB IntroDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  176.     IF Event% = EVENT_INITIALIZATION THEN         
  177.         IntroDialog.BackButton.Enable FALSE 
  178.     ENDIF
  179.     IF Event% = EVENT_MOUSE_CLICK THEN     
  180.         SELECT CASE ControlID%
  181.             CASE IntroDialog.NextButton.GetID()
  182.                 IntroDialog.CloseDialog DIALOG_RETURN_NEXT
  183.             CASE IntroDialog.CancelButton.GetID()
  184.                 IntroDialog.CloseDialog DIALOG_RETURN_CANCEL
  185.         END SELECT
  186.     ENDIF
  187. END FUNCTION
  188.  
  189.  
  190. ' *******************************************************************************
  191. ' GetLIBName
  192. ' This function prompts the user for the name of the library.
  193. '
  194. ' RETURNS: GetLIBName AS INTEGER - Integer indicating dialog return value.
  195. ' *******************************************************************************
  196. FUNCTION GetLIBName%
  197. BEGIN DIALOG OBJECT GetLIBNameDialog 290, 180, "Corel VENTURA Library Wizard", SUB GetLIBNameDialogEventHandler
  198.     TEXTBOX  95, 29, 185, 13, .LibNameTextBox
  199.     PUSHBUTTON  234, 49, 46, 14, .BrowseButton, "&Browse..."
  200.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  201.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  202.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  203.     TEXT  95, 15, 175, 12, .Text2, "Which library would you like to use?"
  204.     IMAGE  10, 10, 75, 130, .GetLIBNameImage
  205.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  206. END DIALOG
  207.  
  208.     GetLIBNameDialog.SetStyle STYLE_INVISIBLE
  209.     GetLIBNameDialog.GetLIBNameImage.SetImage "#Step2BMP"
  210.     GetLIBNameDialog.GetLIBNameImage.SetStyle STYLE_IMAGE_CENTERED
  211.  
  212.     GetLIBNameRet% = Dialog(GetLIBNameDialog)
  213.     SELECT CASE GetLIBNameRet%
  214.         CASE DIALOG_RETURN_CANCEL    
  215.             STOP
  216.         CASE DIALOG_RETURN_NEXT    
  217.             GetLIBName = 1
  218.         CASE DIALOG_RETURN_BACK         
  219.             GetLIBName = -1
  220.     END SELECT
  221. END FUNCTION
  222.  
  223. ' *******************************************************************************
  224. ' GetLIBNameDialogEventHandler
  225. ' This subroutine responds to user interface with the library name dialog.
  226. ' 
  227. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  228. '                            generating a dialog event.
  229. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  230. ' *******************************************************************************
  231. SUB GetLIBNameDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  232. ON ERROR RESUME NEXT
  233.     IF Event% = EVENT_INITIALIZATION THEN         
  234.         GetLIBNameDialog.LibNameTextBox.SetText LIBName$
  235.         pos% = INSTR(LIBName$, ".")
  236.         IF pos% = 0 THEN 
  237.             GetLIBNameDialog.NextButton.Enable FALSE
  238.         ELSE
  239.             GetLIBNameDialog.NextButton.Enable TRUE
  240.         ENDIF    
  241.         GetLIBNameDialog.SetStyle STYLE_VISIBLE
  242.     ENDIF
  243.  
  244.     IF Event% = EVENT_CHANGE_IN_CONTENT THEN         
  245.         SELECT CASE ControlID%
  246.             CASE GetLIBNameDialog.LibNameTextBox.GetID()        
  247.                 LIBName$ = GetLIBNameDialog.LibNameTextBox.gettext()        
  248.                 pos% = INSTR(LIBName$, ".")
  249.                 IF pos% = 0 THEN 
  250.                     GetLIBNameDialog.NextButton.Enable FALSE
  251.                 ELSE
  252.                     GetLIBNameDialog.NextButton.Enable TRUE
  253.                 ENDIF    
  254.         END SELECT
  255.     ENDIF
  256.  
  257.     IF Event% = EVENT_MOUSE_CLICK THEN         
  258.         SELECT CASE ControlID%
  259.             CASE GetLIBNameDialog.NextButton.GetID()        
  260.                 IF DoesFileExist(LIBName$) = TRUE THEN     'library exists, continue
  261.                     GetLIBNameDialog.closedialog DIALOG_RETURN_NEXT
  262.                 ELSE
  263.                     MESSAGE "Cannot locate library:" & CHR(13) & LIBName$ 
  264.                 ENDIF        
  265.             CASE GetLIBNameDialog.BackButton.GetID()        
  266.                 GetLIBNameDialog.closedialog DIALOG_RETURN_BACK
  267.             CASE GetLIBNameDialog.CancelButton.GetID()        
  268.                 GetLIBNameDialog.closedialog DIALOG_RETURN_CANCEL    
  269.             CASE GetLIBNameDialog.BrowseButton.GetID()        
  270.                 SETCURRFOLDER LibraryDir$
  271.                 LIBName$ = GETFILEBOX("Ventura Library (*.vlb)|*.vlb", "Open Library")
  272.                 IF LIBName$ <> "" THEN
  273.                     GetLIBNameDialog.LibNameTextBox.SetText LIBName$
  274.                     GetLIBNameDialog.NextButton.Enable TRUE
  275.                 ELSE
  276.                     GetLIBNameDialog.LibNameTextBox.SetText LibraryDir$
  277.                     GetLIBNameDialog.NextButton.Enable FALSE
  278.                 ENDIF
  279.         END SELECT
  280.     ENDIF
  281. END SUB
  282.  
  283. ' *******************************************************************************
  284. ' ShowFinish
  285. ' This function displays the finish dialog, showing the name of the library to be
  286. ' used.
  287. ' 
  288. ' PARAMS: None
  289. '
  290. ' RETURNS: ShowIntro AS INTEGER - Integer indicating dialog return value.
  291. ' *******************************************************************************
  292. FUNCTION ShowFinish%
  293. BEGIN DIALOG OBJECT ShowFinishDialog 290, 180, "Corel VENTURA Library Wizard", SUB ShowFinishDialogEventHandler
  294.     PUSHBUTTON  181, 160, 46, 14, .FinishButton, "&Finish"
  295.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  296.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  297.     IMAGE  10, 10, 75, 130, .ShowFinishImage
  298.     TEXT  95, 10, 185, 12, .Text1, "The Wizard is now ready to list the items in library:"
  299.     TEXT  95, 23, 185, 12, .Text2, LIBName$
  300.     TEXT  95, 45, 185, 20, .Text3, "Select Finish, then sit back and watch Ventura do your work for you."
  301.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  302. END DIALOG
  303.  
  304.     ShowFinishDialog.SetStyle STYLE_INVISIBLE
  305.     ShowFinishDialog.ShowFinishImage.SetImage "#LastBMP"
  306.     ShowFinishDialog.ShowFinishImage.SetStyle STYLE_IMAGE_CENTERED
  307.  
  308.     ShowFinishRet% = Dialog(ShowFinishDialog)
  309.     SELECT CASE ShowFinishRet%
  310.         CASE DIALOG_RETURN_CANCEL     
  311.             STOP
  312.         CASE DIALOG_RETURN_NEXT      
  313.             ShowFinishDialog.SetVisible FALSE
  314.             GetLibInfo
  315.             ShowFinish = 1
  316.         CASE DIALOG_RETURN_BACK 
  317.             ShowFinish = -1
  318.     END SELECT
  319. END FUNCTION
  320.  
  321.  
  322. ' *******************************************************************************
  323. ' ShowFinishDialogEventHandler
  324. ' This subroutine responds to user interface with the finish dialog.
  325. ' 
  326. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  327. '                            generating a dialog event.
  328. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  329. ' *******************************************************************************
  330. SUB ShowFinishDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  331.     IF Event% = EVENT_INITIALIZATION THEN         
  332.         ShowFinishDialog.SetStyle STYLE_VISIBLE
  333.     ENDIF
  334.  
  335.     IF Event% = EVENT_MOUSE_CLICK THEN     
  336.         SELECT CASE ControlID%
  337.             CASE ShowFinishDialog.FinishButton.GetID()
  338.                 ShowFinishDialog.CloseDialog DIALOG_RETURN_NEXT
  339.             CASE ShowFinishDialog.BackButton.GetID()
  340.                 ShowFinishDialog.CloseDialog DIALOG_RETURN_BACK
  341.             CASE ShowFinishDialog.CancelButton.GetID()
  342.                 ShowFinishDialog.CloseDialog DIALOG_RETURN_CANCEL
  343.         END SELECT
  344.     ENDIF
  345. END SUB
  346.  
  347.  
  348. ' *******************************************************************************
  349. ' GetLibInfo
  350. ' This subroutine opens the specified VENTURA library, obtains a list of all 
  351. ' items contained within the library, and outputs this information to a temporary
  352. ' text file. The text file is then imported in to VENTURA, and subsequently
  353. ' removed from the Windows temp folder. The library name and total number of 
  354. ' items are displayed at the start of the pub.
  355. '
  356. ' PARAMS: None
  357. ' *******************************************************************************
  358. SUB GetLibInfo
  359.     TempLibFile$ = GETTEMPFOLDER() & "TempLib.txt"
  360.     OPEN TempLibFile$ FOR APPEND AS 1
  361.  
  362.     BEGINWAITCURSOR
  363.     WITHOBJECT OBJECT_VENTURA8
  364.         .FileLibraryOpen LIBName$ 
  365.         .FileLibraryView FALSE, TRUE        'small icons, show details
  366.         ItemsInLIB& = .FileLibraryItemCount()
  367.         
  368.         PRINT #1, "@Minor Heading = " & LibName$ & CHR(13) & CHR(10)
  369.         PRINT #1, "@Subheading = " & "Number of items: " & STR(ItemsInLIB&) & CHR(13) & CHR(10) 
  370.         
  371.         FOR i% = 1 TO ItemsInLIB&
  372.             .FileLibrarySelectItem i%
  373.             .FileLibraryItemPropertiesGet ItemName$
  374.             PRINT #1, "@Bullet = " &  STR(i%) & SPACE(2) & ItemName$ & CHR(13) & CHR(10)
  375.         NEXT i%
  376.         .FileLibraryClose TRUE        'close ALL open libs
  377.         CLOSE                    'close temporary text file
  378.  
  379.         'import temporary text file containing library information
  380.         .SetVisible TRUE
  381.         .FileNew 
  382.         .FrameFirst TRUE
  383.         .FileImportText TempLibFile$
  384.     END WITHOBJECT
  385.     KILL TempLibFile$
  386.     ENDWAITCURSOR
  387. END SUB
  388.  
  389.  
  390.  
  391.  
  392.