截取字符串方法总结(区分汉字、数字、字母)

截取字符串方法总结(区分汉字、数字、字母)

         在新闻文章项目里经常会碰到在前台显示标题列表，因为前台界面都是固定好了的，所以在显示时必须限制标题显示字符数量，超过这个数字的字符将被截去，以“...”之类的代替。          截取字符串我们一般最常用也最简单的就是用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，否子算一个字符长度，这种方法就避免了上面的截取字符串造成字符丢失的情况：

Code  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

        综合以上一些方法，自己写了个针对处理字符串的函数：超过规定长度时即截取，省略的字符做参数添加，比如想在省略的字符处显示"……"或"..."或"--"都可以，免去了每个显示都要去重写一次方法的烦琐：         

Code  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