用什么函数判断是否为汉字

caoyang0299 2006-07-26 09:26:22

RT，谢谢。

...全文

273 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

renchangjiu2 2006-07-26

打赏
举报

mark

caoyang0299 2006-07-26

打赏
举报

/**当天**/这种也是注释吧，也不要。

caoyang0299 2006-07-26

打赏
举报

补充一下，前面带//的汉字不要，也就是注释不要。

caoyang0299 2006-07-26

打赏
举报

判断字符编码范围在十六进制
&H4e00 与 &H9fa5之间，
代码写出来好不好，谢谢。
我就是有个文件，我想把其中的汉字打出来。标点符号有，日文没有。

tripman 2006-07-26

打赏
举报

Private Sub Command1_Click()
Dim i, t

For i = 1 To Len(Text1.Text)
t = Mid(Text1.Text, i, 1)
If Asc(t) < 0 Then ' 在VB中，中文的ASCII值总是负值
MsgBox t, 0, "汉字"
End If
Next

End Sub

yumanqing 2006-07-26

打赏
举报

ACSII码判断

viena 2006-07-26

打赏
举报

<0的未必是汉字，可能是日文、西班牙文字符什么的

viena 2006-07-26

打赏
举报

或者直接判断字符编码范围在十六进制
&H4e00 与 &H9fa5之间的，就是汉字

WM_JAWIN 2006-07-26

打赏
举报

不用这么麻烦啦,汉字的asc()值是<0的.
asc("汉") <0 '表达式为真

viena 2006-07-26

打赏
举报

正则表达式
[\u4e00-\u9fa5]

caoyang0299 2006-07-26

打赏
举报

能不能解释一下，谢谢！

TechnoFantasy 2006-07-26

打赏
举报

Dim c As String

c = "阿"

If c > "~" Then
MsgBox "汉字"
ElseIf IsNumeric(c) Then
MsgBox "数字"
ElseIf (c >= "A" And c <= "Z") Or (c >= "a" And c <= "z") Then
MsgBox "英文"
End If