home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Corel / Ventura8 / Ventura / Scripts / CSCConverter.csc < prev    next >
Text File  |  1998-07-08  |  40KB  |  850 lines
  1. REM Converts scripts from version 7.0 to 8.0[CorelSCRIPT 8]
  2. REM CSCConverter.csc  February 5, 1998
  3. REM ⌐ 1998 Corel Corporation. All rights reserved.
  4.  
  5. REM **********************************************************************
  6. REM This script updates version 7 scripts to version 8.
  7. REM The automation object number is updated in any WITHOBJECT statements:
  8. REM    WITHOBJECT "CorelVentura.Automation.7" --> WITHOBJECT "CorelVentura.Automation.8"
  9. REM    WITHOBJECT "CorelPhotoPaint.Automation.7" --> WITHOBJECT "CorelPhotoPaint.Automation.8"
  10. REM    WITHOBJECT "CorelDraw.Automation.7" --> WITHOBJECT "CorelDraw.Automation.8"
  11. REM IF you used the Script constants as defined in ScpConst.csi, then 
  12. REM you need not worry about your WITHOBJECT statement within your scripts.
  13. REM You will only have to update the automation object string in ScpConst.csi.
  14. REM This script also updates the registry key specifying the version number from 7 to 8.
  15. REM    "SOFTWARE\Corel\Corel *\7.0" --> "SOFTWARE\Corel\Corel *\8.0"
  16. REM **********************************************************************
  17.  
  18. ' Create a temporary folder to provide a path for the include files
  19. '  -this enables the include files to be located 
  20. #addfol "..\..\Scripts"
  21. #include "ScpConst.csi"
  22. #include "VPConst.csi"
  23.  
  24. ' Embed bitmaps if script is to be compiled into exe or csb formats
  25. ' -this will eliminate the need to include these files
  26. #ADDRESBMP Step2BMP "Bitmaps\Step2BMP.bmp"
  27. #ADDRESBMP Step3BMP "Bitmaps\Step3BMP.bmp"
  28.  
  29. 'Constants for Dialog Return Values
  30. GLOBAL CONST DIALOG_RETURN_CANCEL% = 2
  31. GLOBAL CONST DIALOG_RETURN_NEXT% = 3
  32. GLOBAL CONST DIALOG_RETURN_BACK% = 4
  33. GLOBAL CONST DIALOG_RETURN_BROWSE% = 5
  34.  
  35. GLOBAL CONST MAX_FILES% = 10
  36. GLOBAL CONST MAX_FILE_EXT% = 2
  37.  
  38. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////////////////////////
  39. DECLARE SUB RegQuery()
  40. DECLARE FUNCTION ShowIntro%()
  41. DECLARE FUNCTION GetSourceDir%()
  42. DECLARE SUB GetFileList(BYVAL SourceDir$, FileExt$)
  43. DECLARE FUNCTION ShowFileList%()
  44. DECLARE FUNCTION ShowFinish%()
  45. DECLARE FUNCTION ShowSummary
  46. DECLARE SUB ConvertFile(ScriptFile$)
  47. DECLARE FUNCTION EditObject$(ObjString$)
  48. DECLARE FUNCTION EditRegistry$(InputString$)
  49. DECLARE SUB LaunchScript(ScriptFileName$)
  50.  
  51.  
  52. '/////GLOBAL VARIABLES //////////////////////////////////////////////////////////
  53. GLOBAL VenturaRoot$                    'root directory where Ventura is installed
  54. GLOBAL SourceDir$                    'directory in which to start the search for files
  55. GLOBAL DestinationDir$                'directory in which to save the converted files
  56. GLOBAL FileExt$                    'file extension used by GetFileList sub
  57. FileExt$ = "*.CSC"
  58.  
  59. GLOBAL AvailableFiles$(MAX_FILES)        'list of files available for selection 
  60. GLOBAL AvailableDirs$(MAX_FILES)        'list of directories corresponding to available files    
  61. GLOBAL AvailableFilesCount%            'number of files available for selection
  62.  
  63. GLOBAL SelectedFiles$(MAX_FILES)        'list of file names selected for conversion
  64. GLOBAL SelectedDirs$(MAX_FILES)        'list of directories corresponding to selected files
  65. GLOBAL SelectedFilesCount%            'number of files selected
  66.  
  67. GLOBAL UnsuccessfulFiles$(MAX_FILES)    'list of files not successfully converted
  68. GLOBAL UnsuccessfulFilesCount%        'number of files not successfully converted
  69. GLOBAL SuccessfulFiles$(MAX_FILES)        'list of files successfully converted
  70. GLOBAL SuccessfulFilesCount%            'number of files successfully converted
  71.  
  72.  
  73. '////// LOCAL VARIABLES //////////////////////////////////////////////////////////////////////////////
  74. CONST MAXSTEP% = 6        'maximum number of pages in the Wizard
  75. DIM DialogReturn%        'identifies user's selection for next step in Wizard
  76. DIM NextStep%            'specifies which page appears next in the Wizard
  77.  
  78. ' **************************************************************************************
  79. ' MAIN
  80. ' **************************************************************************************
  81. ON ERROR GOTO ErrorHandler
  82. RegQuery                                        'get root directory where Ventura is installed
  83. SourceDir$= VenturaRoot$     & "\Ventura\Scripts"        'initialize source directory to Ventura\Samples dirextory
  84.  
  85. 'this section controls traversal through the Wizard pages
  86. NextStep% = 1
  87. DO
  88.     SELECT CASE NextStep%
  89.         CASE 1: DialogReturn% = ShowIntro()        'show Intro dialog
  90.         CASE 2: DialogReturn% = GetSourceDir()        'get source directory
  91.         CASE 3: DialogReturn%  = ShowFileList()        'select files to convert
  92.         CASE 4: DialogReturn%  = ShowFinish()        'show list of selected scripts
  93.         CASE 5:     BEGINWAITCURSOR
  94.                 REDIM SuccessfulFiles$(SelectedFilesCount%)        'dimension list for successful conversion
  95.                 REDIM UnsuccessfulFiles$(SelectedFilesCount%)    'dimension list for unsuccessful conversion    
  96.                 FOR i% = 1 TO SelectedFilesCount%    'convert selected scripts  
  97.                     ConvertFile SelectedDirs$(i%) & SelectedFiles$(i%)
  98.                    NEXT i%        
  99.                 ENDWAITCURSOR    
  100.         CASE 6: DialogReturn% = ShowSummary()        'show summary of conversion
  101.     END SELECT
  102.     NextStep% = NextStep%+ DialogReturn%
  103. LOOP UNTIL NextStep% = MAXSTEP + 1
  104.  
  105. ExitScript:
  106. STOP
  107.  
  108. ErrorHandler:
  109. SELECT CASE ErrNum
  110.     CASE 800
  111.         MESSAGE "FATAL ERROR" & CHR(13) & "Script will now exit."
  112.         RESUME AT ExitScript
  113.     CASE ELSE
  114.         MESSAGE "ERROR: " & STR(ErrNum) & CHR(13) & "Script will now exit."
  115.         RESUME AT ExitScript
  116.     END SELECT
  117.  
  118.  
  119. ' *******************************************************************************
  120. ' RegQuery
  121. ' This subroutine queries the Registry to determine the root directory where 
  122. ' Ventura is installed.
  123. ' *******************************************************************************
  124. SUB RegQuery
  125. ON ERROR GOTO ErrorHandler
  126.  
  127.     'get Ventura config directory
  128.     VentDir$ = REGISTRYQUERY(HKEY_LOCAL_MACHINE,VENTURA_REGQUERY_CONST,"ConfigDir")     
  129.     
  130.     'isolate Ventura root directory from Ventura config directory
  131.     first% = 1
  132.     pos% = 1
  133.     DO WHILE first <> 0
  134.         first = INSTR(VentDir$, "\", first )
  135.         IF first <> 0 THEN
  136.             pos = first
  137.             first = first + 1
  138.         END IF
  139.     LOOP
  140.     VenturaRoot$ = LEFT(VentDir$, pos - 1)     'root directory where Ventura is installed
  141.  
  142. EXIT SUB
  143. ErrorHandler:
  144.     MESSAGE "Error reading registry:" & CHR(13) & RegString$
  145.     ErrNum = 800
  146. END SUB
  147.  
  148.  
  149. ' *******************************************************************************
  150. ' ShowIntro
  151. ' This function displays the introduction dialog.
  152. ' 
  153. ' PARAMS: None
  154. '
  155. ' RETURNS: ShowIntro AS INTEGER - Integer indicating dialog return value.
  156. ' *******************************************************************************
  157. FUNCTION ShowIntro%
  158. BEGIN DIALOG OBJECT IntroDialog 290, 180, "Corel SCRIPT Converter", SUB IntroDialogEventHandler
  159.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  160.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  161.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  162.     TEXT  95, 10, 185, 20, .Text2, "This Wizard converts scripts from previous versions of Corel SCRIPT to the version 8 format."
  163.     TEXT  95, 40, 185, 12, .Text3, "To begin converting your scripts, click Next."
  164.     IMAGE  10, 10, 75, 130, .IntroImage
  165.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  166. END DIALOG
  167.  
  168.     IntroDialog.IntroImage.SetImage "#Step2BMP"
  169.     IntroDialog.IntroImage.SetStyle STYLE_IMAGE_CENTERED
  170.     IntroRet%=DIALOG(IntroDialog)
  171.     IF IntroRet% = DIALOG_RETURN_CANCEL THEN STOP            
  172.     IF IntroRet% = DIALOG_RETURN_NEXT THEN ShowIntro = 1        
  173.  
  174. END FUNCTION
  175.  
  176. ' *******************************************************************************
  177. ' IntroDialogEventHandler
  178. ' This subroutine responds to user interface with the introduction dialog.
  179. ' 
  180. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  181. '                            generating a dialog event.
  182. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  183. ' *******************************************************************************
  184. SUB IntroDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  185.     IF Event% = EVENT_INITIALIZATION THEN         
  186.         IntroDialog.BackButton.Enable FALSE 
  187.     ENDIF
  188.     IF Event% = EVENT_MOUSE_CLICK THEN     
  189.         SELECT CASE ControlID%
  190.             CASE IntroDialog.NextButton.GetID()
  191.                 IntroDialog.CloseDialog DIALOG_RETURN_NEXT
  192.             CASE IntroDialog.CancelButton.GetID()
  193.                 IntroDialog.CloseDialog DIALOG_RETURN_CANCEL
  194.         END SELECT
  195.     ENDIF
  196. END FUNCTION
  197.  
  198.  
  199. ' *******************************************************************************
  200. ' GetSourceDir
  201. ' This function prompts the user for the directory at which to begin the search 
  202. ' for files, as well as the type of file (ie. chp or pub) to use and the 
  203. ' maximum size of embedded pictures.
  204. '
  205. ' PARAMS:  None
  206. ' RETURNS: GetSourceDir AS INTEGER - Integer indicating dialog return value.
  207. '
  208. ' COMMENTS: A valid souce directory is required to continue to next dialog.
  209. ' *******************************************************************************
  210. FUNCTION GetSourceDir
  211. BEGIN DIALOG OBJECT SourceDialog 290, 180, "Corel SCRIPT Converter", SUB SourceDialogEventHandler
  212.     TEXTBOX  100, 47, 175, 13, .SourceDirectory
  213.     PUSHBUTTON  229, 66, 46, 14, .BrowseButton, "B&rowse..."
  214.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  215.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  216.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  217.     TEXT  95, 11, 185, 16, .Text1, "What is the location of the scripts you want to convert?"
  218.     IMAGE  10, 10, 75, 130, .SourceImage
  219.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  220.     GROUPBOX  95, 34, 185, 52, .FilesGroupBox, "Location of files:"
  221. END DIALOG
  222.  
  223.     SourceDialog.SourceImage.SetImage "#Step2BMP"
  224.     SourceDialog.SourceImage.SetStyle STYLE_IMAGE_CENTERED
  225.  
  226.     SourceRet%=DIALOG(SourceDialog)
  227.     SELECT CASE SourceRet%
  228.         CASE DIALOG_RETURN_CANCEL    
  229.             STOP
  230.         CASE DIALOG_RETURN_NEXT        
  231.             IF INSTR(SourceDir$, "\", LEN(SourceDir$)) = 0 THEN 
  232.                 SourceDir$ = SourceDir$ & "\"
  233.             ENDIF
  234.             GetSourceDir = 1
  235.         CASE DIALOG_RETURN_BACK         
  236.             SETCURRFOLDER SourceDir
  237.             GetSourceDir = -1
  238.     END SELECT
  239. END FUNCTION
  240.  
  241.  
  242. ' *******************************************************************************
  243. ' SourceDialogEventHandler
  244. ' This subroutine responds to user interface with the source directory dialog.
  245. ' 
  246. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  247. '                            generating a dialog event.
  248. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  249. ' *******************************************************************************
  250. SUB SourceDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  251.     IF Event% = EVENT_INITIALIZATION THEN         
  252.         SourceDialog.SourceDirectory.SetText SourceDir$
  253.     ENDIF
  254.  
  255.     IF Event% = EVENT_CHANGE_IN_CONTENT THEN         
  256.         SELECT CASE ControlID%
  257.             CASE SourceDialog.SourceDirectory.GetID()        
  258.                 SourceDir$ = SourceDialog.SourceDirectory.GetText()    
  259.         END SELECT
  260.     ENDIF
  261.  
  262.     IF Event% = EVENT_MOUSE_CLICK THEN         
  263.         SELECT CASE ControlID%
  264.             CASE SourceDialog.NextButton.GetID()
  265.                 SourceDialog.closedialog DIALOG_RETURN_NEXT
  266.             CASE SourceDialog.BackButton.GetID()
  267.                 SourceDialog.closedialog DIALOG_RETURN_BACK
  268.             CASE SourceDialog.CancelButton.GetID()    
  269.                 SourceDialog.closedialog DIALOG_RETURN_CANCEL    
  270.             CASE SourceDialog.BrowseButton.GetID()    
  271.                 NewSourceDir$ = GETFOLDER(SourceDir$)                
  272.                 IF NewSourceDir$ = "" THEN 
  273.                     SourceDialog.SourceDirectory.SetText SourceDir$
  274.                 ELSE
  275.                     SourceDialog.SourceDirectory.SetText NewSourceDir$
  276.                     SourceDir$ = NewSourceDir$
  277.                 ENDIF
  278.         END SELECT
  279.     ENDIF
  280.     SourceDir$ = SourceDialog.SourceDirectory.gettext()        
  281.     IF SourceDir$  = "" THEN
  282.         SourceDialog.NextButton.Enable FALSE
  283.     ELSE
  284.         SourceDialog.NextButton.Enable TRUE
  285.     ENDIF    
  286.  
  287. END SUB
  288.  
  289.  
  290.  
  291. ' *******************************************************************************
  292. ' ShowFileList
  293. ' This function displays a list of available files of the specified type starting
  294. ' at the specified location.
  295. '
  296. ' PARAMS: None
  297. '
  298. ' RETURNS: ShowFileList AS INTEGER - Integer indicating dialog return value.
  299. ' *******************************************************************************
  300. FUNCTION ShowFileList
  301. BEGIN DIALOG OBJECT ShowFileListDialog 290, 180, "Corel SCRIPT Converter", SUB FileListDialogEventHandler
  302.     LISTBOX  10, 25, 100, 107, .FileListBox
  303.     PUSHBUTTON  122, 33, 46, 14, .SelectButton, "&Select >>"
  304.     PUSHBUTTON  122, 49, 46, 14, .DeselectButton, "<< &Deselect"
  305.     PUSHBUTTON  123, 95, 46, 14, .SelectAllButton, "Select &All"
  306.     PUSHBUTTON  123, 112, 46, 14, .DeselectAllButton, "D&eselect All"
  307.     LISTBOX  180, 25, 100, 107, .SelectedFileListBox
  308.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  309.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  310.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  311.     TEXT  10, 2, 269, 11, .Text2, "Select the files you wish to convert."
  312.     TEXT  10, 14, 56, 10, .Text4, "Available files:"
  313.     TEXT  88, 14, 20, 10, .FilesCountText, ""
  314.     TEXT  180, 14, 61, 10, .Text5, "Selected files:"
  315.     TEXT  258, 14, 20, 10, .SelectedFilesCountText, ""
  316.     TEXT  10, 136, 270, 12, .StatusText, "No files selected"
  317.     LISTBOX  10, 25, 100, 107, .DirectoryListBox
  318.     LISTBOX  180, 25, 100, 107, .SelectedDirectoryListBox
  319.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  320. END DIALOG
  321.     ShowFileListDialog.SetStyle STYLE_INVISIBLE
  322.     ShowFileListDialog.StatusText.SetStyle STYLE_SUNKEN
  323.     ShowFileListRet% = DIALOG(ShowFileListDialog)
  324.     
  325.     SELECT CASE ShowFileListRet%
  326.         CASE DIALOG_RETURN_CANCEL        
  327.             STOP
  328.         CASE DIALOG_RETURN_NEXT        
  329.             ShowFileList = 1
  330.         CASE DIALOG_RETURN_BACK         
  331.             ShowFileList = -1
  332.     END SELECT
  333. END FUNCTION
  334.  
  335.  
  336. ' *******************************************************************************
  337. ' FileListDialogEventHandler
  338. ' This subroutine responds to user interface with the file list dialog.
  339. ' 
  340. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  341. '                            generating a dialog event.
  342. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  343. ' *******************************************************************************
  344. SUB FileListDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  345.     IF Event% = EVENT_INITIALIZATION THEN         
  346.         ShowFileListDialog.DirectoryListBox.SetStyle STYLE_INVISIBLE            'hide directory list box (for tracking files - user doesn't need to see this)
  347.         ShowFileListDialog.SelectedDirectoryListBox.SetStyle STYLE_INVISIBLE        'hide selected directory list box (for tracking files - user doesn't need to see this)
  348.         ShowFileListDialog.FilesCountText.SetStyle STYLE_RIGHT_JUSTIFY            'right justify text displaying file count
  349.         ShowFileListDialog.SelectedFilesCountText.SetStyle STYLE_RIGHT_JUSTIFY    'right justify text displaying selected files count
  350.  
  351.         'disable NEXT button until file(s) have been selected
  352.         IF ShowFileListDialog.SelectedFileListBox.GetItemCount() = 0 THEN 
  353.             ShowFileListDialog.NextButton.Enable FALSE
  354.         ELSE
  355.             ShowFileListDialog.NextButton.Enable TRUE
  356.         ENDIF    
  357.  
  358.         'IF files have already been selected, display same list
  359.         IF SelectedFilesCount > 0 THEN
  360.             ShowFileListDialog.FileListBox.SetArray AvailableFiles$            'display available files list in Available Files listbox
  361.             ShowFileListDialog.DirectoryListBox.SetArray AvailableDirs$            'display available dirs list in Avaialable Dirs listbox
  362.             ShowFileListDialog.SelectedFileListBox.SetArray SelectedFiles$        'display selected files list in Selected Files listbox
  363.             ShowFileListDialog.SelectedDirectoryListBox.SetArray SelectedDirs$    'display selected dirs list in Selected Dirs listbox
  364.  
  365.         'get and display list of files (with extension FileExt$) starting in Source directory
  366.         ELSE
  367.             GetFileList SourceDir$, FileExt$                                                'get file list
  368.             ShowFileListDialog.FileListBox.SetSelect 1                                        'give focus to first element in file list box
  369.             ShowFileListDialog.StatusText.SetText ShowFileListDialog.DirectoryListBox.GetItem(1)        'set status text to first item in file list
  370.             ShowFileListDialog.FilesCountText.SetText ShowFileListDialog.FileListBox.GetItemCount()    'set file count to number of available files
  371.             ShowFileListDialog.SelectedFilesCountText.SetText ShowFileListDialog.SelectedFileListBox.GetItemCount()    'set selected files count to number of selected files
  372.         ENDIF
  373.         ShowFileListDialog.SetStyle STYLE_VISIBLE
  374.     ENDIF
  375.  
  376.     IF Event% = EVENT_MOUSE_CLICK THEN         
  377.         SELECT CASE ControlID%
  378.             CASE ShowFileListDialog.NextButton.GetID()        
  379.                 'create list of selected files and directories
  380.                 SelectedFilesCount% = ShowFileListDialog.SelectedFileListBox.GetItemCount()
  381.                 REDIM SelectedFiles$(SelectedFilesCount%)    'redimension array to accomodate all selected files
  382.                 REDIM SelectedDirs$(SelectedFilesCount%)    'redimension array to accomodate all selected directories
  383.                 FOR i% = 1 TO SelectedFilesCount%            'FOR all items in selected files list
  384.                     SelectedFiles$(i%) = ShowFileListDialog.SelectedFileListBox.GetItem(i%)    'add item to file list        
  385.                     SelectedDirs$(i%) = ShowFileListDialog.SelectedDirectoryListBox.GetItem(i%)'add item to directory list
  386.                 NEXT i%
  387.     
  388.                 'create list of available files and directories
  389.                 AvailableFilesCount% = ShowFileListDialog.FileListBox.GetItemCount()
  390.                 REDIM AvailableFiles$(AvailableFilesCount)    'redimension array to accomodate all available files
  391.                 REDIM AvailableDirs$(AvailableFilesCount)    'redimension array to accomodate all available directories
  392.                 FOR i% = 1 TO AvailableFilesCount%            'FOR all items in avialable files list
  393.                     AvailableFiles$(i%) = ShowFileListDialog.FileListBox.GetItem(i%)        'add item to file list
  394.                     AvailableDirs$(i%) = ShowFileListDialog.DirectoryListBox.GetItem(i%)    'add item to directory list
  395.                 NEXT i%
  396.                 ShowFileListDialog.closedialog DIALOG_RETURN_NEXT
  397.  
  398.             CASE ShowFileListDialog.BackButton.GetID()        
  399.                 ShowFileListDialog.closedialog DIALOG_RETURN_BACK
  400.  
  401.             CASE ShowFileListDialog.SelectButton.GetID()            
  402.                 indx% = ShowFileListDialog.FileListBox.GetSelect()        'get index of current selection
  403.                 IF indx%=0 THEN        'no files selected, display appropriate message
  404.                     IF ShowFileListDialog.FileListBox.GetItemCount() = 0 THEN
  405.                         MESSAGE "There are no files available for selection."
  406.                     ELSE
  407.                         MESSAGE "Please select a file from the available files list."
  408.                     ENDIF
  409.                 ELSE                    'valid selection, add current selection to selected files list            
  410.                     ShowFileListDialog.SelectedFileListBox.AddItem ShowFileListDialog.FileListBox.GetItem(indx%)            'add current selection to selected files list
  411.                     ShowFileListDialog.FileListBox.RemoveItem indx%                                                'remove current selection from available files list
  412.                     ShowFileListDialog.SelectedDirectoryListBox.AddItem ShowFileListDialog.DirectoryListBox.GetItem(indx%)    'add current selection to selected directory list
  413.                     ShowFileListDialog.DirectoryListBox.RemoveItem indx%                                            'remove current selection from available directory list
  414.                     IF indx% > ShowFileListDialog.FileListBox.GetItemCount() THEN                                    'IF current selection is not the last         
  415.                         ShowFileListDialog.FileListBox.SetSelect indx%-1                                            'set focus to previous item
  416.                     ELSE                    
  417.                         ShowFileListDialog.FileListBox.SetSelect indx%                                            'ELSE set    focus to current selection
  418.                     ENDIF
  419.                      ShowFileListDialog.StatusText.SetText ShowFileListDialog.DirectoryListBox.GetItem(ShowFileListDialog.FileListBox.GetSelect())
  420.                     ShowFileListDialog.SelectedFileListBox.SetSelect 0
  421.                 ENDIF
  422.  
  423.             CASE ShowFileListDialog.DeselectButton.GetID()            
  424.                 indx% = ShowFileListDialog.SelectedFileListBox.GetSelect()    'get index of current selection
  425.                 IF indx%=0 THEN        'no files selected, display appropriate message
  426.                     IF ShowFileListDialog.SelectedFileListBox.GetItemCount() = 0 THEN
  427.                         MESSAGE "There are no files available for deselection"
  428.                     ELSE
  429.                         MESSAGE "Please select a file from the selected files list."
  430.                     ENDIF        
  431.                 ELSE                    'valid selection, remove current selection from selected files list
  432.                     ShowFileListDialog.FileListBox.AddItem ShowFileListDialog.SelectedFileListBox.GetItem(indx%)            'add current selection to available files list
  433.                     ShowFileListDialog.SelectedFileListBox.RemoveItem indx%                                        'remove current selection from selected files list
  434.                     ShowFileListDialog.DirectoryListBox.AddItem ShowFileListDialog.SelectedDirectoryListBox.GetItem(indx%)    'add current selection to available directory list
  435.                     ShowFileListDialog.SelectedDirectoryListBox.RemoveItem indx%                                    'remove current selection from selected directory list
  436.                     IF indx% > ShowFileListDialog.SelectedFileListBox.GetItemCount() THEN                                'IF current selection is not the last         
  437.                         ShowFileListDialog.SelectedFileListBox.SetSelect indx%-1                                    'set focus to previous item
  438.                     ELSE
  439.                         ShowFileListDialog.SelectedFileListBox.SetSelect indx%                                        'ELSE set    focus to current selection
  440.                     ENDIF
  441.                      ShowFileListDialog.StatusText.SetText ShowFileListDialog.SelectedDirectoryListBox.GetItem(ShowFileListDialog.SelectedFileListBox.GetSelect())
  442.                     ShowFileListDialog.FileListBox.SetSelect 0
  443.                 ENDIF
  444.  
  445.             CASE ShowFileListDialog.SelectAllButton.GetID()        
  446.                 ShowFileListDialog.StatusText.SetText "All files selected."
  447.                 ShowFileListDialog.SelectedFileListBox.SetSelect 0
  448.                 WHILE ShowFileListDialog.FileListBox.GetItemCount() > 0        'repeat while there are available files 
  449.                     ShowFileListDialog.SelectedFileListBox.AddItem ShowFileListDialog.FileListBox.GetItem(1)            'add first list item to selected files list
  450.                     ShowFileListDialog.FileListBox.RemoveItem 1                                                'remove first list item from available files list    
  451.                     ShowFileListDialog.SelectedDirectoryListBox.AddItem ShowFileListDialog.DirectoryListBox.GetItem(1)    'add first list item to selected directory list
  452.                     ShowFileListDialog.DirectoryListBox.RemoveItem 1                                            'remove first list item from available directory list
  453.                     ShowFileListDialog.FilesCountText.SetText ShowFileListDialog.FileListBox.GetItemCount()                'display number of available files
  454.                     ShowFileListDialog.SelectedFilesCountText.SetText ShowFileListDialog.SelectedFileListBox.GetItemCount()    'display number of selected files
  455.                 WEND
  456.  
  457.  
  458.             CASE ShowFileListDialog.DeselectAllButton.GetID()        
  459.                 ShowFileListDialog.StatusText.SetText "No files selected."
  460.                 ShowFileListDialog.FileListBox.SetSelect 0
  461.                 WHILE ShowFileListDialog.SelectedFileListBox.GetItemCount() > 0    'repeat while there are selected files
  462.                     ShowFileListDialog.FileListBox.AddItem ShowFileListDialog.SelectedFileListBox.GetItem(1)            'add first list item to FilesList
  463.                     ShowFileListDialog.SelectedFileListBox.RemoveItem 1                                        'remove first list item from selected files list
  464.                     ShowFileListDialog.DirectoryListBox.AddItem ShowFileListDialog.SelectedDirectoryListBox.GetItem(1)    'add first list item to available directory list
  465.                     ShowFileListDialog.SelectedDirectoryListBox.RemoveItem 1                                    'remove first list item from selected directory list
  466.                         ShowFileListDialog.FilesCountText.SetText ShowFileListDialog.FileListBox.GetItemCount()            'display number of available files
  467.                     ShowFileListDialog.SelectedFilesCountText.SetText ShowFileListDialog.SelectedFileListBox.GetItemCount()    'display number of selected files
  468.                 WEND
  469.  
  470.             CASE ShowFileListDialog.CancelButton.GetID()            
  471.                 ShowFileListDialog.closedialog DIALOG_RETURN_CANCEL    
  472.             CASE ShowFileListDialog.FileListBox.GetID()                    
  473.                  ShowFileListDialog.StatusText.SetText ShowFileListDialog.DirectoryListBox.GetItem(ShowFileListDialog.FileListBox.GetSelect())
  474.                 ShowFileListDialog.SelectedFileListBox.SetSelect 0
  475.             CASE ShowFileListDialog.SelectedFileListBox.GetID()            
  476.                  ShowFileListDialog.StatusText.SetText ShowFileListDialog.SelectedDirectoryListBox.GetItem(ShowFileListDialog.SelectedFileListBox.GetSelect())
  477.                 ShowFileListDialog.FileListBox.SetSelect 0
  478.         END SELECT
  479.         ShowFileListDialog.FilesCountText.SetText ShowFileListDialog.FileListBox.GetItemCount()                'display number of available files
  480.         ShowFileListDialog.SelectedFilesCountText.SetText ShowFileListDialog.SelectedFileListBox.GetItemCount()    'display number of selected files
  481.     ENDIF
  482.  
  483.     IF Event% = EVENT_DBL_MOUSE_CLICK THEN         
  484.         SELECT CASE ControlID%
  485.             CASE ShowFileListDialog.FileListBox.GetID()                    'files list
  486.                 indx% = ShowFileListDialog.FileListBox.GetSelect()                                    'get index of selection
  487.                 ShowFileListDialog.SelectedFileListBox.AddItem ShowFileListDialog.FileListBox.GetItem(indx%)    'add selection to SelectedFilesList
  488.                 ShowFileListDialog.FileListBox.RemoveItem indx%                                        'remove selection from available files list
  489.                 ShowFileListDialog.SelectedDirectoryListBox.AddItem ShowFileListDialog.DirectoryListBox.GetItem(indx%)    'add selection to selected path list
  490.                 ShowFileListDialog.DirectoryListBox.RemoveItem indx%                                        'remove selection from available paths list
  491.                 IF indx% > ShowFileListDialog.FileListBox.GetItemCount() THEN
  492.                     ShowFileListDialog.FileListBox.SetSelect indx%-1
  493.                 ELSE
  494.                     ShowFileListDialog.FileListBox.SetSelect indx%
  495.                 ENDIF
  496.  
  497.             CASE ShowFileListDialog.SelectedFileListBox.GetID()            'selected files list
  498.                 indx% = ShowFileListDialog.SelectedFileListBox.GetSelect()                                'get index of selection
  499.                 ShowFileListDialog.FileListBox.AddItem ShowFileListDialog.SelectedFileListBox.GetItem(indx%)    'add selection to FilesList
  500.                 ShowFileListDialog.SelectedFileListBox.RemoveItem indx%                                'remove selection from selected files list
  501.                 ShowFileListDialog.DirectoryListBox.AddItem ShowFileListDialog.SelectedDirectoryListBox.GetItem(indx%)    'add selection to available path list
  502.                 ShowFileListDialog.SelectedDirectoryListBox.RemoveItem indx%                                'remove selection from selected path list
  503.                 IF indx% > ShowFileListDialog.SelectedFileListBox.GetItemCount() THEN
  504.                     ShowFileListDialog.SelectedFileListBox.SetSelect indx%-1
  505.                 ELSE
  506.                     ShowFileListDialog.SelectedFileListBox.SetSelect indx%
  507.                 ENDIF
  508.  
  509.         END SELECT
  510.         ShowFileListDialog.FilesCountText.SetText ShowFileListDialog.FileListBox.GetItemCount()                'number of available files
  511.         ShowFileListDialog.SelectedFilesCountText.SetText ShowFileListDialog.SelectedFileListBox.GetItemCount()    'number of selected files
  512.     ENDIF
  513.     IF ShowFileListDialog.SelectedFileListBox.GetItemCount() = 0 THEN 
  514.         ShowFileListDialog.NextButton.Enable FALSE
  515.     ELSE
  516.         ShowFileListDialog.NextButton.Enable TRUE
  517.     ENDIF    
  518. END SUB
  519.  
  520.  
  521. ' *******************************************************************************
  522. ' GetFileList
  523. ' This subroutine recursively searches for files of the specified type, starting
  524. ' in the specified directory (SourceDir). The found files are displayed in the 
  525. ' File List dialog (files and paths separately).
  526. '
  527. ' PARAMS: BYVAL SourceDir$ - The directory at which to begin the search.
  528. '               FileExt$  - The type of file (extension) for which to search.
  529. ' *******************************************************************************
  530. SUB GetFileList(BYVAL SourceDir$, FileExt$)
  531.     'This section finds files of the type specified by FileExt in the directory specified by SourceDir
  532.     File$ = FINDFIRSTFOLDER(SourceDir$ & FileExt$, FILEATTR_READ_ONLY OR FILEATTR_HIDDEN OR FILEATTR_SYSTEM OR FILEATTR_ARCHIVE OR FILEATTR_NORMAL_FILE OR FILEATTR_TEMPORARY OR FILEATTR_COMPRESSED)
  533.     DO WHILE File$ <> ""
  534.         ShowFileListDialog.FileListBox.AddItem File$        'add file name to File drop-down list
  535.         ShowFileListDialog.DirectoryListBox.AddItem SourceDir$        'add file dir to Directory drop-down list
  536.         File$ = FINDNEXTFOLDER()
  537.     LOOP 
  538.  
  539.     'This section finds directories starting in the directory specified by SourceDir
  540.     File$ = FINDFIRSTFOLDER(SourceDir$ & "*.*", FILEATTR_FOLDER OR FILEATTR_READ_ONLY OR FILEATTR_HIDDEN OR FILEATTR_SYSTEM OR FILEATTR_ARCHIVE OR FILEATTR_NORMAL_FILE OR FILEATTR_TEMPORARY OR FILEATTR_COMPRESSED)
  541.     DO WHILE File$ <> ""    
  542.         IF File$ <> "." AND File$ <> ".." AND File$ <> SourceDir$ THEN
  543.             GetFileList SourceDir$ &  File$ & "\", FileExt$
  544.             
  545.             ' This next loop resets the FINDNEXTFOLDER function to the same place as it was before 
  546.             ' we recursed into ourselves.
  547.             SearchFile$ = FINDFIRSTFOLDER(SourceDir$ & "*.*", FILEATTR_FOLDER OR FILEATTR_READ_ONLY OR FILEATTR_HIDDEN OR FILEATTR_SYSTEM OR FILEATTR_ARCHIVE OR FILEATTR_NORMAL_FILE OR FILEATTR_TEMPORARY OR FILEATTR_COMPRESSED)
  548.             DO WHILE File$ <> SearchFile$
  549.                 SearchFile$ = FINDNEXTFOLDER()
  550.             LOOP
  551.         ENDIF
  552.         File$ = FINDNEXTFOLDER()
  553.     LOOP 
  554. END SUB
  555.  
  556.  
  557. ' **************************************************************************************
  558. ' ShowFinish
  559. ' This function displays the final dialog containing the list of successfully converted 
  560. ' publications as well as those that were not successfully converted.
  561. '
  562. ' RETURNS: ShowFinish AS INTEGER - Integer indicating dialog return value.
  563. ' **************************************************************************************
  564. FUNCTION ShowFinish%
  565. BEGIN DIALOG OBJECT ShowFinishDialog 290, 180, "Corel SCRIPT Converter", SUB ShowFinishDialogEventHandler
  566.     PUSHBUTTON  181, 160, 46, 14, .FinishButton, "&Finish"
  567.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  568.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  569.     LISTBOX  95, 25, 185, 75, .FileListBox
  570.     IMAGE  10, 10, 75, 130, .ShowFinishImage
  571.     TEXT  95, 10, 185, 12, .Text1, InfoText$
  572.     TEXT  95, 124, 185, 20, .Text3, "Click Finish, then sit back and allow your scripts to be converted for you."
  573.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  574.     TEXT  95, 107, 185, 12, .StatusText, ""
  575. END DIALOG
  576.  
  577.     IF SelectedFilesCount = 1 THEN 
  578.         InfoText$ = "The " & SelectedFilesCount & " file listed below has been selected for conversion:"
  579.     ELSE
  580.         InfoText$ = "The " & SelectedFilesCount & " files listed below have been selected for conversion:"
  581.     ENDIF
  582.     
  583.     ShowFinishDialog.SetStyle STYLE_INVISIBLE
  584.     ShowFinishDialog.ShowFinishImage.SetImage "#Step3BMP"
  585.     ShowFinishDialog.ShowFinishImage.SetStyle STYLE_IMAGE_CENTERED
  586.     ShowFinishDialog.StatusText.SetStyle STYLE_SUNKEN
  587.  
  588.     ShowFinishRet% = Dialog(ShowFinishDialog)
  589.     SELECT CASE ShowFinishRet%
  590.         CASE DIALOG_RETURN_CANCEL     
  591.             STOP
  592.         CASE DIALOG_RETURN_NEXT      
  593.             ShowFinishDialog.SetVisible FALSE
  594.             ShowFinish = 1
  595.         CASE DIALOG_RETURN_BACK 
  596.             ShowFinish = -1
  597.     END SELECT
  598. END FUNCTION
  599.  
  600.  
  601. ' *******************************************************************************
  602. ' ShowFinishDialogEventHandler
  603. ' This subroutine responds to user interface with the finish dialog.
  604. ' 
  605. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  606. '                            generating a dialog event.
  607. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  608. ' *******************************************************************************
  609. SUB ShowFinishDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  610.     IF Event% = EVENT_INITIALIZATION THEN         
  611.         ShowFinishDialog.FileListBox.SetArray SelectedFiles$
  612.         ShowFinishDialog.StatusText.SetText SelectedDirs(1)
  613.         ShowFinishDialog.SetStyle STYLE_VISIBLE
  614.     ENDIF
  615.  
  616.     IF Event% = EVENT_MOUSE_CLICK THEN     
  617.         SELECT CASE ControlID%
  618.             CASE ShowFinishDialog.FinishButton.GetID()
  619.                 ShowFinishDialog.CloseDialog DIALOG_RETURN_NEXT
  620.             CASE ShowFinishDialog.BackButton.GetID()
  621.                 ShowFinishDialog.CloseDialog DIALOG_RETURN_BACK
  622.             CASE ShowFinishDialog.CancelButton.GetID()
  623.                 ShowFinishDialog.CloseDialog DIALOG_RETURN_CANCEL
  624.             CASE ShowFinishDialog.FileListBox.GetID()
  625.                 ShowFinishDialog.StatusText.SetText SelectedDirs(ShowFinishDialog.FileListBox.GetSelect())
  626.         END SELECT
  627.     ENDIF
  628. END SUB
  629.  
  630.  
  631. ' **************************************************************************************
  632. ' ShowSummary
  633. ' This function displays the final dialog containing the list of successfully converted 
  634. ' scripts as well as those that were not successfully converted.
  635. '
  636. ' RETURNS: ShowSummary AS INTEGER - Integer indicating dialog return value.
  637. ' **************************************************************************************
  638. FUNCTION ShowSummary
  639. BEGIN DIALOG OBJECT SummaryDialog 290, 180, "Corel SCRIPT Converter", SUB SummaryDialogEventHandler
  640.     LISTBOX  10, 50, 120, 85, .SuccessfulDirectoryList
  641.     LISTBOX  160, 50, 120, 85, .UnsuccessfulDirectoryList
  642.     PUSHBUTTON  181, 160, 46, 14, .DoneButton, "&Done"
  643.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  644.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  645.     LISTBOX  10, 50, 120, 85, .SuccessfulFilesList
  646.     LISTBOX  160, 50, 120, 85, .UnsuccessfulFilesList
  647.     TEXT  10, 37, 80, 12, .Text4, "Converted files:"
  648.     TEXT  164, 37, 88, 12, .AvailableFiles, "Unconverted files:"
  649.     TEXT  10, 3, 267, 20, .Text3, "The conversion is now complete. Any files that were not converted are shown in the Unconverted files list."
  650.     TEXT  115, 37, 15, 10, .SuccessfulFilesCountText, ""
  651.     TEXT  265, 37, 15, 12, .UnsuccessfulFilesCountText, ""
  652.     TEXT  10, 138, 270, 12, .StatusText, ""
  653.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  654.     TEXT  10, 24, 268, 12, .Text7, "You can double-click a file in the Converted Files list to open it in Corel SCRIPT."
  655. END DIALOG
  656.  
  657.     SummaryDialog.StatusText.SetStyle STYLE_SUNKEN
  658.     
  659.     FinishRet%=DIALOG(SummaryDialog)
  660.     SELECT CASE FinishRet%
  661.         CASE DIALOG_RETURN_CANCEL    
  662.             STOP
  663.         CASE DIALOG_RETURN_NEXT        
  664.             SummaryDialog.SetVisible FALSE
  665.             STOP
  666.         CASE DIALOG_RETURN_BACK         
  667.             ShowSummary = -4
  668.         END SELECT
  669.     
  670. END FUNCTION
  671.  
  672. ' *******************************************************************************
  673. ' ShowSummaryDialogEventHandler
  674. ' This subroutine responds to user interface with the finish dialog.
  675. ' 
  676. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  677. '                            generating a dialog event.
  678. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  679. ' *******************************************************************************
  680. SUB SummaryDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  681.     IF Event% = EVENT_INITIALIZATION THEN         
  682.         SummaryDialog.SuccessfulDirectoryList.SetStyle STYLE_INVISIBLE
  683.         SummaryDialog.UnsuccessfulDirectoryList.SetStyle STYLE_INVISIBLE
  684.         SummaryDialog.SuccessfulFilesCountText.SetStyle STYLE_RIGHT_JUSTIFY
  685.         SummaryDialog.UnsuccessfulFilesCountText.SetStyle STYLE_RIGHT_JUSTIFY
  686.         SummaryDialog.SetStyle STYLE_VISIBLE
  687.         SummaryDialog.CancelButton.Enable FALSE
  688.         FOR i% = 1 TO SuccessfulFilesCount%
  689.             first% = 1
  690.             pos% = 1
  691.             NameLength = LEN(SuccessfulFiles(i%))
  692.             DO WHILE first <> 0
  693.                 first% = INSTR(SuccessfulFiles(i%), "\", first%)
  694.                 IF first% <> 0 THEN
  695.                     pos% = first%
  696.                     first% = first% + 1
  697.                 END IF
  698.             LOOP
  699.             SummaryDialog.SuccessfulFilesList.AddItem RIGHT(SuccessfulFiles(i%), NameLength - pos%) 
  700.             SummaryDialog.SuccessfulDirectoryList.AddItem SuccessfulFiles(i%)
  701.         NEXT i%
  702.  
  703.         FOR i% = 1 TO UnsuccessfulFilesCount%
  704.             first% = 1
  705.             pos% = 1
  706.             NameLength = LEN(UnsuccessfulFiles(i%))
  707.             DO WHILE first <> 0
  708.                 first% = INSTR(UnsuccessfulFiles(i%), "\", first%)
  709.                 IF first% <> 0 THEN
  710.                     pos% = first%
  711.                     first% = first% + 1
  712.                 END IF
  713.             LOOP
  714.             SummaryDialog.UnsuccessfulFilesList.AddItem RIGHT(UnsuccessfulFiles(i%), NameLength - pos%) 
  715.             SummaryDialog.UnsuccessfulDirectoryList.AddItem UnsuccessfulFiles(i%)
  716.         NEXT i%
  717.         SummaryDialog.SuccessfulFilesCountText.SetText SummaryDialog.SuccessfulFilesList.GetItemCount()
  718.         SummaryDialog.UnsuccessfulFilesCountText.SetText SummaryDialog.UnsuccessfulFilesList.GetItemCount()
  719.     ENDIF
  720.  
  721.     IF Event% = EVENT_MOUSE_CLICK THEN         
  722.         SELECT CASE ControlID%
  723.  
  724.             CASE SummaryDialog.DoneButton.GetID()        
  725.                 SummaryDialog.closedialog DIALOG_RETURN_NEXT
  726.  
  727.             CASE SummaryDialog.BackButton.GetID()        
  728.                 SummaryDialog.closedialog DIALOG_RETURN_BACK
  729.  
  730.             CASE SummaryDialog.CancelButton.GetID()        
  731.                 SummaryDialog.closedialog DIALOG_RETURN_CANCEL
  732.  
  733.             CASE SummaryDialog.SuccessfulFilesList.GetID()        
  734.                 SummaryDialog.StatusText.SetText SummaryDialog.SuccessfulDirectoryList.GetItem(SummaryDialog.SuccessfulFilesList.GetSelect())
  735.                 SummaryDialog.UnsuccessfulFilesList.SetSelect 0
  736.  
  737.             CASE SummaryDialog.UnsuccessfulFilesList.GetID()        
  738.                 SummaryDialog.StatusText.SetText SummaryDialog.UnsuccessfulDirectoryList.GetItem(SummaryDialog.UnsuccessfulFilesList.GetSelect())
  739.                 SummaryDialog.SuccessfulFilesList.SetSelect 0
  740.         END SELECT
  741.     ENDIF
  742.  
  743.     IF Event% = EVENT_DBL_MOUSE_CLICK THEN         
  744.         SELECT CASE ControlID%
  745.             CASE SummaryDialog.SuccessfulFilesList.GetID()            
  746.                 LaunchScript SummaryDialog.SuccessfulDirectoryList.GetItem(SummaryDialog.SuccessfulFilesList.GetSelect())
  747.         END SELECT
  748.     ENDIF
  749.  
  750. END SUB
  751.  
  752.  
  753. ' *******************************************************************************
  754. ' LaunchScript
  755. ' This function launches the Corel SCRIPT Editor and loads the specified file.
  756. '
  757. ' PARAMS: ScriptFileName$ - The complete name (including path) of the script 
  758. '                           to open.
  759. ' *******************************************************************************
  760. SUB LaunchScript(ScriptFileName$)
  761.     WITHOBJECT "CorelScript.Automation.8"
  762.         .FileOpen ScriptFileName$    
  763.     END WITHOBJECT
  764. END SUB
  765.  
  766.  
  767.  
  768. ' *******************************************************************************
  769. ' ConvertFile
  770. ' This subroutine opens the specified Corel SCRIPT file, convert it to the 
  771. ' version 8 format, then saves it to the specified location.
  772. '
  773. ' PARAMS: ScriptFile$ - The name of the Corel SCRIPT file to be converted.
  774. ' *******************************************************************************
  775. SUB ConvertFile(ScriptFile$)
  776. ON ERROR GOTO ErrorHandler
  777. ObjString$ = "WITHOBJECT"
  778. RegString$ = "SOFTWARE\Corel\Corel"
  779.  
  780.     TempFile$ = GETTEMPFOLDER() & "ScpTemp.txt"
  781.  
  782.     OPEN ScriptFile$ FOR INPUT AS 1    'READ from script file
  783.     OPEN TempFile$ FOR OUTPUT AS 2    'WRITE to temporary text file
  784.  
  785.     'check the entire file - line by line
  786.     WHILE NOT EOF(1) 
  787.         LINE INPUT #1, CurrentLine$
  788.         'check for automation object 
  789.         IF ObjString$ = MID(LTRIM(CurrentLine$), 1,10) THEN 'MESSAGE CurrentLine$
  790.             CurrentLine$ = EditObject(CurrentLine$)
  791.         ENDIF
  792.         'check for registry queries
  793.         IF INSTR(CurrentLine$, RegString$) <> 0 THEN
  794.             CurrentLine$ = EditRegistry$(CurrentLine$)
  795.         ENDIF
  796.         PRINT #2, CurrentLine$
  797.     WEND 
  798.     
  799.     CLOSE                        'close all open files 
  800.     COPY TempFile$, ScriptFile$, 0    'replace script with modified file
  801.     KILL TempFile$                    'remove temporary text file
  802.     SuccessfulFilesCount% = SuccessfulFilesCount% + 1                    'conversion successful
  803.     SuccessfulFiles(SuccessfulFilesCount%) = ScriptFile$                'add pub name to SuccessfilFiles list
  804.  
  805. SubEnd:
  806. EXIT SUB
  807.  
  808. ErrorHandler:
  809.     CLOSE            'close any open files 
  810.     KILL TempFile$        'remove temporary text file
  811.     UnsuccessfulFilesCount% = UnsuccessfulFilesCount% + 1        'conversion not successful
  812.     UnsuccessfulFiles$(UnsuccessfulFilesCount%) = FileName$    'add script name to UnsuccessfulFiles list
  813.     RESUME AT SubEnd
  814. END SUB
  815.  
  816.  
  817. ' *******************************************************************************
  818. ' EditObject
  819. ' This function updates the automation object number from 7 to 8
  820. '    WITHOBJECT "CorelVentura.Automation.7" --> WITHOBJECT "CorelVentura.Automation.8"
  821. '    WITHOBJECT "CorelPhotoPaint.Automation.7" --> WITHOBJECT "CorelPhotoPaint.Automation.8"
  822. '    WITHOBJECT "CorelDraw.Automation.7" --> WITHOBJECT "CorelDraw.Automation.8"
  823. '
  824. ' PARAMS: AppString$ - The application's automation object string.
  825. ' *******************************************************************************
  826. FUNCTION EditObject$(AppString$)
  827.     IF INSTR(AppString$, ".7") THEN
  828.         MID(AppString$, LEN(AppString$)-1, 1) = "8"
  829.     ENDIF
  830.     EditObject$ = AppString$
  831. END FUNCTION
  832.  
  833.  
  834. ' *******************************************************************************
  835. ' EditObject
  836. ' This function updates the registry key specifying the version number from 7 to 8
  837. '    "SOFTWARE\Corel\Corel *\7.0" --> "SOFTWARE\Corel\Corel *\8.0"
  838.  
  839. ' PARAMS: InputString$ - The registry key string.
  840. ' *******************************************************************************
  841. FUNCTION EditRegistry$(InputString$)
  842.     Pos% = INSTR(InputString$, "7.0")
  843.     IF Pos% THEN
  844.         MID(InputString$, Pos% , 3) = "8.0"
  845.     ENDIF
  846.     EditRegistry$ = InputString$
  847. END FUNCTION
  848.  
  849.  
  850.