网络编程
位置：首页>> 网络编程>> Asp编程>> asp显示字符串前5个文字

asp显示字符串前5个文字

　来源：asp之家　发布时间：2008-08-10 18:47:00　

标签：文字,显示,字符串

自己做了一个asp页面，用了一个td来显示留言本的最新消息；但是却无法控制其排版问题，因为该td的width确定，但是数据库中的文字却是未知的。我想知道如何实现把一句很长的文字的后面部分省略（用......来代替），从而使显示的字符串长度得到控制，谢谢！


一下是我以前写的一个函数，用来从字符串（变量）mys中提取相当于coun个英文字符的字符串，比如SplitWords(mys,10)返回10个英文字符或5个中文字符：

相关文章：asp测字符串长度及截取定长字符串汉字的处理

<％
Function SplitWords(mys,coun)
        dim ts,i,s_char
        if isnull(mys) then exit Function
        ts = 0
        n_strlen=Len(mys)
        For i = 1 To n_strlen
                s_char = Mid(mys, i, 1)
                If Asc(s_char) > 0 and Asc(s_char) < 255 Then
                        ts = ts + 1
                else
                        ts=ts+2
                End If
                if ts >= coun then
                        exit for
                end if
        Next
        s_mys=left(mys,i)
        If n_strlen > i Then
                For j = 1 To 6
                        s_char = Mid(mys, i-j, 1)
                        If Asc(s_char) > 0 and Asc(s_char) < 255 Then
                                ts = ts - 1
                        else
                                ts=ts-2
                        End If
                        if ts <= coun-4 then
                                exit for
                        end if
                Next
                s_mys = left(s_mys,i-j)&"...."
        end if
        SplitWords=s_mys
end Function
％> 
0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com