发信人: nonepassby(左右無人)
整理人: qcrsoft(2002-05-21 17:43:16), 站内信件
|
在对表单文本框里文本进行长度检测时，
汉字也被当做一个字的长度，而实际上它占了两个英文字母的长度
有网友也写信问我怎么处理，这只能用字符的ascii码来判断一个字符是否为汉字，因此特编了一个函数，说不定对大家有所启发，编出功能更全面的函数：
大家可以用它来代替vbscript中的len()函数
<script language=vbscript>
function truelen(str)
dim p_len
p_len=0
truelen=0
if trim(str)<>"" then
p_len=len(trim(str))
for xx=1 to p_len
if asc(mid(str,xx,1))<0 then
truelen=int(truelen) + 2
else
truelen=int(truelen) + 1
end if
next
end if
end function
</script>
----
網易之左右無人给我留言为了与更多的朋友交流，我已申请脚本技术版版卒 |
|