如何区别数字和字母?

xilaianzxsc 2010-05-26 08:49:11
一个表单中,有个text1 ,且 inputmask中为空

用户输入时,可能输入: + - . 1234567890 ABCDEFGHIJKLMNOPQRSTabcdefghijklmnopqrstuvwxyz$%^等

现提问如下:

if thisform.text1.value中仅仅包含"123456789."这些字符. &&要求是:把这句用命令表达出来.
do ****.prg
else
meaasgebox("输入的金额中,含有非数字字符.",0"提示")
endif
...全文
81 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
xilaianzxsc 2010-05-26
  • 打赏
  • 举报
回复
谢谢各位老师
都市夜猫 2010-05-26
  • 打赏
  • 举报
回复
m.lcValue = AllTrim(Thisform.Text1.Text)
m.lcValue = ChrTran(m.lcValue, ChrTran(m.lcValue, '0123456789.', ''), '')
If !empty(m.lcValue)
do ***.prg
Else
messagebox(...)
EndIf
wwwwb 2010-05-26
  • 打赏
  • 举报
回复
if len('abc345rr')=len(CHRTRAN('abc345rr','0123456789',''))
则全部为数字

2,718

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧