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

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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有