在新闻文章项目里经常会碰到在前台显示标题列表，因为前台界面都是固定好了的，所以在显示时必须限制标题显示字符数量，超过这个数字的字符将被截去，以“……”之类的代替。
截取字符串我们一般最常用也最简单的就是用string的Substring方法，这种方法在取值时汉字字母是不区分的，而因为汉字跟字母在显示时宽度有很大区别，所以截取后相同长度字符时有字母数字跟不带字母数字的字符串显示上回有很大区别，从而影响整个排版，比如下面的字符串：繁时不可慌，闲时不可荒fsbkh，xsbkh同为相同字符数，显示时就极不对称了。
另外一种方法就是，把字符串转化为bytes，在计算字符串的byte数时一个汉字按两个byte处理的，所以在截取字符时就避免了汉字字母显示时的不对称，以下自己写的一个标题字符串截取函数：
 截取字符串长度
1 /**/''' <summary>
2 ''' 截取字符串长度
3 ''' </summary>
4 ''' <param name="str">待处理的字符串</param>
5 ''' <param name="len">截取长度</param>
6 ''' <param name="strMore">超过长度部分显示字符</param>
7 ''' <returns>String</returns>
8 ''' <remarks>超过固定长度显示固定字符串替代</remarks>
9 Public Function CutString()Function CutString(ByVal str As String, ByVal len As Integer, ByVal strMore As String) As String
10 Dim sarr As Byte() = System.Text.Encoding.Default.GetBytes(str)
11 Dim strMoreLength As Integer = System.Text.Encoding.Default.GetBytes(strMore).Length
12 If sarr.Length > len Then
13 Return System.Text.Encoding.Default.GetString(sarr, 0, len - strMoreLength) & strMore
14 Else
15 Return str
16 End If
17 End Function |
上面这个方法也很简单，但是还有个问题，就是如果我要处理的字符串是“520字符串截取”，按上面的方法，它的GetBytes.Length应该等于13，如果我要截取的长度len=10的话，那么它截取后的字符串就成了“520字符串？”因为sarr（9）即第十个byte的值其实是表示"截"字的两个byte中的一个，这样就会出现文字显示错误。
看到另外一种方法，先用asc（）得到字符的ascii码，如果asc（）<0就是汉字，这时长度就算2，否子算一个字符长度，这种方法就避免了上面的截取字符串造成字符丢失的情况：
1Public Shared Function LeftByte()Function LeftByte(ByVal Str As String, ByVal Lens As Double) As String
2 Dim Length
3 Length = 0
4 Dim i As Integer
5 For i = 1 To Len(Str)
6 If (Asc(Mid(Str, i, 1)) < 0) Then
7 Length = Length + 2
8 Else
9 Length = Length + 1
10 End If
11 If Length = Lens Then
12 LeftByte = Left(Str, i)
13 Exit Function
14 ElseIf Length > Lens Then
15 LeftByte = Left(Str, i - 1)
16 Exit Function
17 End If
18 Next
19 Return Str
20 End Function |
综合以上一些方法，自己写了个针对处理字符串的函数：超过规定长度时即截取，省略的字符做参数添加，比如想在省略的字符处显示"……"或"……"或"——"都可以，免去了每个显示都要去重写一次方法的烦琐：
1 /**/''' <summary>
2 ''' 截取字符串长度
3 ''' </summary>
4 '''<Author>TheoMi</author>
5 '''<date>2008-03-15</date>
6 ''' <param name="Str">待处理的字符串</param>
7 ''' <param name="Lens">截取长度</param>
8 ''' <param name="StrMore">超过长度部分显示字符</param>
9 ''' <returns>String</returns>
10 ''' <remarks> 区分汉字数字字母的长短问题，超过固定长度显示固定字符串替代</remarks>
11 Public Shared Function CutStringByByte()Function CutStringByByte(ByVal Str As String, ByVal Lens As Integer, ByVal StrMore As String) As String
12 Dim Length As Integer = 0
13 Dim strBytesLength As Integer = System.Text.Encoding.Default.GetBytes(Str).Length
14 Dim MoreLength As Integer = System.Text.Encoding.Default.GetBytes(StrMore).Length
15 Dim i As Integer
16 If strBytesLength > Lens Then
17 For i = 1 To Len(Str)
18 If (Asc(Mid(Str, i, 1)) < 0) Then
19 Length = Length + 2
20 Else
21 Length = Length + 1
22 End If
23 If Length = Lens - MoreLength Then
24 CutStringByByte = Left(Str, i) & StrMore
25 Exit Function
26 ElseIf Length > Lens - MoreLength Then
27 CutStringByByte = Left(Str, i - 1) & StrMore
28 Exit Function
29 End If
30 Next
31 Else
32 For i = 1 To Len(Str)
33 If (Asc(Mid(Str, i, 1)) < 0) Then
34 Length = Length + 2
35 Else
36 Length = Length + 1
37 End If
38 If Length = Lens Then
39 CutStringByByte = Left(Str, i)
40 Exit Function
41 ElseIf Length > Lens Then
42 CutStringByByte = Left(Str, i - 1)
43 Exit Function
44 End If
45 Next
46 End If
47 Return Str
48 End Function |
|
评论表单加载中...
