[PSPad] PSPad的Scripting功能初探

' 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

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