在新闻文章项目里经常会碰到在前台显示标题列表,因为前台界面都是固定好了的,所以在显示时必须限制标题显示字符数量,超过这个数字的字符将被截去,以“...”之类的代替。
截取字符串我们一般最常用也最简单的就是用string的
Substring方法,这种方法在取值时汉字字母是不区分的,而因为汉字跟字母在显示时宽度有很大区别,所以截取后相同长度字符时有字母数字跟不带字母数字的字符串显示上回有很大区别,从而影响整个排版,比如下面的字符串:
繁时不可慌,闲时不可荒
fsbkh,xsbkh
同为相同字符数,显示时就极不对称了。
另外一种方法就是,把字符串转化为bytes,在计算字符串的byte数时一个汉字按两个byte处理的,所以在截取字符时就避免了汉字字母显示时的不对称,以下自己写的一个标题字符串截取函数:
截取字符串长度
1![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
/**/''' <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![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
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,否子算一个字符长度,这种方法就避免了上面的截取字符串造成字符丢失的情况:
Code
1![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
Public 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
综合以上一些方法,自己写了个针对处理字符串的函数:超过规定长度时即截取,省略的字符做参数添加,比如想在省略的字符处显示"……"或"..."或"--"都可以,免去了每个显示都要去重写一次方法的烦琐:
Code
1![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
/**/''' <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![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
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