home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1998 October / dpcb1098.iso / Business / Ventura / Ventura / Scripts / UnSpace.csc < prev    next >
Encoding:
Text File  |  1998-07-07  |  9.3 KB  |  269 lines
  1. REM Removes double spaces [CorelSCRIPT 8]
  2. REM UnSpace.csc  March, 1998
  3. REM ⌐ 1998 Corel Corporation. All rights reserved.
  4.  
  5. REM **************************************************************************************
  6. REM This script replaces every instance of a double space with a single space.
  7. REM You need an open publication to run this script.
  8. REM **************************************************************************************
  9.  
  10. ' Create a temporary folder to provide a path for the include files
  11. '  -this enables the include files to be located 
  12. #addfol "..\..\Scripts"
  13. #include "ScpConst.csi"
  14. #include "VPConst.csi"
  15.  
  16. ' Embed bitmaps if script is to be compiled into exe or csb formats
  17. ' -this will eliminate the need to include these files
  18. #ADDRESBMP IntroBMP "Bitmaps\IntroBMP.bmp"
  19. #ADDRESBMP LastBMP "Bitmaps\LastBMP.bmp"
  20.  
  21. 'Constants for Dialog Return Values
  22. GLOBAL CONST DIALOG_RETURN_CANCEL% = 2
  23. GLOBAL CONST DIALOG_RETURN_NEXT% = 3
  24. GLOBAL CONST DIALOG_RETURN_BACK% = 4
  25. GLOBAL CONST DIALOG_RETURN_BROWSE% = 5
  26.  
  27. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////////////////
  28. DECLARE SUB RegQuery()
  29. DECLARE FUNCTION ShowIntro%()
  30. DECLARE FUNCTION ShowFinish%()
  31. DECLARE FUNCTION RemoveSpaces%()
  32.  
  33. '/////GLOBAL VARIABLES //////////////////////////////////////////////////////////
  34. GLOBAL VenturaRoot$        'root directory where Ventura is installed
  35.  
  36. '////// LOCAL VARIABLES /////////////////////////////////////////////////////////
  37. CONST MAXSTEP% = 3        'maximum number of pages in the Wizard
  38. DIM DialogReturn%        'identifies user's selection for next step in Wizard                                        
  39. DIM NextStep%            'specifies which page appears next in the Wizard
  40.  
  41. ' **************************************************************************************
  42. ' MAIN
  43. ' **************************************************************************************
  44. ON ERROR GOTO ErrorHandler
  45.  
  46. RegQuery                'get root directory where Ventura is installed
  47.  
  48. 'this section controls traversal through the dialog pages
  49. NextStep% = 1
  50. DO
  51.     SELECT CASE NextStep%
  52.         CASE 1: DialogReturn%  = ShowIntro()        
  53.         CASE 2: DialogReturn%  = RemoveSpaces()        
  54.         CASE 3: DialogReturn%  = ShowFinish()        
  55.     END SELECT
  56.     NextStep% = NextStep% + DialogReturn% 
  57. LOOP UNTIL NextStep% = MAXSTEP + 1
  58.  
  59. ExitScript:
  60. STOP
  61. ErrorHandler:
  62. SELECT CASE ErrNum
  63.     CASE 800
  64.         MESSAGE "FATAL ERROR" & CHR(13) & "Script will now exit."
  65.         RESUME AT ExitScript
  66.     CASE ELSE
  67.         MESSAGE "ERROR: " & STR(ErrNum) & CHR(13) & "Script will now exit."
  68.         RESUME AT ExitScript
  69.     END SELECT
  70.  
  71.  
  72. ' *******************************************************************************
  73. ' RegQuery
  74. ' This subroutine queries the Registry to determine the root directory where 
  75. ' Ventura is installed.
  76. ' *******************************************************************************
  77. SUB RegQuery
  78. ON ERROR GOTO ErrorHandler
  79.  
  80.     'get Ventura config directory
  81.     VentDir$ = REGISTRYQUERY(HKEY_LOCAL_MACHINE,VENTURA_REGQUERY_CONST,"ConfigDir")     
  82.     
  83.     'isolate Ventura root directory from Ventura config directory
  84.     first% = 1
  85.     pos% = 1
  86.     DO WHILE first <> 0
  87.         first = INSTR(VentDir$, "\", first )
  88.         IF first <> 0 THEN
  89.             pos = first
  90.             first = first + 1
  91.         END IF
  92.     LOOP
  93.     VenturaRoot$ = LEFT(VentDir$, pos - 1)     'root directory where Ventura is installed
  94.  
  95. EXIT SUB
  96. ErrorHandler:
  97.     MESSAGE "Error reading registry:" & CHR(13) & RegString$
  98.     ErrNum = 800
  99. END SUB
  100.  
  101.  
  102. ' *******************************************************************************
  103. ' ShowIntro
  104. ' This function displays the introduction dialog.
  105. ' 
  106. ' PARAMS: None
  107. '
  108. ' RETURNS: ShowIntro AS INTEGER - Integer indicating dialog return value.
  109. ' *******************************************************************************
  110. FUNCTION ShowIntro%
  111. BEGIN DIALOG OBJECT IntroDialog 290, 180, "Ventura Space Remover", SUB IntroDialogEventHandler
  112.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  113.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  114.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  115.     TEXT  95, 10, 185, 20, .Text2, "This wizard removes all double spaces from your publication."
  116.     TEXT  95, 40, 185, 12, .Text3, "To begin removing spaces, click Next."
  117.     IMAGE  10, 10, 75, 130, .IntroImage
  118.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  119. END DIALOG
  120.  
  121.     IntroDialog.SetStyle STYLE_INVISIBLE
  122.     IntroDialog.IntroImage.SetImage "#IntroBMP"
  123.     IntroDialog.IntroImage.SetStyle STYLE_IMAGE_CENTERED
  124.  
  125.     IntroRet%=DIALOG(IntroDialog)
  126.     IF IntroRet% = DIALOG_RETURN_CANCEL THEN STOP            
  127.     IF IntroRet% = DIALOG_RETURN_NEXT THEN ShowIntro = 1        
  128. END FUNCTION
  129.  
  130.  
  131. ' *******************************************************************************
  132. ' IntroDialogEventHandler
  133. ' This subroutine responds to user interface with the introduction dialog.
  134. ' 
  135. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  136. '                            generating a dialog event.
  137. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  138. ' *******************************************************************************
  139. SUB IntroDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  140.     IF Event% = EVENT_INITIALIZATION THEN         
  141.         IntroDialog.BackButton.Enable FALSE 
  142.         IntroDialog.SetStyle STYLE_VISIBLE
  143.     ENDIF
  144.     IF Event% = EVENT_MOUSE_CLICK THEN     
  145.         SELECT CASE ControlID%
  146.             CASE IntroDialog.NextButton.GetID()
  147.                 BEGINWAITCURSOR
  148.                 WITHOBJECT OBJECT_VENTURA8
  149.                 ENDWAITCURSOR
  150.                     'Make sure there is an open pub
  151.                     IF .CountWindows() = 0 THEN
  152.                         PubMsg$ = "You need an open publication to run this script." & CHR(13) & "Open one now?"
  153.                         MsgVal% = MESSAGEBOX(PubMsg$, "WARNING", MB_YES_NO OR MB_STOP_ICON)
  154.                         IF MsgVal% = MSG_YES THEN         'Yes, open a pub
  155.                             SETCURRFOLDER VenturaRoot$
  156.                             PubName$ = GETFILEBOX("Publication files (*.VP*)|*.VP*", , , ,"*.vp*", VenturaRoot$ & "\Ventura\Samples" )
  157.                             IF PubName$ <> "" THEN
  158.                                 .SetVisible TRUE
  159.                                 .FileOpen PubName$, , TRUE, 1, TRUE, FALSE
  160.                                 IntroDialog.closedialog DIALOG_RETURN_NEXT
  161.                             ENDIF
  162.                         ELSE
  163.                             'STOP
  164.                         ENDIF
  165.                     ELSE
  166.                         IntroDialog.closedialog DIALOG_RETURN_NEXT
  167.                     ENDIF
  168.                 END WITHOBJECT
  169. '                IntroDialog.CloseDialog DIALOG_RETURN_NEXT
  170.             CASE IntroDialog.CancelButton.GetID()
  171.                 IntroDialog.CloseDialog DIALOG_RETURN_CANCEL
  172.         END SELECT
  173.     ENDIF
  174. END SUB
  175.  
  176.  
  177. ' *******************************************************************************
  178. ' RemoveSpaces
  179. ' This function removes all double spaces in the active publication.
  180. ' 
  181. ' PARAMS: None
  182. '
  183. ' RETURNS: RemoveSpaces AS INTEGER - Integer indicating dialog return value.
  184. ' *******************************************************************************
  185. FUNCTION RemoveSpaces%
  186. ON ERROR GOTO ErrorHandler
  187.  
  188.     DIM Found AS BOOLEAN
  189.     WITHOBJECT OBJECT_VENTURA8
  190.         .PageFirstLine
  191.         .EditInitFindText SPACE(2), SPACE(1)
  192.         DO
  193.             .EditReplace TRUE
  194.             Found = .EditFindText()    
  195.         LOOP UNTIL Found = FALSE
  196.         RemoveSpaces = 1
  197.  
  198. ExitFunction:
  199.     END WITHOBJECT
  200. EXIT FUNCTION
  201.  
  202. ErrorHandler:
  203.     RESUME AT ExitFunction
  204.     
  205. END FUNCTION
  206.  
  207.  
  208. ' *******************************************************************************
  209. ' ShowFinish
  210. ' This function displays the finish dialog.
  211. '
  212. ' PARAMS:None
  213. '
  214. ' RETURNS: ShowFinish AS INTEGER - Integer indicating dialog return value.
  215. ' *******************************************************************************
  216. FUNCTION ShowFinish%
  217. BEGIN DIALOG OBJECT FinishDialog 290, 180, "Ventura Space Remover", SUB FinishDialogEventHandler
  218.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Done"
  219.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  220.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  221.     TEXT  95, 10, 185, 12, .Text1, "All double spaces have been removed."
  222.     TEXT  95, 30, 185, 12, .Text2, "To run this wizard again, click Back."
  223.     TEXT  95, 50, 185, 12, .Text3, "To exit, click Done."
  224.     IMAGE  10, 10, 75, 130, .FinishImage
  225.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  226. END DIALOG
  227.  
  228.     FinishDialog.SetStyle STYLE_INVISIBLE
  229.     FinishDialog.FinishImage.SetImage "#LastBMP"
  230.     FinishDialog.FinishImage.SetStyle STYLE_IMAGE_CENTERED
  231.  
  232.     FinishRet%=DIALOG(FinishDialog)
  233.     SELECT CASE FinishRet%
  234.         CASE DIALOG_RETURN_CANCEL        
  235.             STOP
  236.         CASE DIALOG_RETURN_NEXT        
  237.             ShowFinish = 1
  238.         CASE DIALOG_RETURN_BACK         
  239.             ShowFinish = -2
  240.     END SELECT
  241. END FUNCTION
  242.  
  243.  
  244. ' *******************************************************************************
  245. ' FinishDialogEventHandler
  246. ' This subroutine handles events for the finish dialog.
  247. ' 
  248. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  249. '                            generating a dialog event.
  250. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  251. ' *******************************************************************************
  252. SUB FinishDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  253.     IF Event% = EVENT_INITIALIZATION THEN     
  254.         FinishDialog.SetStyle STYLE_VISIBLE
  255.         FinishDialog.CancelButton.Enable FALSE
  256.     ENDIF
  257.     
  258.     IF Event% = EVENT_MOUSE_CLICK THEN     
  259.         SELECT CASE ControlID%
  260.             CASE FinishDialog.NextButton.GetID()
  261.                 FinishDialog.CloseDialog DIALOG_RETURN_NEXT
  262.             CASE FinishDialog.BackButton.GetID()
  263.                 FinishDialog.CloseDialog DIALOG_RETURN_BACK
  264.             CASE FinishDialog.CancelButton.GetID()
  265.                 FinishDialog.CloseDialog DIALOG_RETURN_CANCEL
  266.         END SELECT
  267.     ENDIF
  268. END SUB
  269.