left函数的对象为汉字的时候，怎么防止截断错误！ - 编程论坛

#2

loosky2007-12-27 22:50

也许可以看看那些blog的代码，他们都有很完善的阶段功能啊

#3

madpbpl2007-12-28 02:03

试试leftb函数

#4

xmuer2007-12-28 10:22

试了，一样出问题！

有没有有成功经验的，发个代码出来学习学习~~

#5

hangxj2007-12-28 11:12

函数功能：截取指定长度字符
传递参数：str（所要截取的内容）,strlen（所要截取的长度）
使用方法：TitleLeft(rs("title"),27)

Function TitleLeft(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
        TitleLeft=left(str,i)&".."
        Exit for
    Else
        TitleLeft=str&""
    End If
    Next
End Function

#6

xmuer2007-12-28 13:16

谢谢楼上的了~

#7

xmuer2007-12-28 23:46

测试了一下！发现代码还是不对~

函数功能：截取指定长度字符
传递参数：str（所要截取的内容）,strlen（所要截取的长度）
使用方法：TitleLeft(rs("title"),27)

Function TitleLeft(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
        TitleLeft=left(str,i)&".."
        Exit for
    Else
        TitleLeft=str&""
    End If
    Next
End Function
首先提示left函数对象不对，改成leftb后不报错了，但是出现了截断混乱，TitleLeft(rs("title"),400) 和TitleLeft(rs("title"),900)
的结果是一个只显示了2行字，一个满屏幕了！！
所以还是有问题。。
截取汉字和英文字符并存的文章的效果很不理想诶。
那位有更好的代码的发我看看。