请教：如何判断一个字符串中是否包括汉字
展开全部
Private Function RegExpTest(StrText, Pattern)
Dim regex
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = Pattern
regex.Global = True
RegExpTest = regex.Test(StrText)
Set regex = Nothing
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And Not RegExpTest(Chr(KeyAscii), "[\u4e00-\u9fa5]") Then
KeyAscii = 0
End If
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
