如果标题过长,因为页面布局的限制,只能列表10个字符,这个函数会帮你实现的
代码如下:
‘截取字符串 strvalue(标题,字数)
function strvalue(str,lennum)
dim p_num
dim i
if strlen(str) lennum-2
x=x+1
if asc(mid(str,x,
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、截取字