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

"*************测字符串长度**************
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

原文转自：http://www.ltesting.net