特定长度的字符串截取

   Protected   Function  GetEncodingStringLength( ByVal  encodeObject  As   Object ,  ByVal  length  As   String )  As   String
         Dim  encodingData()  As   Byte           
         Dim  stringValue  As   String             '

         If  length.Equals( String .Empty)  Then
             Return  encodeObject
         End   If

        stringValue  =  encodeObject
        
        encodingData  =  System.Text.Encoding.Default.GetBytes(stringValue)
        
         If  length  <  encodingData.Length  Then
             Return  System.Text.Encoding.Default.GetString(encodingData,  0 , length)
         Else
             Return   encodeObject
         End   If
     End Function