Funktion cutstr(thestr,srlen)
dim l,t,c
l=len(thestr)
t=0
für dxy=1 bis l
c=Abs(asc(Mid(thestr,dxy,1)))
wenn c>255 dann
t=t+2
anders
t=t+1
Ende wenn
wenn t>=Stern, dann
thev=left(thestr,dxy)
Ausgang für
anders
bu=start-t
für bui=1 bis bu
strbu=
strbuall=strbull&strbu
nächste
thev=thestr&strbuall
strbu=
strbuall=
Ende wenn
nächste
cutstr=thev
Endfunktion
<%
'============================
's_cut_cut(type,num)
„Laut: Schneeflocken.“
'Instrumententyp,num
'type:SpecifyException
'num:Aktivierte Kennzeichenschlüssel
'===============================
Funktion w_cut(types,num)
dim ctypes,cnum,ci,tt,tc,cc
ctypes=types:cnum=int(num):w_cut=:tc=0:cc=0
für ci=1 bis length(ctypes)
Wenn cnum<0, dann w_cut=w_cut&...:exit für
tt=mid(ctypes,ci,1)
wenn int ( asc ( tt ) ) >= 0 dann
w_cut=w_cut&tt
tc=tc+1:cc=cc+1
wenn tc=2 dann
tc=0:cnum=cnum-1
Ende wenn
Wenn cc > 5, dann cnum = cnum - 1 : cc =
anders
cnum=cnum-1
Wenn cnum<=0, dann w_cut=w_cut&...:exit für
w_cut=w_cut&tt
Ende wenn
nächste
Funktion beenden
%>