
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...
其实很简单a=left(rs("数据库的字段名"),50)
就可以获得并付给a了
left函数的详解如下
Left(string, length)
Left 函数的语法有以下参数:
参数 描述
string 字符串表达式,其最左边的字符被返回。如果 string 参数中包含 Null,则返回 Null。
length 数值表达式,指明要返回的字符数目。如果是 0,返回零长度字符串 ("");如果大于或等于 string 参数中的字符总数,则返回整个字符串。
根据你的要求给你一个思路:1:如果要显示的内容中有HTML代码,那么就删除它,可以使用正则表达式来完成这一步;正则表达式举例:
set regex = new regexp
regex.pattern = "<[^<]*>"
regex.ignorecase = true
regex.global = true
str = regex.replace(str,"")'替换<>内容为空
2:可以考虑删除掉空格,这个你已经做了;
3:注意全角半角,在取前多少字时,不能简单的使用Left函数,应该注意到半角字符和全角字符的区别,一个全角字符应该等于两个半角字符,这里提供个函数你参考下。
'按汉字数截取字符串
Function sLeft(str, ll)
l = Len(str) '获取字符串长度
If l <= ll Then '如果长度小于等于规定长度
sLeft = str
Else
sLeft = ""
t = 0
For i = 1 To l
s = Mid(str, i, 1)
c = Asc(s)
If c <0 Then c = c + 65536
If c >255 Then
t = t + 1
Else
t = t + 0.5
End If
sLeft = sLeft &s
if t >= ll then exit for
Next
End If
End Function
使用举例:response.write sLeft("中z华h人r民m共g和h国g", 4)
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)