1、纯粹的截取字符串 代码如下:function cutstr(thestr1,strlen) dim l,t,c l=len(thestr1) if l<1 t=0 for dxy1=1 to l c=Abs(asc(Mid(thestr1,dxy1,1)))>255 then t=t+2 else t=t+1 end if if t>=strlen then thev=mid(thestr1,1,dxy1) exit for else thev=thestr1 end if next cutstr=thev end function2、截取字