asp 截取字符串问题求助！

来源：百度知道 编辑：UC知道 时间：2024/05/28 06:55:17
用asp中的字节数来拆分字符串。

如：str=" 洋干果店号胶州东路向阳市场新商衣传贵洋干果店号胶州东路向阳市场新商衣传贵洋干果店号胶州东路向阳市场新商衣传贵洋干果店号胶州东路向阳市场新商衣传贵洋干果店号胶州东路向阳市场新商衣传贵洋干果店号胶州东路向阳市场新商衣传贵洋干果店号胶州东路向阳市场新商衣传贵 "

len(str) 是126 个字符

现在想用字节数来截取。若超过 150 字节就自动转换到下一行。

拆分后 ：

string1="洋干果店号胶州东路向阳市场新商衣传贵洋干果店号胶州东路向阳市场新商衣传贵洋干果店号胶州东路向阳市场新商衣传贵洋干果店号胶州东路向阳市场新商衣传贵洋干果
"

string2="..."

string3="..."

x=1
y=取整（len(str)/150）+1
for x=1
str1=left(str,x*150)
for x=2 to y
str[x]=mid(str,(x-1*150),x*150)

^^^^^

基本函数
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,"...")%