截取一定长度的字符串截取一定长度的字符串
一、从字符串截取一定字符数(双字节汉字和英文字符字符数都为1)
截取一定字符数，一般用函数left(str,n)
N为要截取STR的字符数。
例:从字符串 截取10个字符。
if len(str) > 10 then '判断字符串的长度
response.Write left(str,9)&" ..."
else
response.write str
end if
二、从字符串截取一定长度(字节数)(汉字为2字节，英文字符为1字节)
Function Strsub(str...
截取一定长度的字符串
一、从字符串截取一定字符数(双字节汉字和英文字符字符数都为1)
截取一定字符数，一般用函数left(str,n)
N为要截取STR的字符数。
例:从字符串 截取10个字符。
if len(str) > 10 then '判断字符串的长度
response.Write left(str,9)&" ..."
else
response.write str
end if
二、从字符串截取一定长度(字节数)(汉字为2字节，英文字符为1字节)
Function Strsub(str,lennum,s)
'str:要截取的字符串;lennum:要截取的字节数;s:截取后字符串的后缀。
Dim p_num,x,i,l,t
If Not IsNull(str) Then
l=len(trim(str))
t=l
for i=1 to l
c=Asc(Mid(trim(str),i,1))
if c>=128 or c<0 then
t=t+1
end if
next
If t<=lennum Then
Strsub=trim(str)
Else
p_num=0
x=0
Do While p_num < lennum
x=x+1
If Asc(Mid(trim(str),x,1))>=128 or Asc(Mid(trim(str),x,1))<0 Then
p_num=Int(p_num) + 2
Else
p_num=Int(p_num) + 1
End If
Loop
Strsub=Left(Trim(str),x)&s
End If
Else
Strsub="Null"
End If
End Function
'截取一定字节数的子字符串
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
'计算中英文混合字符串的字节数
本文档为【截取一定长度的字符串】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483