摘要: Function RegChinese(str) Dim regEx, retVal Set regEx = New RegExp regEx.Pattern = "^[^\u0000-\u00FF]*$" regEx.IgnoreCase = False retVal = regEx.Test(str) If retVal The... 阅读全文
posted @ 2007-12-06 10:21 missthe 阅读(261) 评论(0) 推荐(0) 编辑