functioncutstr(thestr,strlen)diml,t,cl=len(thestr)t=0fordxy=1tolc=Abs(asc(Mid(thestr,dxy,1)))ifc>255thent=t+2elset=t+1endifift>=strlenthenthev=left(thestr,dxy)exitforelsebu=strlen-tforbui=1tobustrbu=" "strbuall=strbuall&strbunextthev=thestr&strbuallstrbu=""strbuall=""endifnext...