当前位置: 首页 > 设计代码 > 正文

判断文章中文字符数量

dim WINNT_CHINESE
WINNT_CHINESE = (len("论坛")=2)

function strLength(str)
ON ERROR RESUME NEXT
if WINNT_CHINESE then
dim l,t,c
dim i
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c<0 then c=c+65536 if c>255 then
t=t+1
end if
next
strLength=t
else
strLength=len(str)
end if
if err.number<>0 then err.clear
end function

本文固定链接: http://blog.duoday.com/2006/140.html | 奇风's Blog

该日志由 于2006年08月02日发表在 设计代码 分类下, 你可以发表评论,并在保留原文地址及作者的情况下引用到你的网站或博客。

原创文章转载请注明: 判断文章中文字符数量 | 奇风's Blog

判断文章中文字符数量:等您坐沙发呢!

发表评论

电子邮件地址不会被公开。 必填项已用 * 标注
? razz sad evil ! smile oops grin eek shock ??? cool lol mad twisted roll wink idea arrow neutral cry mrgreen
快捷键:Ctrl+Enter