在vb中如何使用正则表达式进行IP验证

在vb中常常需要对用户的输入进行验证，常见的有Ip，日期，时间验证等，用通常的方式验证要写完善的话需要考虑各种情况，分析各种原因，书写大量代码，维护也很困难，正则表达式得的应用能帮助我们快速正确的解决问题，下面就以一Ip地址验证为例说明：

前提：

画面上有一输入框，及一按钮，要求按钮按下时说出输入框的输入是否合法：

先写代码：

1.按钮按下时的事件处理。

Private Sub cmdCheckIp_Click()
If isValidIpAddress(txtIpAddress.Text) = True Then
    MsgBox "Valid IP"
       Else
    MsgBox "invalid IP"
  End If
End Sub

2.模块中的验证函数

Public Function isValidIpAddress(strIpAddress As String) As Boolean
Dim reg As New RegExp
    reg.IgnoreCase = True
    reg.Global = True
    reg.MultiLine = True
    reg.Pattern = "^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$"

isValidIpAddress = reg.Test(strIpAddress)

If isValidIpAddress = True Then
Dim strArr() As String
strArr = Split(strIpAddress, ".")

For i = 0 To UBound(strArr)
    isValidIpAddress = isValidIpAddress And isValidIpNumber(strArr(i))
       Next i
   End If
End Function

3.模块中的验证函数2

Private Function isValidIpNumber(strNumber As String)
     Dim ipnum As Integer
         ipnum = CInt(strNumber)

         isValidIpNumber = (ipnum < 256)
End Function

按钮按下时的事件处理就不赘述了,这里主要讲讲模块中的验证函数部分,其中的关键一句是reg.Pattern = "^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$",这句正则表达式的意义如下:

^ 表示匹配输入字符串开始的位置
\d 数字字符匹配。等效于 [0-9]。
{1,3} 至少匹配 1次，至多匹配 2 次。例如，“o{1,3}”匹配“fooooood”中 的头三个 o。'o{0,1}' 等效于 'o?'。注意：不能将空格插入逗号和数字之间。
$ 匹配输入字符串结尾的位置

整个意义就是从字符串开头到结尾,中间只能容纳.间隔的,长度不过三位且大于等
于一位,全由数字组成的字符串.

isValidIpAddress = reg.Test(strIpAddress)是取得检测的结果,但是
172.31.203.267有可能漏网,所以用
If isValidIpAddress = True Then
   Dim strArr() As String
strArr = Split(strIpAddress, ".")

For i = 0 To UBound(strArr)
    isValidIpAddress = isValidIpAddress And isValidIpNumber(strArr(i))
    Next i
End If
和
Private Function isValidIpNumber(strNumber As String)
    Dim ipnum As Integer
        ipnum = CInt(strNumber)

        isValidIpNumber = (ipnum < 256)
End Function

进行了细节验证,具体语法大家应该能明白. 看完此文后,请自行做日期和时间的验证.

注意:
\ 在C++/Java中\应该被两个\取代,切记.