'*************测字符串长度**************

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