字符串长度:控制输出字符串的长度,可以区别中英文来源: 发布时间:星期四, 2009年2月12日 浏览:185次 评论:0
研究了2小时如何控制输出文章标题中中英文给大家铁出来 在下面是思路方法是: strvalue(\"复请Email通知如果不填写则取注册Email\",26) 这里26是指26个英文字母也就是13个汉字 function strlen(str) dim p_len p_len=0 strlen=0 trim(str)<>\"\" then p_len=len(trim(str)) for xx=1 to p_len asc(mid(str,xx,1))<0 then strlen=(strlen) + 2 strlen=(strlen) + 1 end next end end function function strvalue(str,lennum) dim p_num dim i strlen(str)<=lennum then strvalue=str p_num=0 x=0 do while not p_num > lennum-2 x=x+1 asc(mid(str,x,1))<0 then p_num=(p_num) + 2 p_num=(p_num) + 1 end strvalue=left(trim(str),x)&\"…\" loop end end function 0
相关文章读者评论发表评论 |