截取字符串方法總結(jié)(區(qū)分漢字、數(shù)字、字母) 在新聞文章項目里經(jīng)常會碰到在前臺顯示標(biāo)題列表，因為前臺界面都是固定好了的，所以在顯示時必須限制標(biāo)題顯示字符數(shù)量，超過這個數(shù)字的字符將被截去，以“...”之類的代替。
截取字符串我們一般最常用也最簡單的就是用string的Substring方法，這種方法在取值時漢字字母是不區(qū)分的，而因為漢字跟字母在顯示時寬度有很大區(qū)別，所以截取后相同長度字符時有字母數(shù)字跟不帶字母數(shù)字的字符串顯示上回有很大區(qū)別，從而影響整個排版，比如下面的字符串： 繁時不可慌，閑時不可荒 fsbkh,xsbkh 同為相同字符數(shù)，顯示時就極不對稱了。 另外一種方法就是，把字符串轉(zhuǎn)化為bytes，在計算字符串的byte數(shù)時一個漢字按兩個byte處理的，所以在截取字符時就避免了漢字字母顯示時的不對稱，以下自己寫的一個標(biāo)題字符串截取函數(shù)：   截取字符串長度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 String10 Dim sarr As Byte() = System.Text.Encoding.Default.GetBytes(str)11 Dim strMoreLength As Integer = System.Text.Encoding.Default.GetBytes(strMore).Length12 If sarr.Length > len Then13 Return System.Text.Encoding.Default.GetString(sarr, 0, len - strMoreLength) & strMore14 Else15 Return str16 End If17 End Function看到另外一種方法，先用asc()得到字符的ascii碼，如果asc（）<0就是漢字，這時長度就算2，否子算一個字符長度，這種方法就避免了上面的截取字符串造成字符丟失的情況： Code1 Public Shared Function LeftByte()Function LeftByte(ByVal Str As String, ByVal Lens As Double) As String2 Dim Length3 Length = 04 Dim i As Integer5 For i = 1 To Len(Str)6 If (Asc(Mid(Str, i, 1)) < 0) Then7 Length = Length + 28 Else9 Length = Length + 110 End If11 If Length = Lens Then12 LeftByte = Left(Str, i)13 Exit Function14 ElseIf Length > Lens Then15 LeftByte = Left(Str, i - 1)16 Exit Function17 End If18 Next19 Return Str20 End Function綜合以上一些方法，自己寫了個針對處理字符串的函數(shù)：超過規(guī)定長度時即截取，省略的字符做參數(shù)添加，比如想在省略的字符處顯示"……"或"..."或"--"都可以，免去了每個顯示都要去重寫一次方法的煩瑣： Code1 /**/''' <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> 區(qū)分漢字?jǐn)?shù)字字母的長短問題，超過固定長度顯示固定字符串替代</remarks>11 Public Shared Function CutStringByByte()Function CutStringByByte(ByVal Str As String, ByVal Lens As Integer, ByVal StrMore As String) As String12 Dim Length As Integer = 013 Dim strBytesLength As Integer = System.Text.Encoding.Default.GetBytes(Str).Length14 Dim MoreLength As Integer = System.Text.Encoding.Default.GetBytes(StrMore).Length15 Dim i As Integer16 If strBytesLength > Lens Then17 For i = 1 To Len(Str)18 If (Asc(Mid(Str, i, 1)) < 0) Then19 Length = Length + 220 Else21 Length = Length + 122 End If23 If Length = Lens - MoreLength Then24 CutStringByByte = Left(Str, i) & StrMore25 Exit Function26 ElseIf Length > Lens - MoreLength Then27 CutStringByByte = Left(Str, i - 1) & StrMore28 Exit Function29 End If30 Next31 Else32 For i = 1 To Len(Str)33 If (Asc(Mid(Str, i, 1)) < 0) Then34 Length = Length + 235 Else36 Length = Length + 137 End If38 If Length = Lens Then39 CutStringByByte = Left(Str, i)40 Exit Function41 ElseIf Length > Lens Then42 CutStringByByte = Left(Str, i - 1)43 Exit Function44 End If45 Next46 End If47 Return Str48 End Function |
|
|
