您的位置：首页 → 精文荟萃 → 软件资讯 → 控制输出字符串长度区别中英文

控制输出字符串长度区别中英文

时间：2004/10/7 18:18:00来源：本站整理作者：蓝点我要评论(0)

研究了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

相关阅读 Mac访问Windows共享文件夹Windows 7正版系统验证方法windows 8.1系统版本号查看方法Windows 8.1系统电话激活时无法输入微软返回代码解决方法Windows 8如何调整屏幕分辨率windows8.1磁盘占用100%解决方法Mac双系统如何删除Boot Camp安装的Windows分区Apple教你如何在Mac 上运行 Windows

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论