Office中国论坛/Access中国论坛

标题: 怎样判断文本框输入的内容是纯英文. [打印本页]

作者: yodong 时间: 2005-3-28 20:20
标题: 怎样判断文本框输入的内容是纯英文.
如题.

作者: 没牙兔兔 时间: 2005-3-28 21:55
好像直接用掩码就可以实现或者逐个字符判断asc码是否在英文范围

作者: tmtony 时间: 2005-3-29 09:14
这是我以前写的判断是否含有中文的函数,可以稍加修改反过来用在这里.

'======================================================================

'-函数名称:       gt_TmIncludeChinese

'-功能描述:       判断字符串中是否包含中文

'-输入参数:       参数1:strString  String 字符串

'-返回参数:       Boolean

'-使用示例:       gt_TmIncludeChinese "这里include 中文"

'-相关调用:       无

'-使用注意:       可能会漏掉一些特殊情况，需再改进

'-兼容性:       97,2000,XP,2003 compatible

'-参考资料:

'-作者:       王宇虹  修改：王宇虹

'-创建日期;       2002-08-26  更新日期: 2002-08-28 ,2002-11-15

'-图解:

'======================================================================

Public Function gt_TmIncludeChinese(strString As String) As Boolean

Dim i As Integer

Dim intStrLen As Integer

gt_TmIncludeChinese = False

intStrLen = Len(strString)

For i = 1 To intStrLen

      Select Case Asc(Mid(strString, i, 1))

      Case Is > 128, Is < 0

         i = intStrLen + 1

         gt_TmIncludeChinese = True

      End Select

Next

End Function

作者: yodong 时间: 2005-3-30 04:20
谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)