截取字符串函数:字符长度测试和截取函数（可以测试1个汉字占两个字符长度）

来源: 发布时间:星期四, 2009年2月12日浏览:708次评论:0

\'*************测

串长度**************

Function CheckStringLength(txt)
txt=trim(txt)
x = len(txt)
y = 0
for ii = 1 to x

asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then \'如果是汉字
y = y + 2

y = y + 1
end

next
CheckStringLength = y

End Function\'************* 截取

串 **************

function InterceptString(txt,length)
txt=trim(txt)
x = len(txt)
y = 0

x >= 1 then
for ii = 1 to x

asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then \'如果是汉字
y = y + 2

y = y + 1
end

y >= length then
txt = left(trim(txt),ii) \'

串限长
exit for
end

next
InterceptString = txt

InterceptString = \"\"
end

End Function

专注于互联网--专注于架构