Chinaunix首页 | 论坛 | 博客
  • 博客访问: 242075
  • 博文数量: 21
  • 博客积分: 796
  • 博客等级: 军士长
  • 技术积分: 305
  • 用 户 组: 普通用户
  • 注册时间: 2011-07-16 01:03
文章分类
文章存档

2020年(1)

2017年(1)

2016年(1)

2015年(2)

2012年(9)

2011年(7)

我的朋友

分类: C#/.net

2020-06-09 19:54:18

古老的Visual Basic 6.0也可以用正则表达式对输入的数据进行验证。在网上找到了一些介绍如何编写与正则表达式相关的代码,但很多文章对如何引用正则表达式包却没有做详细说明。经过一番尝试,终于可以让代码正确运行了。把设置过程及相关源代码记录下来。

首先执行“project | References”菜单命令,然后在如下图所示对话框的列表中选择“Microsoft VBScript Regular Expression 5.5”项目,将正则表达式包引入工程。


接下来就可以编写如下代码验证文本框里输入的字符串是否为浮点数(不考虑科学计数法的表示)。

点击(此处)折叠或打开

  1. Private Sub cmdValidate_Click()
  2. Dim re As RegExp
  3. Set re = New RegExp
  4. re.Pattern = "^([-+]?\d+)?(\.\d{0,2})?$"
  5. If re.Test(txtNumber.Text) Then
  6.     MsgBox "是浮点数"
  7. Else
  8.     MsgBox "不是浮点数"
  9. End If
  10. End Sub

程序运行的用户界面如下所示。



阅读(2288) | 评论(0) | 转发(0) |
0

上一篇:x11vnc无法识别大写状态键的解决方法

下一篇:没有了

给主人留下些什么吧!~~