摘要: 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 阅读(273) 评论(0) 推荐(0)