[求助]同样是function函数的问题,解释一下了
function gotTopic(str,strlen)dim l,t,c, i
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
end function