home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Corel / Ventura8 / Ventura / Scripts / FileList.CSC < prev    next >
Encoding:
Text File  |  1998-07-08  |  7.8 KB  |  218 lines
  1. REM Prints a list of all files in publication [CorelSCRIPT 8]
  2. REM FileList.csc  March, 1998
  3. REM ⌐ 1998 Corel Corporation. All rights reserved.
  4.  
  5. REM **************************************************************************************
  6. REM This script prints a list of all the files contained in the current publication. 
  7. REM The information is displayed in a new 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.  
  20. 'Constants for Dialog Return Values
  21. GLOBAL CONST DIALOG_RETURN_CANCEL% = 2
  22. GLOBAL CONST DIALOG_RETURN_NEXT% = 3
  23. GLOBAL CONST DIALOG_RETURN_BACK% = 4
  24. GLOBAL CONST DIALOG_RETURN_BROWSE% = 5
  25.  
  26. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////////////////
  27. DECLARE SUB RegQuery()
  28. DECLARE SUB ShowIntro()
  29. DECLARE SUB GetFiles(FileName$)
  30. DECLARE SUB PrintFiles(FileName$)
  31. DECLARE FUNCTION GetCurrentPub$()
  32.  
  33. '/////GLOBAL VARIABLES //////////////////////////////////////////////////////////
  34. GLOBAL VenturaRoot$            'root directory where Ventura is installed
  35.  
  36.  
  37. '///// MAIN ////////////////////////////////////////////////////
  38. RegQuery                                'get root directory where Ventura is installed
  39. ShowIntro                                'display introduction dialog
  40. TempFolder$ = GETTEMPFOLDER()                'get Windows temporary folder
  41. TempFile$ = TempFolder$ & "FileList.txt"    'temporary file containing file list information
  42. PubName$ = GetCurrentPub$()                'get name of active publication
  43. GetFiles(TempFile$)                        'get a list of all files in current pub and write to a temporary file
  44. PrintFiles(TempFile$)                    'import temporary file to a new VENTURA publication
  45. KILL TempFile$                            'remove temporary file
  46.  
  47.  
  48. ' *******************************************************************************
  49. ' RegQuery
  50. ' This subroutine queries the Registry to determine the root directory where 
  51. ' Ventura is installed.
  52. ' *******************************************************************************
  53. SUB RegQuery
  54. ON ERROR GOTO ErrorHandler
  55.  
  56.     'get Ventura config directory
  57.     VentDir$ = REGISTRYQUERY(HKEY_LOCAL_MACHINE,VENTURA_REGQUERY_CONST,"ConfigDir")     
  58.     
  59.     'isolate Ventura root directory from Ventura config directory
  60.     first% = 1
  61.     pos% = 1
  62.     DO WHILE first <> 0
  63.         first = INSTR(VentDir$, "\", first )
  64.         IF first <> 0 THEN
  65.             pos = first
  66.             first = first + 1
  67.         END IF
  68.     LOOP
  69.     VenturaRoot$ = LEFT(VentDir$, pos - 1)     'root directory where Ventura is installed
  70.  
  71. EXIT SUB
  72. ErrorHandler:
  73.     MESSAGE "Error reading registry:" & CHR(13) & RegString$
  74.     ErrNum = 800
  75. END SUB
  76.  
  77.  
  78. ' *******************************************************************************
  79. ' GetCurrentPub
  80. ' This function queries VENTURA for the name of the current publication. IF no 
  81. ' publication is open, the user is prompted to open one before continuing.
  82. ' 
  83. ' PARAMS: None
  84. '
  85. ' RETURNS: GetCurrentPub$ - the name of the current publication.
  86. ' *******************************************************************************
  87. FUNCTION GetCurrentPub$()
  88.     BEGINWAITCURSOR
  89.     WITHOBJECT OBJECT_VENTURA8
  90.     ENDWAITCURSOR
  91.         IF .CountWindows() = 0 THEN
  92.             PubMsg$ = "You need an open publication to run this script." & CHR(13) & "Open one now?"
  93.             MsgVal% = MESSAGEBOX(PubMsg$, "WARNING", MB_YES_NO OR MB_STOP_ICON)
  94.             IF MsgVal% = MSG_YES THEN         'Yes, open a pub
  95.                 SETCURRFOLDER VenturaRoot$
  96.                 PubName$ = GETFILEBOX("Publication files (*.VP*)|*.VP*", , , ,"*.vp*", VenturaRoot$ & "\Ventura\Samples" )
  97.                 IF PubName$ <> "" THEN
  98.                     .SetVisible TRUE
  99.                     .FileOpen PubName$, , TRUE, 1, TRUE, FALSE
  100.                 ELSE
  101.                     STOP
  102.                 ENDIF
  103.             ELSE
  104.                 STOP
  105.             ENDIF
  106.         ENDIF
  107.         GetCurrentPub$ = .PublicationName()
  108.     END WITHOBJECT
  109. END FUNCTION
  110.  
  111.  
  112. ' *********************************************************************************
  113. ' GetFiles
  114. ' This subroutine creates a list of all files (in all chapters) in the current 
  115. ' VENTURA publication and writes the information to a temporary text file 
  116. ' specified by FileName$.
  117. ' 
  118. ' PARAMS: FileName$ - name of temporary text file containing file list information.
  119. ' *********************************************************************************
  120. SUB GetFiles(FileName$)
  121.     OPEN FileName$ FOR OUTPUT AS 1
  122.     BEGINWAITCURSOR
  123.     WITHOBJECT OBJECT_VENTURA8
  124.         'FOR every chapter in publication
  125.         NumberOfChapters& = .ChapterCount()
  126.         FOR i% = 1 TO NumberOfChapters&
  127.             CurChapter$ = .ChapterGetAt(i%)
  128.             .ViewGoToPage , CurChapter$, GOTO_RELATIVE_TO_CHAPTER, GOTO_PAGE_FIRST, FALSE
  129.             PRINT #1, "@Minor Heading = " & CurChapter$
  130.             'get all text files in current chapter
  131.             NumberOfTextFiles& = .TextFileCount()        
  132.             FOR j% = 1 TO NumberOfTextFiles&
  133.                 CurFile$ = .TextFileGetAt(j%) 
  134.                 PRINT #1,
  135.                 PRINT #1, "@Bullet = " &  CurFile$
  136.             NEXT j%
  137.             'get all picture files in current chapter
  138.             NumberOfPictureFiles& = .PictureFileCount()    
  139.             FOR j% = 1 TO NumberOfPictureFiles&
  140.                 CurFile$ = .PictureFileGetAt(j%) 
  141.                 PRINT #1,
  142.                 PRINT #1, "@Bullet = " &   CurFile$
  143.             NEXT j%
  144.         PRINT #1,
  145.         NEXT i%
  146.     END WITHOBJECT
  147.     ENDWAITCURSOR
  148.     CLOSE(1)
  149. END SUB
  150.  
  151. ' *******************************************************************************
  152. ' PrintFiles
  153. ' This subroutine imports the text file containing the file list information into 
  154. ' a new VENTURA publication.
  155. ' 
  156. ' PARAMS: FileName$ - name of text file to be imported.
  157. ' *******************************************************************************
  158. SUB PrintFiles(FileName$)
  159.     BEGINWAITCURSOR
  160.     WITHOBJECT OBJECT_VENTURA8
  161.         .FileNew
  162.         .FrameFirst TRUE
  163.         .FileImportText FileName$
  164.     END WITHOBJECT
  165.     ENDWAITCURSOR
  166. END SUB
  167.  
  168.  
  169.  
  170. ' *******************************************************************************
  171. ' ShowIntro
  172. ' This subroutine displays the introduction dialog.
  173. ' 
  174. ' PARAMS: None
  175. ' *******************************************************************************
  176. SUB ShowIntro
  177. BEGIN DIALOG OBJECT IntroDialog 290, 180, "File List Wizard", SUB IntroDialogEventHandler
  178.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&List Files"
  179.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  180.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  181.     TEXT  95, 10, 189, 20, .Text2, "This Wizard will create a list of all files within each chapter in the current publication."
  182.     IMAGE  10, 10, 75, 130, .IntroImage
  183.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  184.     TEXT  95, 35, 185, 15, .Text5, "To create the file list, click List Files."
  185. END DIALOG
  186.  
  187.     IntroDialog.IntroImage.SetImage "#IntroBMP"
  188.     IntroDialog.IntroImage.SetStyle STYLE_IMAGE_CENTERED
  189.  
  190.     IntroRet%=DIALOG(IntroDialog)
  191.     IF IntroRet% = DIALOG_RETURN_CANCEL THEN STOP            
  192. END SUB
  193.  
  194.  
  195. ' *******************************************************************************
  196. ' IntroDialogEventHandler
  197. ' This subroutine responds to user interface with the introduction dialog.
  198. ' 
  199. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  200. '                            generating a dialog event.
  201. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  202. ' *******************************************************************************
  203. SUB IntroDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  204.     IF Event% = EVENT_INITIALIZATION THEN         
  205.         IntroDialog.BackButton.Enable FALSE 
  206.     ENDIF
  207.  
  208.     IF Event% = EVENT_MOUSE_CLICK THEN     
  209.         SELECT CASE ControlID%
  210.             CASE IntroDialog.NextButton.GetID()
  211.                     IntroDialog.CloseDialog DIALOG_RETURN_NEXT
  212.             CASE IntroDialog.CancelButton.GetID()
  213.                 IntroDialog.CloseDialog DIALOG_RETURN_CANCEL
  214.         END SELECT
  215.     ENDIF
  216. END SUB
  217.  
  218.