home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1998 October / dpcb1098.iso / Business / Ventura / Ventura / Scripts / EnableExportOnSave.csc < prev    next >
Text File  |  1998-07-07  |  25KB  |  568 lines
  1. REM Sets Export On Save for all text files in current pub[CorelSCRIPT 8]
  2. REM EnableExportOnSave.csc  March, 1998
  3. REM ⌐ 1998 Corel Corporation. All rights reserved.
  4.  
  5. REM **************************************************************************************
  6. REM This script identifies all text files in the current publication. A list of all files 
  7. REM is then presented to the user to select those files to be set to export on save. The 
  8. REM specified files are set to export on save, names changed as required, and the 
  9. REM publication is saved to implement the new settings.
  10. REM **************************************************************************************
  11.  
  12. ' Create a temporary folder to provide a path for the include files
  13. '  -this enables the include files to be located 
  14. #addfol "..\..\Scripts"
  15. #include "ScpConst.csi"
  16. #include "VPConst.csi"
  17.  
  18. ' Embed bitmaps if script is to be compiled into exe or csb formats
  19. ' -this will eliminate the need to include these files
  20. #ADDRESBMP IntroBMP "Bitmaps\IntroBMP.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. 'Constants for file specifications
  29. GLOBAL CONST MAX_FILES% = 100                'number of text files in publication
  30. GLOBAL CONST EXPORT_FORMAT_TYPES% = 4        'number of export format types
  31.  
  32. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////////////////////////
  33. DECLARE SUB RegQuery()
  34. DECLARE SUB CreateFolder(Folder$)
  35. DECLARE SUB SetToExport()
  36. DECLARE FUNCTION ShowIntro%()
  37. DECLARE FUNCTION ShowFileList%()
  38. DECLARE FUNCTION GetCurrentPub$()
  39. DECLARE FUNCTION GetPublicationDir$(CurrentPublication$)
  40.  
  41. '/////GLOBAL VARIABLES ///////////////////////////////////////////////////////////////////
  42. GLOBAL VenturaRoot$                        'Root directory of Ventura from registry
  43. GLOBAL SelectedFiles$(MAX_FILES)            'array of selected files to set to Export on Save
  44. GLOBAL SelectedChapters$(MAX_FILES)        'array of selected chapters corresponding to selected files
  45. GLOBAL SelectedFilesCount%                'number of files selected to set to Export on Save
  46. GLOBAL CurrentDir$                        'name of the current directory
  47.  
  48. GLOBAL ExportFilters%(EXPORT_FORMAT_TYPES)    'array of export filter types (integers corresponding to the format type)
  49. ExportFilters%(1) = FILTER_VEN_ANSI        'ANSI Text    
  50. ExportFilters%(2) = FILTER_VEN_ASCII        'ASCII Text
  51. ExportFilters%(3) = FILTER_VEN_ASCII_8BIT    'ASCII 8-bit Text
  52. ExportFilters%(4) = FILTER_RTF            'Rich Text Format
  53.  
  54. GLOBAL ExportExtensions$(EXPORT_FORMAT_TYPES)'array of export filter extensions
  55. ExportExtensions$(1) = "TXT"                'ANSI Text
  56. ExportExtensions$(2) = "TXT"                'ASCII Text
  57. ExportExtensions$(3) = "TXT"                'ASCII 8-bit Text
  58. ExportExtensions$(4) = "RTF"                'Rich Text Format
  59.  
  60. GLOBAL ExportFormats$(EXPORT_FORMAT_TYPES)    'array of export filter formats (these are the strings used by the drop-down list of filter types)
  61. ExportFormats$(1) = "ANSI Text (*.TXT)"        'ANSI Text
  62. ExportFormats$(2) = "ASCII Text (*.TXT)"    'ASCII Text
  63. ExportFormats$(3) = "ASCII 8-bit Text (*.TXT)"    'ASCII 8-bit Text
  64. ExportFormats$(4) = "Rich Text Format (*.RTF)"    'Rich Text Format
  65.  
  66. GLOBAL FilterSelection%                    'index corresponding to filter selection
  67. FilterSelection% = 1                    'initialize filter selection to first element (ie. ANSI text)
  68.  
  69. '/////LOCAL DECLARATIONS//////////////////////////////////////////////////////////////////
  70. CONST MAXSTEP% = 2        'maximum number of pages in the Wizard
  71. DIM DialogReturn%        'identifies user's selection for next step in Wizard
  72. DIM NextStep%            'specifies which page appears next in the Wizard
  73.  
  74.  
  75. '///// MAIN ////////////////////////////////////////////////////////////////////////////////
  76. ON ERROR GOTO ErrorHandler
  77. RegQuery                                    'get root directory where Ventura is installed
  78. CurrentPub$ = GetCurrentPub$()                'get name of current (active) publication
  79. CurrentDir$ = GetPublicationDir$(CurrentPub$)    'get directory of current (active) publication
  80.  
  81. 'this section controls traversal through the Wizard pages
  82. NextStep% = 1
  83. DO
  84.     SELECT CASE NextStep%
  85.         CASE 1: DialogReturn%  = ShowIntro()    'display Intro dialog
  86.         CASE 2: DialogReturn%  = ShowFileList()    'display File list dialog
  87.     END SELECT
  88.     NextStep% = NextStep% + DialogReturn% 
  89. LOOP UNTIL NextStep% = MAXSTEP + 1
  90.  
  91. SetToExport        'set selected files to export on save
  92.  
  93. ExitScript:
  94. STOP
  95.  
  96. ErrorHandler:
  97. SELECT CASE ErrNum
  98.     CASE 800
  99.         MESSAGE "FATAL ERROR" & CHR(13) & "Script will now exit."
  100.         RESUME AT ExitScript
  101.     CASE ELSE
  102.         MESSAGE "ERROR: " & STR(ErrNum) & CHR(13) & "Script will now exit."
  103.         RESUME AT ExitScript
  104.     END SELECT
  105.  
  106.  
  107. ' *******************************************************************************
  108. ' RegQuery
  109. ' This subroutine queries the Registry to determine the root directory where 
  110. ' Ventura is installed.
  111. ' *******************************************************************************
  112. SUB RegQuery
  113. ON ERROR GOTO ErrorHandler
  114.  
  115.     'get Ventura config directory
  116.     VentDir$ = REGISTRYQUERY(HKEY_LOCAL_MACHINE,VENTURA_REGQUERY_CONST,"ConfigDir")     
  117.     
  118.     'isolate Ventura root directory from Ventura config directory
  119.     first% = 1
  120.     pos% = 1
  121.     DO WHILE first <> 0
  122.         first = INSTR(VentDir$, "\", first )
  123.         IF first <> 0 THEN
  124.             pos = first
  125.             first = first + 1
  126.         END IF
  127.     LOOP
  128.     VenturaRoot$ = LEFT(VentDir$, pos - 1)     'root directory where Ventura is installed
  129.  
  130. EXIT SUB
  131. ErrorHandler:
  132.     MESSAGE "Error reading registry:" & CHR(13) & RegString$
  133.     ErrNum = 800
  134. END SUB
  135.  
  136.  
  137. ' *******************************************************************************
  138. ' GetCurrentPub
  139. ' This function queries VENTURA for the name of the current publication. IF no 
  140. ' publication is open, the user is prompted to open one before continuing.
  141. ' 
  142. ' PARAMS: None
  143. '
  144. ' RETURNS: GetCurrentPub$ - the name of the current publication.
  145. ' *******************************************************************************
  146. FUNCTION GetCurrentPub$()
  147.     BEGINWAITCURSOR
  148.     WITHOBJECT OBJECT_VENTURA8
  149.     ENDWAITCURSOR
  150.         IF .CountWindows() = 0 THEN
  151.             PubMsg$ = "You need an open publication to run this script." & CHR(13) & "Open one now?"
  152.             MsgVal% = MESSAGEBOX(PubMsg$, "WARNING", MB_YES_NO OR MB_STOP_ICON)
  153.             IF MsgVal% = MSG_YES THEN         'Yes, open a pub
  154.                 SETCURRFOLDER VenturaRoot$
  155.                 PubName$ = GETFILEBOX("Publication files (*.VP*)|*.VP*", , , ,"*.vp*", VenturaRoot$ & "\Ventura\Samples" )
  156.                 IF PubName$ <> "" THEN
  157.                     .SetVisible TRUE
  158.                     .FileOpen PubName$, , TRUE, 1, TRUE, FALSE
  159.                 ELSE
  160.                     STOP
  161.                 ENDIF
  162.             ELSE
  163.                 STOP
  164.             ENDIF
  165.         ENDIF
  166.         GetCurrentPub$ = .PublicationName()
  167.     END WITHOBJECT
  168. END FUNCTION
  169.  
  170.  
  171. ' *********************************************************************************
  172. ' GetPublicationDir
  173. ' This function separates the directory from the name of the specified publication.
  174. '
  175. ' PARAMS: CurrentPublication$ - the publication from which to obtain the directory.
  176. '
  177. ' RETURN: GetPublicationDir$ - the directory that the specified pub resides in.
  178. ' *********************************************************************************
  179. FUNCTION GetPublicationDir$(CurrentPublication$)
  180.     'IF name doesn't contain a directory, default to Ventura root directory
  181.     NoDir% = INSTR(CurrentPublication$, "\", 1)
  182.     IF NoDir% = 0 THEN 
  183.         GetPublicationDir$ = VenturaRoot$ & "\Ventura\Samples"
  184.     ELSE
  185.         first% = 1
  186.         pos% = 1
  187.         WHILE first% <> 0
  188.             first% = INSTR(CurrentPublication$, "\", first%)
  189.             IF first% <> 0 THEN
  190.                 pos% = first%
  191.                 first% = first% + 1
  192.             ENDIF
  193.         WEND
  194.         GetPublicationDir$ = LEFT(CurrentPublication$, pos% - 1) 
  195.     ENDIF
  196. END FUNCTION
  197.  
  198.  
  199. ' *******************************************************************************
  200. ' ShowIntro
  201. ' This function displays the introduction dialog.
  202. ' 
  203. ' PARAMS: None
  204. '
  205. ' RETURNS: ShowIntro AS INTEGER - Integer indicating dialog return value.
  206. ' *******************************************************************************
  207. FUNCTION ShowIntro%
  208. BEGIN DIALOG OBJECT IntroDialog 290, 180, "Set Files to Export On Save", SUB IntroDialogEventHandler
  209.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  210.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  211.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  212.     TEXT  95, 10, 189, 20, .Text2, "This Wizard guides you through the steps necessary to set all text files to Export on Save."
  213.     TEXT  95, 40, 185, 20, .Text3, "Specify a directory and select a format in which to save the exported files."
  214.     IMAGE  10, 10, 75, 130, .IntroImage
  215.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  216.     DDLISTBOX  140, 120, 140, 59, .FormatDDListBox
  217.     TEXT  95, 122, 43, 12, .Text4, "&Text Format:"
  218.     TEXT  95, 78, 30, 12, .Text5, "&Directory:"
  219.     TEXTBOX  140, 75, 140, 13, .DirectoryTextBox
  220.     PUSHBUTTON  234, 92, 46, 14, .BrowseButton, "B&rowse"
  221. END DIALOG
  222.  
  223.     IntroDialog.SetStyle STYLE_INVISIBLE
  224.     IntroDialog.IntroImage.SetImage "#IntroBMP"
  225.     IntroDialog.IntroImage.SetStyle STYLE_IMAGE_CENTERED
  226.  
  227.     IntroRet%=DIALOG(IntroDialog)
  228.     IF IntroRet% = DIALOG_RETURN_CANCEL THEN STOP            
  229.     IF IntroRet% = DIALOG_RETURN_NEXT THEN 
  230.         FilterSelection% = IntroDialog.FormatDDListBox.GetSelect()
  231.         ShowIntro = 1        
  232.     ENDIF
  233. END FUNCTION
  234.  
  235.  
  236. ' *******************************************************************************
  237. ' IntroDialogEventHandler
  238. ' This subroutine responds to user interface with the introduction dialog.
  239. ' 
  240. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  241. '                            generating a dialog event.
  242. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  243. ' *******************************************************************************
  244. SUB IntroDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  245. DIM FolderStatus AS BOOLEAN
  246.     IF Event% = EVENT_INITIALIZATION THEN         
  247.         IntroDialog.BackButton.Enable FALSE 
  248.         IntroDialog.SetStyle STYLE_VISIBLE
  249.         IntroDialog.DirectoryTextBox.SetText CurrentDir$
  250.         IntroDialog.FormatDDListBox.SetArray ExportFormats$
  251.         IntroDialog.FormatDDListBox.SetSelect FilterSelection%
  252.     ENDIF
  253.  
  254.     IF Event% = EVENT_CHANGE_IN_CONTENT THEN         
  255.         CurrentDir$ = IntroDialog.DirectoryTextBox.GetText() 
  256.     ENDIF
  257.  
  258.     IF Event% = EVENT_MOUSE_CLICK THEN 
  259.         SELECT CASE ControlID%
  260.             CASE IntroDialog.NextButton.GetID()
  261.                 CurrentDir$ = IntroDialog.DirectoryTextBox.GetText() 
  262.                 FolderStatus = MKFOLDER(CurrentDir$)    
  263.                 IF FolderStatus = FALSE THEN         
  264.                     IntroDialog.CloseDialog DIALOG_RETURN_NEXT
  265.                 ELSE
  266.                     CreateFolder CurrentDir$
  267.                     IntroDialog.CloseDialog DIALOG_RETURN_NEXT
  268.                 ENDIF        
  269.  
  270.             CASE IntroDialog.CancelButton.GetID()
  271.                 IntroDialog.CloseDialog DIALOG_RETURN_CANCEL
  272.  
  273.             CASE IntroDialog.BrowseButton.GetID()
  274.                 NewFolder$ = GETFOLDER(CurrentDir$)
  275.                 IF NewFolder$ <> "" THEN CurrentDir$ = NewFolder$
  276.                 IntroDialog.DirectoryTextBox.SetText CurrentDir$
  277.  
  278.             CASE IntroDialog.FormatDDListBox.GetID()
  279.                 FilterSelection% = IntroDialog.FormatDDListBox.GetSelect()
  280.  
  281.         END SELECT
  282.     ENDIF
  283. END SUB
  284.  
  285.  
  286. ' *******************************************************************************
  287. ' ShowFileList
  288. ' This function displays the list of available files (FileList).
  289. ' 
  290. ' PARAMS: None
  291. '
  292. ' RETURNS: ShowIntro AS INTEGER - Integer indicating dialog return value.
  293. ' *******************************************************************************
  294. FUNCTION ShowFileList
  295. BEGIN DIALOG OBJECT ShowFileListDialog 290, 180, "VENTURA File Export Wizard", SUB FileListDialogEventHandler     '"Corel VENTURA Conversion Wizard - Done"
  296.     LISTBOX  10, 25, 100, 107, .FilesListBox
  297.     PUSHBUTTON  122, 33, 46, 14, .SelectButton, "&Select >>"
  298.     PUSHBUTTON  122, 49, 46, 14, .DeselectButton, "<< &Deselect"
  299.     PUSHBUTTON  123, 95, 46, 14, .SelectAllButton, "Select &All"
  300.     PUSHBUTTON  123, 112, 46, 14, .DeselectAllButton, "D&eselect All"
  301.     LISTBOX  180, 26, 100, 107, .SelectedFilesListBox
  302.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  303.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Finish"
  304.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  305.     LISTBOX  180, 27, 100, 107, .SelectedChaptersListBox
  306.     TEXT  10, 2, 269, 11, .Text2, "Select the files you wish to set to Export on Save."
  307.     TEXT  10, 14, 56, 10, .Text4, "Available files:"
  308.     TEXT  88, 14, 20, 10, .FilesCountText, ""
  309.     TEXT  180, 14, 61, 10, .Text5, "Selected files:"
  310.     TEXT  258, 14, 20, 10, .SelectedFilesCountText, ""
  311.     LISTBOX  10, 25, 100, 107, .ChapterListBox
  312.     TEXT  10, 136, 270, 12, .StatusText, "No files selected"
  313.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  314. END DIALOG
  315.     ShowFileListDialog.SetStyle STYLE_INVISIBLE
  316.     ShowFileListDialog.StatusText.SetStyle STYLE_SUNKEN
  317.     ShowFileListRet% = DIALOG(ShowFileListDialog)
  318.     
  319.     SELECT CASE ShowFileListRet%
  320.         CASE DIALOG_RETURN_CANCEL        
  321.             STOP
  322.         CASE DIALOG_RETURN_NEXT        
  323.             ShowFileList = 1
  324.         CASE DIALOG_RETURN_BACK         
  325.             ShowFileList = -1
  326.     END SELECT
  327. END FUNCTION
  328.  
  329.  
  330. ' *******************************************************************************
  331. ' FileListDialogEventHandler
  332. ' This subroutine responds to user interface with the file list dialog.
  333. ' 
  334. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  335. '                            generating a dialog event.
  336. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  337. ' *******************************************************************************
  338. SUB FileListDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  339.     IF Event% = EVENT_INITIALIZATION THEN         
  340.         ShowFileListDialog.ChapterListBox.SetStyle STYLE_INVISIBLE
  341.         ShowFileListDialog.SelectedChaptersListBox.SetStyle STYLE_INVISIBLE
  342.         ShowFileListDialog.FilesCountText.SetStyle STYLE_RIGHT_JUSTIFY
  343.         ShowFileListDialog.SelectedFilesCountText.SetStyle STYLE_RIGHT_JUSTIFY
  344.         IF ShowFileListDialog.SelectedFilesListBox.GetItemCount() = 0 THEN 
  345.             ShowFileListDialog.NextButton.Enable FALSE
  346.         ELSE
  347.             ShowFileListDialog.NextButton.Enable TRUE
  348.         ENDIF    
  349.  
  350.         BEGINWAITCURSOR
  351.         WITHOBJECT OBJECT_VENTURA8
  352.             'FOR every chapter in publication
  353.             NumberOfChapters& = .ChapterCount()
  354.             FOR i% = 1 TO NumberOfChapters&
  355.                 CurChapter$ = .ChapterGetAt(i%)
  356.                 .ViewGoToPage , CurChapter$, GOTO_RELATIVE_TO_CHAPTER, GOTO_PAGE_FIRST, FALSE
  357.                 'FOR every text file in chapter
  358.                 NumberOfTextFiles& = .TextFileCount()
  359.                 FOR j% = 1 TO NumberOfTextFiles&
  360.                     CurFile$ = .TextFileGetAt(j%) 
  361.                     ShowFileListDialog.FilesListBox.AddItem CurFile$
  362.                     ShowFileListDialog.ChapterListBox.AddItem CurChapter$
  363.                 NEXT j%
  364.             NEXT i%
  365.         END WITHOBJECT
  366.         ENDWAITCURSOR
  367.         ShowFileListDialog.FilesListBox.SetSelect 1
  368.         ShowFileListDialog.StatusText.SetText CurrentDir$
  369.         ShowFileListDialog.FilesCountText.SetText ShowFileListDialog.FilesListBox.GetItemCount()
  370.         ShowFileListDialog.SelectedFilesCountText.SetText ShowFileListDialog.SelectedFilesListBox.GetItemCount()
  371.  
  372.         ShowFileListDialog.SetStyle STYLE_VISIBLE
  373.     ENDIF
  374.  
  375.     IF Event% = EVENT_MOUSE_CLICK THEN         
  376.         SELECT CASE ControlID%
  377.             CASE ShowFileListDialog.NextButton.GetID()        
  378.                 SelectedFilesCount% = ShowFileListDialog.SelectedFilesListBox.GetItemCount()
  379.                 REDIM SelectedFiles$(SelectedFilesCount)                            'redimension array to accomodate all selected files
  380.                 REDIM SelectedChapters$(SelectedFilesCount)
  381.                 FOR i% = 1 TO SelectedFilesCount%                                    'FOR all items in selected files list
  382.                     SelectedFiles$(i%) = ShowFileListDialog.SelectedFilesListBox.GetItem(i%)    'add selection to FilesList
  383.                     SelectedChapters$(i%) = ShowFileListDialog.SelectedChaptersListBox.GetItem(i%)
  384.                 NEXT i%
  385.                 ShowFileListDialog.closedialog DIALOG_RETURN_NEXT
  386.  
  387.             CASE ShowFileListDialog.BackButton.GetID()        
  388.                 ShowFileListDialog.closedialog DIALOG_RETURN_BACK
  389.  
  390.             CASE ShowFileListDialog.SelectButton.GetID()        
  391.                 indx% = ShowFileListDialog.FilesListBox.GetSelect()                    'get index of selection
  392.                 IF indx%=0 THEN    'no files selected
  393.                     IF ShowFileListDialog.FilesListBox.GetItemCount() = 0 THEN
  394.                         MESSAGE "There are no files available for selection."
  395.                     ELSE
  396.                         MESSAGE "Please select a file from the available files list."
  397.                     ENDIF
  398.                 ELSE
  399.                     ShowFileListDialog.SelectedFilesListBox.AddItem ShowFileListDialog.FilesListBox.GetItem(indx%)    'add selection to SelectedFilesList
  400.                     ShowFileListDialog.FilesListBox.RemoveItem indx%                                        'remove selection from available files list
  401.                     ShowFileListDialog.SelectedChaptersListBox.AddItem ShowFileListDialog.ChapterListBox.GetItem(indx%)    'add selection to selected path list
  402.                     ShowFileListDialog.ChapterListBox.RemoveItem indx%                                        'remove selection from available paths list
  403.                     IF indx% > ShowFileListDialog.FilesListBox.GetItemCount() THEN
  404.                         ShowFileListDialog.FilesListBox.SetSelect indx%-1
  405.                     ELSE
  406.                         ShowFileListDialog.FilesListBox.SetSelect indx%
  407.                     ENDIF
  408.                      ShowFileListDialog.StatusText.SetText CurrentDir$
  409.                     ShowFileListDialog.SelectedFilesListBox.SetSelect 0
  410.                 ENDIF
  411.  
  412.             CASE ShowFileListDialog.DeselectButton.GetID()                    
  413.                 indx% = ShowFileListDialog.SelectedFilesListBox.GetSelect()                            'get index of selection
  414.                 IF indx%=0 THEN    'no files selected
  415.                     IF ShowFileListDialog.SelectedFilesListBox.GetItemCount() = 0 THEN
  416.                         MESSAGE "There are no files available for deselection"
  417.                     ELSE
  418.                         MESSAGE "Please select a file from the selected files list."
  419.                     ENDIF
  420.                 ELSE
  421.                     ShowFileListDialog.FilesListBox.AddItem ShowFileListDialog.SelectedFilesListBox.GetItem(indx%)    'add selection to FilesList
  422.                     ShowFileListDialog.SelectedFilesListBox.RemoveItem indx%                                'remove selection from selected files list
  423.                     ShowFileListDialog.ChapterListBox.AddItem ShowFileListDialog.SelectedChaptersListBox.GetItem(indx%)    'add selection to available path list
  424.                     ShowFileListDialog.SelectedChaptersListBox.RemoveItem indx%                                'remove selection from selected path list
  425.                     IF indx% > ShowFileListDialog.SelectedFilesListBox.GetItemCount() THEN
  426.                         ShowFileListDialog.SelectedFilesListBox.SetSelect indx%-1
  427.                     ELSE
  428.                         ShowFileListDialog.SelectedFilesListBox.SetSelect indx%
  429.                     ENDIF
  430.                      ShowFileListDialog.StatusText.SetText CurrentDir$
  431.                     ShowFileListDialog.FilesListBox.SetSelect 0
  432.                 ENDIF
  433.  
  434.             CASE ShowFileListDialog.SelectAllButton.GetID()        
  435.                 ShowFileListDialog.StatusText.SetText "All files selected."
  436.                 ShowFileListDialog.SelectedFilesListBox.SetSelect 0
  437.                 WHILE ShowFileListDialog.FilesListBox.GetItemCount() > 0            'while there are available files
  438.                     ShowFileListDialog.SelectedFilesListBox.AddItem ShowFileListDialog.FilesListBox.GetItem(1)    'add selection to SelectedFilesList
  439.                     ShowFileListDialog.FilesListBox.RemoveItem 1                                            'remove selection from available files list    
  440.                     ShowFileListDialog.SelectedChaptersListBox.AddItem ShowFileListDialog.ChapterListBox.GetItem(1)        'add selection to selected path list
  441.                     ShowFileListDialog.ChapterListBox.RemoveItem 1                                            'remove selection  from available paths list
  442.                     ShowFileListDialog.FilesCountText.SetText ShowFileListDialog.FilesListBox.GetItemCount()        'number of available files
  443.                     ShowFileListDialog.SelectedFilesCountText.SetText ShowFileListDialog.SelectedFilesListBox.GetItemCount()    'number of selected files
  444.                 WEND
  445.  
  446.             CASE ShowFileListDialog.DeselectAllButton.GetID()        
  447.                 ShowFileListDialog.StatusText.SetText "No files selected."
  448.                 ShowFileListDialog.FilesListBox.SetSelect 0
  449.                 WHILE ShowFileListDialog.SelectedFilesListBox.GetItemCount() > 0        'while there are selected files
  450.                     ShowFileListDialog.FilesListBox.AddItem ShowFileListDialog.SelectedFilesListBox.GetItem(1)    'add selection to FilesList
  451.                     ShowFileListDialog.SelectedFilesListBox.RemoveItem 1                                    'remove selection from selected files list
  452.                     ShowFileListDialog.ChapterListBox.AddItem ShowFileListDialog.SelectedChaptersListBox.GetItem(1)        'add selection to available path list
  453.                     ShowFileListDialog.SelectedChaptersListBox.RemoveItem 1                                    'remove selection from selected path list
  454.                     ShowFileListDialog.FilesCountText.SetText ShowFileListDialog.FilesListBox.GetItemCount()        'number of available files
  455.                     ShowFileListDialog.SelectedFilesCountText.SetText ShowFileListDialog.SelectedFilesListBox.GetItemCount()        'number of selected files
  456.                 WEND
  457.  
  458.             CASE ShowFileListDialog.CancelButton.GetID()            
  459.                 ShowFileListDialog.closedialog DIALOG_RETURN_CANCEL    
  460.             CASE ShowFileListDialog.FilesListBox.GetID()                    'files list
  461.                  ShowFileListDialog.StatusText.SetText CurrentDir$
  462.                 ShowFileListDialog.SelectedFilesListBox.SetSelect 0
  463.             CASE ShowFileListDialog.SelectedFilesListBox.GetID()            'selected files list
  464.                  ShowFileListDialog.StatusText.SetText CurrentDir$
  465.                 ShowFileListDialog.FilesListBox.SetSelect 0
  466.         END SELECT
  467.         ShowFileListDialog.FilesCountText.SetText ShowFileListDialog.FilesListBox.GetItemCount()                    'number of available files
  468.         ShowFileListDialog.SelectedFilesCountText.SetText ShowFileListDialog.SelectedFilesListBox.GetItemCount()        'number of selected files
  469.     ENDIF
  470.  
  471.     IF Event% = EVENT_DBL_MOUSE_CLICK THEN         
  472.         SELECT CASE ControlID%
  473.             CASE ShowFileListDialog.FilesListBox.GetID()            
  474.                 indx% = ShowFileListDialog.FilesListBox.GetSelect()                                    'get index of selection
  475.                 ShowFileListDialog.SelectedFilesListBox.AddItem ShowFileListDialog.FilesListBox.GetItem(indx%)    'add selection to SelectedFilesList
  476.                 ShowFileListDialog.FilesListBox.RemoveItem indx%                                        'remove selection from available files list
  477.                 ShowFileListDialog.SelectedChaptersListBox.AddItem ShowFileListDialog.ChapterListBox.GetItem(indx%)    'add selection to selected path list
  478.                 ShowFileListDialog.ChapterListBox.RemoveItem indx%                                        'remove selection from available paths list
  479.                 IF indx% > ShowFileListDialog.FilesListBox.GetItemCount() THEN
  480.                     ShowFileListDialog.FilesListBox.SetSelect indx%-1
  481.                 ELSE
  482.                     ShowFileListDialog.FilesListBox.SetSelect indx%
  483.                 ENDIF
  484.  
  485.             CASE ShowFileListDialog.SelectedFilesListBox.GetID()            'selected files list
  486.                 indx% = ShowFileListDialog.SelectedFilesListBox.GetSelect()                                'get index of selection
  487.                 ShowFileListDialog.FilesListBox.AddItem ShowFileListDialog.SelectedFilesListBox.GetItem(indx%)    'add selection to FilesList
  488.                 ShowFileListDialog.SelectedFilesListBox.RemoveItem indx%                                'remove selection from selected files list
  489.                 ShowFileListDialog.ChapterListBox.AddItem ShowFileListDialog.SelectedChaptersListBox.GetItem(indx%)    'add selection to available path list
  490.                 ShowFileListDialog.SelectedChaptersListBox.RemoveItem indx%                                'remove selection from selected path list
  491.                 IF indx% > ShowFileListDialog.SelectedFilesListBox.GetItemCount() THEN
  492.                     ShowFileListDialog.SelectedFilesListBox.SetSelect indx%-1
  493.                 ELSE
  494.                     ShowFileListDialog.SelectedFilesListBox.SetSelect indx%
  495.                 ENDIF
  496.  
  497.         END SELECT
  498.         ShowFileListDialog.FilesCountText.SetText ShowFileListDialog.FilesListBox.GetItemCount()                'number of available files
  499.         ShowFileListDialog.SelectedFilesCountText.SetText ShowFileListDialog.SelectedFilesListBox.GetItemCount()    'number of selected files
  500.     ENDIF
  501.     IF ShowFileListDialog.SelectedFilesListBox.GetItemCount() = 0 THEN 
  502.         ShowFileListDialog.NextButton.Enable FALSE
  503.     ELSE
  504.         ShowFileListDialog.NextButton.Enable TRUE
  505.     ENDIF    
  506. END SUB
  507.  
  508.  
  509. ' *******************************************************************************
  510. ' SetToExport
  511. ' This function sets the selected files to Export on save. The publication is 
  512. ' then saved to implement the set.
  513. '
  514. ' PARAMS: None
  515. ' *******************************************************************************
  516. SUB SetToExport
  517. ON ERROR RESUME NEXT
  518.     BEGINWAITCURSOR
  519.     WITHOBJECT OBJECT_VENTURA8
  520.         FOR i% = 1 TO SelectedFilesCount%
  521.             pos% = INSTR(SelectedFiles$(i%), ".")
  522.             IF pos% = 0 THEN
  523.                 NewName$ = SelectedFiles$(i%) & "."
  524.             ELSE
  525.                 NewName$ = LEFT(SelectedFiles$(i%),pos%)
  526.             ENDIF
  527.             NewName$ = CurrentDir$ & "\" & NewName$ & ExportExtensions$(FilterSelection%)
  528.              .FileRenameTextFile SelectedFiles$(i%) ,NewName$ , ExportFilters%(FilterSelection%), TRUE, SelectedChapters$(i%)
  529.         NEXT i%
  530.  
  531.         .FileSave (.PublicationName())
  532.     END WITHOBJECT
  533.     ENDWAITCURSOR
  534. END SUB
  535.  
  536.  
  537. ' *******************************************************************************
  538. ' CreateFolder
  539. ' This subroutine creates the specified folder.
  540. '
  541. ' PARAMS: Folder$ - the folder to create.
  542. ' *******************************************************************************
  543. SUB CreateFolder(Folder$)
  544. DIM FolderStatus AS BOOLEAN
  545.  
  546.     Temp$ = Folder$
  547.     FolderStatus = MKFOLDER(Temp$)
  548.     IF FINDFIRSTFOLDER(Temp$, 1 OR 2 OR 4 OR 16 OR 32 or 128 OR 256 OR 2048) = "" THEN
  549.         DO WHILE  FolderStatus = FALSE 
  550.             first% = 1
  551.             pos% = 1
  552.             DO WHILE first <> 0
  553.                 first% = INSTR(Temp$, "\", first%)
  554.                 IF first% <> 0 THEN
  555.                     pos% = first%
  556.                     first% = first% + 1
  557.                 END IF
  558.             LOOP
  559.             Temp$ = LEFT(Temp$, pos% - 1)  
  560.             FolderStatus = MKFOLDER(Temp$)
  561.         LOOP    
  562.         FolderStatus = MKFOLDER(Temp$)
  563.         IF FolderStatus = FALSE THEN CreateFolder(Folder$)
  564.     ENDIF
  565. END SUB
  566.  
  567.  
  568.