函数 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
结束如果
下一个
结束功能
%>