Public Function IsChinese(ByVal _str As String) As Boolean
Dim iLength As Integer
Dim bLength As Byte()
bLength = System.Text.Encoding.Default.GetBytes(_str)
If _str.Length = bLength.Length Then
Return False
Else
Return True
End If
End Function这个方法就是判断一个字符串是否为中文字符串,或者其中包含了中文。
Dim iLength As Integer
Dim bLength As Byte()
bLength = System.Text.Encoding.Default.GetBytes(_str)
If _str.Length = bLength.Length Then
Return False
Else
Return True
End If
End Function这个方法就是判断一个字符串是否为中文字符串,或者其中包含了中文。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货