按字节检查包含全半角的文字

最新推荐文章于 2021-05-10 02:00:07 发布

hejialin666

最新推荐文章于 2021-05-10 02:00:07 发布

阅读量902

点赞数

文章标签： integer vb.net function string

本文链接：https://blog.csdn.net/hejialin666/article/details/4052079

版权

（VB.Net）

这个方法用于检查又有全角字符，又有半角字符的写入信息很有用的！

'''------------------------------------------------------------------------
''' <summary>
''' 文字列長检查（按字节检查）

        ''' </summary>
        ''' <param name="argStrControl">文字列</param>
        ''' <param name="argLength">文字列長</param>
        ''' <returns>True - , False - </returns>
        ''' <remarks></remarks>
'''------------------------------------------------------------------------

Public Shared Function CheckControlLength(ByVal argStrControl As String, _
Optional ByVal argLength As Integer = 0) As Boolean

'NULL

         If String.IsNullOrEmpty(argStrControl) Then
             Return True
         End If

         '文字列長
         Dim iLength As Integer = 0
         iLength = pEncoding.GetBytes(argStrControl).Length()

'文字列長检查

         If argLength < iLength Then
             Return False
         End If

Return True

End Function