home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 6 / corel-draw-6-cd1.iso / photopnt / convertp.csc < prev    next >
Encoding:
Text File  |  1995-08-18  |  6.4 KB  |  210 lines
  1. REM Paint Mass File Conversion Utility v1.0
  2. REM Convertd.csc July 19, 1995 
  3.  
  4. REM This script converts files between file types
  5. REM It opens all the specified files, then saves them as the new type, in the directory
  6. REM you specify
  7.  
  8. DECLARE SUB ConvertImage(Filename$, InputP$, OutputP$, OutExt$, FromType&, ToType&)
  9.  
  10. ' Following are all filter types with descriptions, filenames, AND extensions
  11. DIM FilterName(45) AS STRING
  12. DIM FilterExt(45) AS STRING
  13. DIM FilterType(45) AS LONG
  14.  
  15. FilterName(1) = "PostScript Interpreted (PS)"
  16. FilterExt(1) = "PS"
  17. FilterType(1) = 1290
  18. FilterName(2) = "GEM File (GEM)"
  19. FilterExt(2) = "GEM"
  20. FilterType(2) = 1284
  21. FilterName(3) = "Corel Presentation Exchange (CMX)"
  22. FilterExt(3) = "CMX"
  23. FilterName(4) = "Computer Graphics Metafile (CGM)"
  24. FilterExt(4) = "CGM"
  25. FilterType(4) = 1280
  26. FilterName(5) = "AutoCad (DXF)"
  27. FilterExt(5) = "DXF"
  28. FilterType(5) = 1296
  29. FilterName(6) = "OS/2 PM Metafile (MET)"
  30. FilterExt(6) = "MET"
  31. FilterType(6) = 1291
  32. FilterName(7) = "Macintosh Pict (PCT)"
  33. FilterExt(7) = "PCT"
  34. FilterType(7) = 1288
  35. FilterName(8) = "IBM PIF (PIF)"
  36. FilterExt(8) = "PIF"
  37. FilterType(8) = 1285
  38. FilterName(9) = "WordPerfect Graphics (WPG)"
  39. FilterExt(9) = "WPG"
  40. FilterType(9) = 1287
  41. FilterName(10) = "Corel Metafile (CMF)"
  42. FilterExt(10) = "CMF"
  43. FilterType(10) = 1295
  44. FilterName(11) = "Windows Metafile (WMF)"
  45. FilterExt(11) = "WMF"
  46. FilterType(11) = 1294
  47. FilterName(12) = "Encapsulated PostScript (EPS)"
  48. FilterExt(12) = "EPS"
  49. FilterType(12) = 1289
  50. FilterName(13) = "Lotus Freelance (PRE)"
  51. FilterExt(13) = "PRE"
  52. FilterType(13) = 1549
  53. FilterName(14) = "HPGL Plotter File (PLT)"
  54. FilterExt(14) = "PLT"
  55. FilterType(14) = 1281
  56. FilterName(15) = "Adobe Illustrator (AI)"
  57. FilterExt(15) = "AI"
  58. FilterType(15) = 1283
  59. FilterName(16) = "Corel Draw! (CDR)"
  60. FilterExt(16) = "CDR"
  61. FilterType(16) = 1795
  62. FilterName(17) = "JPEG Bitmaps (JPG)"
  63. FilterExt(17) = "JPG"
  64. FilterType(17) = 774
  65. FilterName(18) = "Windows Bitmap (BMP)"
  66. FilterExt(18) = "BMP"
  67. FilterType(18) = 769
  68. FilterName(19) = "Paintbrush (PCX)"
  69. FilterExt(19) = "PCX"
  70. FilterType(19) = 770
  71. FilterName(20) = "Targa Bitmap (TGA)"
  72. FilterExt(20) = "TGA"
  73. FilterType(20) = 771
  74. FilterName(21) = "Scitex CT Bitmap (SCT)"
  75. FilterExt(21) = "SCT"
  76. FilterType(21) = 776
  77. FilterName(22) = "CompuServe Bitmap (GIF)"
  78. FilterExt(22) = "GIF"
  79. FilterType(22) = 773
  80. FilterName(23) = "TIFF Bitmap (TIF)"
  81. FilterExt(23) = "TIF"
  82. FilterType(23) = 772
  83. FilterName(24) = "Corel PhotoPaint Image (CPT)"
  84. FilterExt(24) = "CPT"
  85. FilterType(24) = 1792
  86. FilterName(25) = "Windows 3.x/NT Icon Resource (ICO)"
  87. FilterExt(25) = "ICO"
  88. FilterType(25) = 785
  89. FilterName(26) = "Windows 3.x/NT Cursor Resource (CUR)"
  90. FilterExt(26) = "CUR"
  91. FilterType(26) = 784
  92. FilterName(27) = "Windows 3.x/NT Bitmap Resource (EXE)"
  93. FilterExt(27) = "EXE"
  94. FilterType(27) = 786
  95. FilterName(28) = "GEM Paint File (IMG)"
  96. FilterExt(28) = "IMG"
  97. FilterType(28) = 787
  98. FilterName(29) = "Kodak Photo CD Image (PCD)"
  99. FilterExt(29) = "PCD"
  100. FilterType(29) = 775
  101. FilterName(30) = "Picture Publisher 4 (PB4)"
  102. FilterExt(30) = "PB4"
  103. FilterType(30) = 789
  104. FilterName(31) = "Adobe Photoshop (PSD)"
  105. FilterExt(31) = "PSD"
  106. FilterType(31) = 788
  107. FilterName(32) = "MACPaint Bitmap (MAC)"
  108. FilterExt(32) = "MAC"
  109. FilterType(32) = 790
  110. FilterName(33) = "Wavelet Compressed Bitmap (WVL)"
  111. FilterExt(33) = "WVL"
  112. FilterType(33) = 777
  113. FilterName(34) = "CALS Compressed Bitmap (CAL)"
  114. FilterExt(34) = "CAL"
  115. FilterType(34) = 800
  116. FilterName(35) = "CorelCHART (CCH)"
  117. FilterExt(35) = "CCH"
  118. FilterType(35) = 1541
  119. FilterName(36) = "CorelMOVE (CMV)"
  120. FilterExt(36) = "CMV"
  121. FilterType(36) = 1539
  122. FilterName(37) = "CorelSHOW (SHW)"
  123. FilterExt(37) = "SHW"
  124. FilterType(37) = 1540
  125. FilterName(38) = "MicroSoft PowerPoint (PPT)"
  126. FilterExt(38) = "PPT"
  127. FilterType(38) = 1548
  128. FilterName(39) = "Video FOR Windows (AVI)"
  129. FilterExt(39) = "AVI"
  130. FilterType(39) = 1536
  131. FilterName(40) = "AutoDesk FLIC (FLI)"
  132. FilterExt(40) = "FLI"
  133. FilterType(40) = 1543
  134. FilterName(41) = "MPEG Animation (MPG)"
  135. FilterExt(41) = "MPG"
  136. FilterType(41) = 1551
  137. FilterName(42) = "OS/2 Bitmap (BMP)"
  138. FilterExt(42) = "BMP"
  139. FilterType(42) = 792
  140. FilterName(43) = "Corel TRACE (AI)"
  141. FilterExt(43) = "AI"
  142. FilterType(43) = 1301
  143.  
  144. MESSAGE "WARNING! Not every image format is convertible to every other image format!" + CHR(13) + "Check the conversion in COREL PhotoPaint (TM) before proceeding!"
  145.  
  146. BEGIN DIALOG AutoConvert 268, 97, "AutoConvert!"
  147.     TEXT  6, 4, 92, 8, "Path to the source directory:"
  148.     TEXTBOX  6, 16, 104, 13, InputPath$
  149.     TEXT  119, 4, 89, 8, "Type of files to convert from:"
  150.     DDLISTBOX  120, 16, 141, 150, FilterName$, InputTypeIndex%
  151.     TEXT  6, 35, 101, 8, "Path to the destination directory:"
  152.     TEXTBOX  6, 47, 104, 13, OutputPath$
  153.     TEXT  120, 34, 82, 8, "Type of files to convert to:"
  154.     DDLISTBOX  120, 47, 141, 150, FilterName$, OutputTypeIndex%
  155.     PUSHBUTTON  164, 72, 44, 16, "Convert"
  156.     CANCELBUTTON  216, 72, 44, 16
  157. END DIALOG
  158.  
  159. ' set some default paths
  160. InputPath$ = CURRFOLDER
  161. OutputPath$ = CURRFOLDER
  162.  
  163. ' show the dialog
  164. retval% = DIALOG(AutoConvert)
  165.  
  166. ' check FOR cancel
  167. IF retval = 2 THEN STOP
  168.  
  169. ' check FOR missing paths
  170. IF InputPath$ = "" OR OutputPath$ = "" THEN STOP
  171.  
  172. ' check FOR trailing backslash
  173. IF RIGHT(InputPath$, 1) = "\" THEN InputPath$ = LEFT(InputPath$, LEN(InputPath$) - 1)
  174. IF RIGHT(OutputPath$, 1) = "\" THEN OutputPath$ = LEFT(OutputPath$, LEN(OutputPath$) - 1)
  175.  
  176. ' retrieve the extensions
  177. InputExt$ = FilterExt(InputTypeIndex)
  178. OutputExt$ = FilterExt(OutputTypeIndex)
  179.  
  180. InputSearch$ = "*." + InputExt 
  181.  
  182. SearchCriteria$ = InputPath$ + "\" + "*." + InputExt$
  183. InputFile$ = FINDFIRSTFOLDER(SearchCriteria, 1 OR 2 OR 4 OR 8 OR 16 OR 32)
  184. DO WHILE InputFile$ <> ""
  185.     ConvertImage InputFile, InputPath, OutputPath, FilterExt(OutputTypeIndex), FilterType(InputTypeIndex), FilterType(OutputTypeIndex)
  186.     InputFile = FINDNEXTFOLDER()
  187. LOOP
  188.  
  189. '--------------------------------------------------------------------------
  190. SUB ConvertImage(Filename$, InputP$, OutputP$, OutExt$, FromType&, ToType&)
  191.  
  192.     ' set up the output filename
  193.     inputstring$ = inputp$ + "\" + filename
  194.     outputstring$ = outputp$ + "\" + LEFT(filename, LEN(filename$)-4) + "." + outext$
  195.  
  196.     ' determine which compression to use
  197.     IF OutExt = "JPG" THEN
  198.         Compression% = 3     
  199.     ELSE
  200.         Compression% = 0
  201.     ENDIF
  202.     
  203.     WITHOBJECT PAINT
  204.         .FileOpen inputstring, -1, -1, -1, -1, 0
  205.         .FileSave outputstring, ToType, Compression
  206.         .FileClose
  207.     END WITHOBJECT
  208.  
  209. END SUB
  210.