ASP如何计算中英文混合字符串长度和截取字符串 .

最新推荐文章于 2018-09-15 22:20:53 发布

原创最新推荐文章于 2018-09-15 22:20:53 发布 · 352 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp

Asp 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了两种处理中英文混合字符串的方法：计算字符串长度及截取指定长度的字符串。通过VBScript实现，适用于需要准确计算包含中文字符的字符串长度及进行截取的应用场景。

计算中英文混合字符串的长度：

function getStringLen(str)

on error resume next       
dim l,c,i,t
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c>=128 or c<0 then t=t+1
next
getStringLen=t
if err.number<>0 then err.clear


end function

截取字符串：

function getSubString(str,Length)
on error resume next       
dim l,c,i,hz,en
l=len(str)
if l<length then
getSubString=str
else
hz=0
en=0
for i=1 to l
c=asc(mid(str,i,1))
if c>=128 or c<0 then 
hz=hz+1
else
en=en+1
end if

if en/2+hz>=length then
exit for
end if
next
getSubString=left(str,i) & "…"
end if
if err.number<>0 then err.clear
end function