高手帮忙解释下

xjw8350296 2008-04-10 06:59:37
Function CutStr(Str,LenNum)
if IsNull(str) or IsEmpty(str) or str="" then
str="nothing"
end if

Dim P_num
Dim I,X
If Len(Str)<=LenNum Then
Cutstr=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 到这结束
Cutstr=Left(Trim(Str),X)&"……"
Loop
End If
End Function
...全文
35 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
mataofq 2008-04-10
这是做什么的,判断有多少个字符??
汉字两个字节,英语一个??
asc()上面说了
mid(string,start,length)
回复
xjw8350296 2008-04-10
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 到这结束
Cutstr=Left(Trim(Str),X)&"……"
Loop
End If
End Function 这段有点疑惑
回复
lolita_713 2008-04-10
Asc()函数是将字符串(包括汉字及英文)转换成ASCII码
回复
Anlige 2008-04-10
Asc取得字符的asci码,若小于零则这个字符是汉字~~
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-04-10 06:59
社区公告
暂无公告