控制输出字符串的长度,可以区别中英文

作者: kingljx 来源: 日期:2002-7-30
研究了2小时怎么控制输出文章标题中的中英文,给大家铁出来 
函数在下面,是方法是: 
strvalue("复请Email通知如果不填写则取注册Email",26) 
这里26是指26个英文字母,也就是13个汉字 


function strlen(str) 
dim p_len 
p_len=0 
strlen=0 
if trim(str)<>"" then 
p_len=len(trim(str)) 
for xx=1 to p_len 
if asc(mid(str,xx,1))<0 then 
strlen=int(strlen) + 2 
else 
strlen=int(strlen) + 1 
end if 
next 
end if 
end function 

function strvalue(str,lennum) 
dim p_num 
dim i 
if strlen(str)<=lennum then 
strvalue=str 
else 
p_num=0 
x=0 
do while not p_num > lennum-2 
x=x+1 
if asc(mid(str,x,1))<0 then 
p_num=int(p_num) + 2 
else 
p_num=int(p_num) + 1 
end if 
strvalue=left(trim(str),x)&"…" 
loop 
end if 
end function 
相关文章