截取字符函数 - 编程论坛

#2

multiple19022007-08-19 18:29

这还算麻烦？

你自己写个函数吧

也可以你rs在存的时候就做好Trim工作

#3

ayue2222007-08-19 22:32

function gotTopic(str,strlen)
if str="" or IsNull(str) then
gotTopic=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
gotTopic=left(str,i)
exit for
else
gotTopic=str
end if
next
gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<")
end function

汉字、英文都算做一个字符的函数。。。

#4

craft001wen2007-08-20 08:33

这算很简单的了