函數 cutstr(thestr,srlen)
昏暗的l、t、c
l=len(thestr)
時間=0
對於 dxy=1 到 l
c=Abs(asc(Mid(thestr,dxy,1)))
如果 c>255 則
t=t+2
別的
t=t+1
結束如果
如果 t>=星 則
thev=左(thestr,dxy)
退出
別的
bu=星-t
對於 bui=1 到 bu
斯特布=
strbuall=strbull&strbu
下一個
thev=thestr&strbuall
斯特布=
strbuall=
結束如果
下一個
cutstr=thev
結束函數
<%
'================================
's_cut_cut(類型,數字)
'據：雪花
'儀器類型，編號
'類型：指定異常
'num:啟用的車牌金鑰
'====================================
函數 w_cut(類型,num)
昏暗的 ctypes,cnum,ci,tt,tc,cc
ctypes=型別:cnum=int(num):w_cut=:tc=0:cc=0
對於 ci=1 到長度(ctypes)
如果 cnum<0 則 w_cut=w_cut&...:退出
tt=mid(ctypes,ci,1)
如果 int ( asc ( tt ) ) >= 0 那麼
w_cut=w_cut&tt
tc=tc+1:cc=cc+1
如果 tc=2 那麼
tc=0:cnum=cnum-1
結束如果
若 cc > 5 則 cnum = cnum - 1 : cc =
別的
cnum=cnum-1
如果 cnum<=0 則 w_cut=w_cut&...:退出
w_cut=w_cut&tt
結束如果
下一個
結束功能
%>