2. 程式人生 > >利用PHOTOSHOP CS 和 指令碼實現批量自動處理圖片

利用PHOTOSHOP CS 和 指令碼實現批量自動處理圖片

阿新 • • 發佈：2019-02-18
OptionExplicit

''Batch converter  for Photoshop CS2(Not tested for CS1)
'author: cangwu.lee # gmail.com

'saving parameter
Const psSaveChanges          =1
Const psDoNotSaveChanges     =2
Const psPromptToSaveChanges  =3

'Jpeg Option
Const psStandardBaseline     =1
Const psOptimizedBaseline    =2
Const psProgressive          
=3

'saveAs PsExtensionType
Const PsExtensionType_psLowercase  =2
Const PsExtensionType_psUppercase  =3

'PsDialogModes
Const psDisplayAllDialogs    =1
Const psDisplayErrorDialogs  =2
Const psDisplayNoDialogs     =3

const imageFilter =";PSD;BMP;JPG;JPEG;GIF;PNG;"'image file type to process

dim directory, jsxFile, jpeg_quality
directory    ="c: emp"'change  to point to your photos folder
jsxFile      ="C:/Program Files/Adobe/Adobe Photoshop CS2/Presets/Scripts/exif_info.jsx"
jpeg_quality =8'between 1~12
'將這3個變數改成你的實際需要。

call convert2jpegByFolder()




'
Function convert2jpegByFolder()
    Dim i
    Dim fs, objFiles, objFile, ext, idone, ierror
    Set fs =CreateObject("Scripting.FileSystemObject")
    IfNot fs.fileExists(jsxFile) Then
        MsgBox"The .jsx file NOT exists."
        ExitFunction
    EndIf
    IfNot fs.folderexists(directory) Then
        MsgBox"Photo directory NOT exists."
        ExitFunction
    EndIf

    Dim appRef '  As Photoshop.Application
Dim docRef ' As Photoshop.Document
    
    Set appRef =GetObject("", "Photoshop.Application")
    If Err.Number <>0Then
        Set appRef =CreateObject("Photoshop.Application")
    EndIf
    If appRef IsNothingThen
        MsgBox"Photoshop Appliaction object exception."
        ExitFunction
    EndIf

    Dim jpgOpt'Photoshop.JPEGSaveOptions
Set jpgOpt =CreateObject("Photoshop.JPEGSaveOptions")
    With jpgOpt
        .FormatOptions = psStandardBaseline
        .Quality = jpeg_quality '0~12
EndWith

    appRef.Preferences.TypeUnits =1'for PsTypeUnits --> 1 (psPixels)
    appRef.DisplayDialogs = psDisplayNoDialogs

    Set objFiles = fs.GetFolder(directory).Files
    If Err.Number <>0ThenMsgBox Err.Description: ExitFunction
    OnErrorGoTo0
    
    MsgBox"All file in the directory conuters:"& objFiles.Count &chr(13) &chr(10) &"Click 'OK' to continue."
    idone =0
    ForEach objFile In objFiles
        ext =";"&UCase(fs.GetExtensionName(objFile.Path)) &";"
        Ifinstr(1, imageFilter, ext, 1)>0Then
        
            'set docRef = appRef.Documents.Add(1024, 768)
Set docRef = appRef.Open(objFile.Path)
            If docRef IsNothingThen
                MsgBox"Create/open image document failed."
            Else
                'setting current picture document
Set appRef.ActiveDocument = docRef
                
                'begin to process
OnErrorResumeNext
                Call appRef.DoJavaScriptFile(jsxFile)
                If Err.Number =0Then
                    For i =0To30000
                        'waiting for some times
Next
                    Call docRef.SaveAs(objFile.Path &".jpg", jpgOpt, True, PsExtensionType_psLowercase)
                Else
                    ierror = ierror +1
                EndIf
                OnErrorGoTo0
                'close document
Call docRef.Close(psDoNotSaveChanges)
                idone = idone +1''counter
Set docRef =Nothing' free document object
EndIf
        EndIf
        
    Next
    MsgBox"Image files:"& idone &chr(13) &chr(10) &"File error:"& ierror


    Set appRef =Nothing

End Function

相關推薦

利用PHOTOSHOP CS 和 指令碼實現批量自動處理圖片

OptionExplicit''Batch converter  for Photoshop CS2(Not tested for CS1)'author: cangwu.lee # gmail.com'saving parameterConst psSaveChanges          =1Const 

shell指令碼實現批量自動redis反彈shell攻擊

一、shell實現redis反彈shell [[email protected] attack]# cat shell_rebound.sh #!/bin/bash ##create b

ftp指令碼實現ftp自動處理

比如下面一段指令碼存成一個檔案ftpcommand.ftpopen 10.192.77.53informix1put haha.txtquit 意思為開啟10.192.77.53 ，使用者名稱為informix，密碼為1。然後執行ftp命令呼叫時為： ftp -s:ftpco

Linux 指令碼實現批量新增和刪除普通使用者

（1）Linux中用指令碼實現批量新增和刪除普通使用者 https://blog.csdn.net/qq_38038143/article/details/71655771 （2）Linux————Linux下批量建立使用者並設定密碼（shell指令碼） https://blog.csd

利用Topshelf搭建Windowns服務實現定期自動新增資料邏輯和原理

一、Topshelf基本配置 using System; using System.Collections.Generic; using System.Linq; using System.Text; using Topshelf; namespace MealTim

Linux——kickstart：實現批量自動安裝linux系統

如何實現批量自動安裝linux系統功能 > httpd+dhcp+kickstart+指令碼=PXE （1）開啟httpd服務 注： 首先要搭建本地yum源用yum下載httpd，這裡的客戶端已經下載過，就不再贅述 讀者對此有疑惑的，可以檢視文章Linux——搭建本地yum

利用python wxpy和requests寫一個自動應答微信機器人例項

在做測試的過程中，同事們經常需要獲取一個賬戶的token和個人資訊，我自己利用spring boot寫了一個介面，但是對於APP測試同學來說不是很方便，因為需要複製這個token到APP裡面去，所以我做了一個微信自動應答的機器人，來實現這個需求。 思路如下：利用wxpy拿到對方發來的資訊，然後簡

C#解析Mysql的sql指令碼實現批量匯入資料

最近老大對我們做的資料匯入功能意見挺大，資料量一上來，匯入時間就很長，嚴重影響使用者體驗。因此，不得不花時間搗鼓了一下資料匯入的效能優化問題 原始程式碼： MySqlCommand command = new MySqlCommand(); command.Connection = conn

Linux下Shell指令碼實現批量重新命名資料夾，批量重新命名檔案（讓原本繁重的工作變得簡單）

最近接了個專案，具體做什麼都不說了，其中有個工作就是批量更改資料夾，然後批量更改資料夾下的檔名字，一會兒先貼程式碼，再詳細解釋步驟。 下面是我的簡化版的目錄結構，實際上有上百個。 project dir1 dir1.py dir2

[shell]shell指令碼實現每天自動抽取資料插入hive表

#!/bin/bash source /etc/profile source ~/.bashrc M_DATE=$(date -d'-1 day' +%m) #取系統日期前一天的月份 spark-sql -e" insert overwrite table db.t

linux 指令碼實現程式自動安裝

#!/bin/bash //設定指令碼中所需命令的執行路徑 PATH=/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:~/bin export PATH // $? 是取得上面執行命令的返回值，一般正確為0，錯誤為1 if [ "

Shell指令碼實現應用自動安裝部署

#!/bin/bash //設定指令碼中所需命令的執行路徑 PATH=/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:~/bin export PATH // $? 是取得上面執行命令的返回值，一般正確為0，錯誤為1 if [ "

JS指令碼實現瀏覽器自動點選（阿里員工秒殺月餅）

秒殺活動頁面 <!DOCTYPE HTML> <html> <head> <meta http-equiv="Content-Type" content="text/html; charse

JAVA通過Session和Cookie實現網站自動登入的技術

 本方案為我這個站點當前使用的，能用，但不保證是最先進的。 原文：http://www.java2000.net/p1010第一步，登陸的時候一旦選擇了[自動登入]的選項，則需要在登陸成功後，附加下面的程式碼 應為一般網站都提供儲存使用者名稱的功能，所以我把這個寫到了外面。

Dockerfile 構建前端node應用並用shell指令碼實現jenkins自動構建

cat Dockerfile.node.pre FROM centos MAINTAINER zhao*******h.cn ENV LANG en_US.UTF-8 RUN /bin/cp /usr/share/zoneinfo/Asia/Shanghai /etc/localtime &

Dockerfile 構建前端nginx應用並用shell指令碼實現jenkins自動構建

Dockerfile 檔案構建docker映象 FROM centos MAINTAINER zh********h.cn RUN rm -f /etc/nginx/nginx.conf COPY nginx.conf /etc/nginx/nginx.conf WORKDIR / RUN

JS指令碼實現瀏覽器自動點選（阿里員工秒殺月餅）(轉)

僅為本人學習，筆記使用 阿里雲月餅 秒殺頁面 <!DOCTYPE HTML> <html> <head> <meta http-equiv="Content-Type" conten

利用原生js和jQuery實現單選框的勾選和取消操作

根據以下的Demo，大概就可以看的明白 Demo: <html> <head> <script src='jquery-1.9.1.min.js'></sc

利用遞迴和迴圈實現快速排序

#include <iostream> #include <queue> using namespace std; typedef std::pair<int ,int> queue_data; queue<queue_data>

Linux下利用七牛雲和crontab實現定時自動備份

linux自帶crontab定時任務 mysql自帶mysqldump  系統自帶壓縮工具 然後參考以下兩篇文章： 簡介 qrsync 是一個根據七牛雲端儲存API實現的簡易命令列輔助上傳同步工具，支援斷點續上傳，增量同步，它可將使用者本地的某目錄的檔案同步到七