判断一个字符串中是否含有汉字
2009-11-25 16:51
519 查看
'请问如何在VB中或者SqlServer中判断一个字符串中是否含有汉字。
'注:字符串中有可能含有日语字符,或者全角模式下的特殊字符(如破折号等),这些都不视为汉字。
出处地址: http://topic.csdn.net/u/20091125/16/ae9ae50c-d810-4c8e-b83d-bb932b3cc047.html?1381
Private Sub Command1_Click()
Dim strSample As String, i As Long
'strSample = "ffdddd中国vbxxx"
strSample = "ffdddd--vbxxx"
For i = 1 To Len(strSample)
If WhatChar(Mid(strSample, i, 1)) > 0 Then
MsgBox "含有汉字"
Exit For
End If
Next
End Sub
Private Function WhatChar(ByVal vStr As String) As Integer
Dim gbascii As Byte
Dim intChar As Integer
If Asc(vStr) < 0 Then
gbascii = AscB(StrConv(vStr, vbFromUnicode))
If gbascii - 160 > 15 Then
intChar = 1 ' 汉字
Else
intChar = 0 ' 全角符号
End If
Else
intChar = 0 ' 半角英文或数字
End If
WhatChar = intChar
End Function
'注:字符串中有可能含有日语字符,或者全角模式下的特殊字符(如破折号等),这些都不视为汉字。
出处地址: http://topic.csdn.net/u/20091125/16/ae9ae50c-d810-4c8e-b83d-bb932b3cc047.html?1381
Private Sub Command1_Click()
Dim strSample As String, i As Long
'strSample = "ffdddd中国vbxxx"
strSample = "ffdddd--vbxxx"
For i = 1 To Len(strSample)
If WhatChar(Mid(strSample, i, 1)) > 0 Then
MsgBox "含有汉字"
Exit For
End If
Next
End Sub
Private Function WhatChar(ByVal vStr As String) As Integer
Dim gbascii As Byte
Dim intChar As Integer
If Asc(vStr) < 0 Then
gbascii = AscB(StrConv(vStr, vbFromUnicode))
If gbascii - 160 > 15 Then
intChar = 1 ' 汉字
Else
intChar = 0 ' 全角符号
End If
Else
intChar = 0 ' 半角英文或数字
End If
WhatChar = intChar
End Function
相关文章推荐
- 如何判断一个字符串中是否含有汉字或汉字标点(即双字节字符)
- oracle中如何判断一个字符串是否含有汉字
- c++ boost判断一个字符串中是否含有汉字的代码
- oracle中如何判断一个字符串是否含有汉字
- c c++怎么判断一个字符串中是否含有汉字
- Oracle中如何判断一个字符串是否含有汉字
- c c++怎么判断一个字符串中是否含有汉字
- 判断一个字符串中是否含有非数字字符和是否含有字母字符?
- js正则判断字符串是否含有汉字或英文
- VBA判断字符串中是否含有汉字
- 判断一个长字符串,是否含有一个短的字符串
- 如何判断一个字符串中是否含有中文
- Android 判断一个字符串是否含有中文
- 判断字符串中是否含有汉字
- 如何判断一个字符串是否仅由数字or仅由数字英文字符or仅由汉字组成
- 判断一个字符串中是否含有中文的简单方法
- java判断一个字符串里是否含有英文
- 判断字符串中是否含有汉字及其汉字的个数
- 在不同数据库中如何判断一个字符串内是否含有中文?
- 判断一个字符串里是否含有某段字符?怎么截取一段字符?