1、纯粹的截取字符串 代码如下:function cutstr(thestr1,strlen) dim l,t,c l=len(thestr1) if l255 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、截取字