1、純粹的截取字符串
複製代碼代碼如下:
functioncutstr(thestr1,strlen)
diml,t,c
l=len(thestr1)
ifl<1thenexitfunction
t=0
fordxy1=1tol
c=Abs(asc(Mid(thestr1,dxy1,1)))
ifc>255then
t=t+2
else
t=t+1
endif
ift>=strlenthen
thev=mid(thestr1,1,dxy1)
exitfor
else
thev=thestr1
endif
next
cutstr=thev
endfunction
2、截取字符串，不足用空格補上
複製代碼代碼如下:
functioncutstr(thestr,strlen)
diml,t,c
l=len(thestr)
t=0
fordxy=1tol
c=Abs(asc(Mid(thestr,dxy,1)))
ifc>255then
t=t+2
else
t=t+1
endif
ift>=strlenthen
thev=left(thestr,dxy)
exitfor
else
bu=strlen-t
forbui=1tobu
strbu=""
strbuall=strbuall&strbu
next
thev=thestr&strbuall
strbu=""
strbuall=""
endif
next
cutstr=thev
endfunction