함수 cutstr(thestr,srlen)
희미한 l,t,c
l=len(thestr)
티=0
dxy=1 ~ l의 경우
c=Abs(asc(Mid(thestr,dxy,1)))
c>255이면
티=티+2
또 다른
티=티+1
종료하면
t>=별이면
thev=왼쪽(thestr,dxy)
종료
또 다른
bu=스타-t
bui=1에서 bu로
strbu=
strbuall=strbull&strbu
다음
thev=thestr&strbuall
strbu=
strbuall=
종료하면
다음
cutstr=thev
종료 기능
<%
'============================
's_cut_cut(유형,번호)
'에 따르면: 눈송이
'기기 유형,번호
'유형:예외 지정
'num:활성화된 번호판 키
'===============================
함수 w_cut(유형, 숫자)
희미한 ctypes,cnum,ci,tt,tc,cc
ctypes=유형:cnum=int(숫자):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&...:exit for
w_cut=w_cut&tt
종료하면
다음
기능 종료
%>