检测含有中文字符串的实际长度

"*************测字符串长度**************

Function CheckStringLength(txt)

txt=trim(txt)

x = len(txt)

y = 0

for ii = 1 to x

if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then "如果是汉字

y = y + 2

else

y = y + 1

end if

next

CheckStringLength = y

End Function

"************* 截取字符串 **************

Function InterceptString(txt,length)

txt=trim(txt)

x = len(txt)

y = 0

if x >= 1 then

for ii = 1 to x

if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then "如果是汉字

y = y + 2

else

y = y + 1

end if

if y >= length then

txt = left(trim(txt),ii) "字符串限长

exit for

end if

next

InterceptString = txt

else

InterceptString = ""

end if

End Function