fonction cutstr(thestr,srlen)
faible l, t, c
l=len(lestr)
t=0
pour dxy=1 à l
c=Abs(asc(Mid(thestr,dxy,1)))
si c>255 alors
t=t+2
autre
t=t+1
finir si
si t>=étoile alors
thev=gauche(thestr,dxy)
sortie pour
autre
bu = étoile-t
pour bui=1 à bu
strbu=
strbuall=strbull&strbu
suivant
thev=thestr&strbuall
strbu=
strbuall=
finir si
suivant
cutstr=thev
fonction de fin
<%
'=============================
's_cut_cut(type,num)
'Selon : flocons de neige
'Type d'instrument, numéro
'type : SpécifierException
'num : Clés de plaque d'immatriculation activées
'================================
Fonction w_cut(types,num)
dim ctypes, cnum, ci, tt, tc, cc
ctypes=types:cnum=int(num):w_cut=:tc=0:cc=0
pour ci=1 à longueur(ctypes)
si cnum<0 alors w_cut=w_cut&...:sortie pour
tt=milieu(ctypes,ci,1)
si int ( asc ( tt ) ) >= 0 alors
w_cut=w_cut&tt
tc=tc+1:cc=cc+1
si tc=2 alors
tc=0:cnum=cnum-1
finir si
si cc > 5 alors cnum = cnum - 1 : cc =
autre
cnum=cnum-1
si cnum<=0 alors w_cut=w_cut&...:exit pour
w_cut=w_cut&tt
finir si
suivant
Fonction de fin
%>