thev=mid(thestr1,1,dxy1) exit for else thev=thestr1 end if next cutstr=thev end function 2、截取字符串,不足用空格補上 復(fù)制代碼代碼如下: function cutstr(thestr,strlen) dim l,t,c l=len(thestr) t=0 for dxy=1 to l c=Abs(asc(Mid(thestr,dxy,1))) if c>255 then t=t+2 ...
www.dbjr.com.cn/article/7...htm 2025-5-29