función cutstr(thestr,srlen)
tenue l,t,c
l=len(thestr)
t=0
para dxy=1 a l
c=Abs(asc(Medio(thestr,dxy,1)))
si c>255 entonces
t=t+2
demás
t=t+1
terminar si
si t>=estrella entonces
thev=izquierda(thestr,dxy)
salida para
demás
bu=iniciar-t
para bui=1 a bu
strbu=
strbuall=strbull&strbu
próximo
thev=thestr&strbuall
strbu=
strbuall=
terminar si
próximo
cutstr=thev
función final
<%
'=============================
's_cut_cut(tipo,núm)
'Según: copos de nieve
'Tipo de instrumento,num
'tipo:EspecificarExcepción
'num:Claves de matrícula habilitadas
'=================================
Función w_cut(tipos,num)
tipos de luz tenues,cnum,ci,tt,tc,cc
ctypes=tipos:cnum=int(num):w_cut=:tc=0:cc=0
para ci=1 a longitud(ctypes)
si cnum<0 entonces w_cut=w_cut&...:salir para
tt=medio(ctipos,ci,1)
si int (asc (tt)) >= 0 entonces
w_cut=w_cut&tt
tc=tc+1:cc=cc+1
si tc=2 entonces
tc=0:cnum=cnum-1
terminar si
si cc > 5 entonces cnum = cnum - 1 : cc =
demás
cnum=cnum-1
si cnum<=0 entonces w_cut=w_cut&...:salir para
w_cut=w_cut&tt
terminar si
próximo
Función final
%>