基本函数
left(要截取的字符串,要截取的长度)’从左边开始截取指定长度的字符
right(要截取的字符串,要截取的长度)’从右边开始截取指定长度的字符
MID(要截取的字符串,开始截取的位置,
要截取的长度)从任意位置开始截取指定长度的字符
函数型
'Strsub
'函数功能:字符串截取.
'参数意义:str
---
要截取的字符串.
lennum--截取的字符数.
s--结尾字符
Function
Strsub(str,lennum,s)
If
Not
IsNull(str)
Then
Dim
p_num,x
Dim
i
If
strlen(str)<=lennum
Then
Strsub=str
Else
p_num=0
x=0
Do
While
Not
p_num
>
lennum-2
x=x+1
If
Asc(Mid(str,x,1))<0
Then
p_num=Int(p_num)
+
2
Else
p_num=Int(p_num)
+
1
End
If
Strsub=Left(Trim(str),x)&s
//截取后定义超出部分内容的显示方式
Loop
End
If
Else
Strsub="Null"
End
If
End
Function
'调用
<%=Function
Strsub("aaaaaaaaaa",3,"...")%>
'将输出:aaa...
你到CSDN上面去看看有很多值得学习的东西,能帮你解决很多问题,祝你早日解决问题!
温馨提示:内容为网友见解,仅供参考