古老的Visual Basic 6.0也可以用正则表达式对输入的数据进行验证。在网上找到了一些介绍如何编写与正则表达式相关的代码,但很多文章对如何引用正则表达式包却没有做详细说明。经过一番尝试,终于可以让代码正确运行了。把设置过程及相关源代码记录下来。
首先执行“project | References”菜单命令,然后在如下图所示对话框的列表中选择“Microsoft VBScript Regular Expression 5.5”项目,将正则表达式包引入工程。
接下来就可以编写如下代码验证文本框里输入的字符串是否为浮点数(不考虑科学计数法的表示)。
-
Private Sub cmdValidate_Click()
-
Dim re As RegExp
-
Set re = New RegExp
-
re.Pattern = "^([-+]?\d+)?(\.\d{0,2})?$"
-
If re.Test(txtNumber.Text) Then
-
MsgBox "是浮点数"
-
Else
-
MsgBox "不是浮点数"
-
End If
-
End Sub
程序运行的用户界面如下所示。
阅读(2288) | 评论(0) | 转发(0) |