以下**演示如何從notes文件中拆離excel格式的檔案到指定路徑c:/
sub initialize
on error goto errhandle
dim ss as new notessession
dim doc as notesdocument
dim varfile as variant
dim i as integer
dim obj as notesembeddedobject
set doc=ss.documentcontext
varfile=evaluate(,doc)
'沒有附件退出
if varfile(0)="" then exit sub
'從文件中拆離附件
for i=0 to ubound(varfile)
'根據檔案字尾拆離excel檔案
if lcase(strrightback(varfile(i),"."))<>"xls" then
set obj=doc.getattachment(varfile(i))
'檔案拆離儲存路徑
call obj.extractfile("c:/" & varfile(i))
end if
next
exit sub
errhandle:
msgbox "error" & err & " erl:" & erl
end sub
CAS客戶端的拆離
一般來說都是去整合或者整合cas，但是今天記錄的確是反著來的，即把cas從現有系統中給剔除掉，不用它了。遇到一個場景是這樣子的 需要將原有的cas認證體系去除掉 其他團隊做的一個門戶系統 換做一個另一個簡易的認證中心。為了保持系統的擴充套件性，需要在儘量不修改原來的 的基礎上完成遷移。要儘量少的改動...
偵錯程式與被除錯程序的拆離以及結束被除錯程序的實現
呼叫windowsapi debugactiveprocessstop 停止偵錯程式除錯指定的程序 bool debugactiveprocessstop dword dwprocessid 引數程序id 可以在偵錯程式建立程序時呼叫 createprocess 的最後一個引數 lpprocessi...