функция Cutstr(thestr,srlen)
тусклый л, т, с
l=len(тестр)
т=0
для dxy=1 до l
c=Abs(asc(Mid(thestr,dxy,1)))
если с>255, то
т=т+2
еще
т=т+1
конец, если
если t>=звезда, то
thev = влево (thestr, dxy)
выход для
еще
bu=старт-т
для буй = от 1 до бу
стрбу=
strbuall=strbull&strbu
следующий
thev=thestr&strbuall
стрбу=
strbuall=
конец, если
следующий
Cutstr=тев
конечная функция
<%
'===========================
's_cut_cut(тип,число)
'По: снежинки
'Тип прибора, номер
'тип: SpecifyException
'num:Включенные ключи номерного знака
'==============================
Функция w_cut(типы,число)
dim 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&тт
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 для
w_cut=w_cut&тт
конец, если
следующий
Конечная функция
%>