[PSPad] PSPad的Scripting功能初探

2006/06/09 |

| 點擊數: 1 / 2806

由於Java IDE通常都很龐大，開啟時會耗費許多系統資源與載入時間，因此有些小程式或修改幅度不大的程式，經常都是使用PSPad之類的文書編輯系統來直接修改，修改、測試完成後就複製到實際運行環境，先前發表的[Windows] 部署相同目錄結構檔案的簡便方法就是為了方便複製檔案而寫的小Script，因為PSPad由4.3版開始就提供了透過WScrip執行的Script環境，所以特別的研究要如何簡化複製程式的作法。

PSPad
安裝目錄的Scripts資料夾與功能表的Scripts是對應的，我們把要執行的VBScript或JavaScript放到對應的資料夾裡，再透過
Scripts功能表裡的【重新編譯 Scripts】來重新產生其下的功能表與各Script檔；例如功能表上的VBScript
sample對應的檔案就是C:\Program Files\PSPad\Scripts\VBScript\Sample.vbs，VBScript Sample的子功能選項就是Sample.vbs裡的多個副常式(Sub routine)。

PSPad的Script有幾個固定的格式必須遵守：

開頭標明程式名稱（稱為module_name），其名稱必須唯一
必須有Init副常式，在Init裡以addMenuItem將可供執行的副常式加到功能表上；addMenuItem最多可有４個參數：
1. 功能選項字串：顯示在功能表上的標題文字
2. 上層功能選項名稱：若為空白則該副常式在Scripts功能表獨立一項，若有別的字串，則為該字串的子功能選項
3. 副常式名稱字串
4. 執行此常式的快速鍵字串（選項，可有可無）

Sample.vbs範例如下(其結果由PSPad的Scripts可看到)：

const module_name = "VBSample" ‘this name must be unique !!!
const module_ver = "0.001a" ‘version

‘ name "Init" is required, its called automatically during initialization to create menu items
sub Init
addMenuItem "Print all files","", "PrintAll", "Shift+Ctrl+P" ‘ 自己佔獨立一列，無子功能表; 定義了快速鍵
addMenuItem "Main method", "VBscript sample", "Main" ’ 在VBscript sample項目下的子功能選項
addMenuItem "PSPad version","VBscript sample", "Demo1″
addMenuItem "Script module version","VBscript sample", "Demo2″
addMenuItem "Open script file","VBscript sample", "Demo3″
addMenuItem "LOG Access","VBscript sample", "DemoLog"
end sub

複製檔案到以網路磁碟機連結的主機的程式如下：

const module_name = "duplicate" ‘this name must be unique !!!
const module_ver = "0.001a" ‘version

sub Init
addMenuItem "同步到主機", "", "duplicate", "CTRL+M"
end sub

sub duplicate
dim oEditor, sSource, sTarget, sDrive

set oEditor = newEditor()           ‘new editor object
oEditor.assignActiveEditor ‘ 把oEditor設定成編輯中的檔案
sSource = oEditor.fileName() ‘取出檔案全名(含路徑)
sTarget = Mid(sSource,2,99) ‘ 去掉磁碟機代號
if InStr(sSource, "\xyz\") > 0 then ‘ 檔名中有\xyz\則複製到m:，否則複製到o:
    sDrive = "m"
else
    sDrive = "o"
end if
sTarget = sDrive + sTarget
oEditor.saveFileAs(sTarget) ‘ 另存檔案到主機同名目錄
msgBox(sSource + " 同步到==> " + sTarget)
‘oEditor.closeFile
oEditor.openFile(sSource) ’ 檔名已變成主機的檔名，必須再重新開回原來檔名
end sub