4,007
社区成员
发帖
与我相关
我的任务
分享在asp中，如果判断一串字符串中，有多少个英文，多少个中文？
我做了一个新闻系统，标题在首页显示部份，由于限定了一定的宽度。防止冲破表格。所以把标题字数多于10个的用"..."代表。
但出现了如下问题：
1、abcesdffa... '太短了，与下面不对齐，不美观
2、中华人民共和国一八....
由于asp中把英文单词与汉字全是看成一个字符，结果，有些全英文的标题，显示出来非常短，有没有什么方法，去判断一个标题所占表格多少像素宽度呢，我想这种实现可能性比较小。就用判断标题中有多少个汉字，发现汉字少于三个就另外再设显示的字数。
但出现了如下问题：
1、abcesdffa... '太短了，与下面不对齐，不美观
2、中华人民共和国一八....
由于asp中把英文单词与汉字全是看成一个字符，结果，有些全英文的标题，显示出来非常短，有没有什么方法，去判断一个标题所占表格多少像素宽度呢，我想这种实现可能性比较小。就用判断标题中有多少个汉字，发现汉字少于三个就另外再设显示的字数。
...全文
请发表友善的回复…
发表回复
超级大笨狼 2005-10-20
- 打赏
- 举报
<SCRIPT LANGUAGE="vbScript">
dim str:str="判断一串字符串中，有多少个english，多少个中文?"
function length(input)
dim c ,e
c=ubound(split(escape(input),"%u"))
e=len(input)-c
length ="汉字：" & c & "个，英文" & e & "个"
end function
'测试结果
document.write length(str)
'测试执行1万次时间
dim t1,t2
t1=timer()
for i=1 to 10000
length str
next
t2=timer()
alert "执行1万次需要：" & (t2-t1 )*1000 & "毫秒"
'执行1万次需要：171.875毫秒
'看到vbs的威力了吧？
'这种算法应该是判断中英文数量最快的了。
</SCRIPT>
dim str:str="判断一串字符串中，有多少个english，多少个中文?"
function length(input)
dim c ,e
c=ubound(split(escape(input),"%u"))
e=len(input)-c
length ="汉字：" & c & "个，英文" & e & "个"
end function
'测试结果
document.write length(str)
'测试执行1万次时间
dim t1,t2
t1=timer()
for i=1 to 10000
length str
next
t2=timer()
alert "执行1万次需要：" & (t2-t1 )*1000 & "毫秒"
'执行1万次需要：171.875毫秒
'看到vbs的威力了吧？
'这种算法应该是判断中英文数量最快的了。
</SCRIPT>
