帮忙看看正则表达式出了什么问题

zhangchaoy

Window("Flight Reservation").Dialog("Text:=Fax Order No\. \d+").ActiveX("Attached Text:=Fax Number:").Type "0102345678"
FaxNo = Window("Flight Reservation").Dialog("Text:=Fax Order No\. \d+").ActiveX("Attached Text:=Fax Number:").GetROProperty("Text")
Msgbox FaxNo
If FaxNo = "\(\d{3}\)\d{3}-\d{4}" Then

Msgbox "格式正确"
Else

Msgbox "格式错误"
End If
每次的消息框都是格式错误，我也不太清楚哪有问题。
If FaxNo = "(\d{3})\d{3}-\d{4}" Then, 把"\"去了也不行。请大侠指教呀。

hsjzfling

"(010)234-5678"当然不等于 "\(\d{3}\)\d{3}-\d{4}"
用正则之前先弄清楚哪些地方哪些场景可以使用正则，帮助文档中查询Regular Expression和RegExp可以获取更多详情

zhangchaoy

如果不用正则，请问这个应该如何判断呀。这个程序没有特别严格的限制，例如（010)-+8-9++-也是可以接受的。我想判断一下，要是有非数字的就报错。帮忙看看。

hsjzfling

一种么就是截取字符串来判断，另一种么就是如我之前的回复，查帮助，里面都有

zhangchaoy

我把代码改了一下，还是显示格式错误。哪位帮我看看。Window("Flight Reservation").Dialog("Text:=Fax Order No\. \d+").ActiveX("Attached Text:=Fax Number:").Type "0102345678"
FaxNo = Window("Flight Reservation").Dialog("Text:=Fax Order No\. \d+").ActiveX("Text:=Fax Number:").GetROProperty("Text")
Set re = New RegExp
re.pattern = "\([0-9]{3}\)[0-9]{3}-[0-9]{4}"
re.Global = true
re.Ignorecase = true
If re.test(FaxNo) Then

Msgbox "格式正确"
Else

msgbox "格式错误"
End If

wangyanzhao

回复 6# zhangchaoy


re.pattern = "\([0-9]{3}\)[0-9]{3}-[0-9]{4}"
你把这个换成下面的试试：

re.pattern = "([0-9]{3})[0-9]{3}-[0-9]{4}"

Shawn_xiao

判断特定位置的字符就行了吧

lifr

试试下面的函数

1. 
   
2. ' judge if the src matches ptn.
   
3. '
   
4. ' @ptn can be RegExp instance or, a string
   
5. ' @return true or false
   
6. Function isMatch(src, ptn)
   
7.     Set regEx = Nothing
   
8.     If typename(ptn) <> "IRegExp2" Then
   
9.         Set regEx = New RegExp   
   
10.         regEx.Pattern = ptn
    
11.         regEx.IgnoreCase = False
    
12.         regEx.Global = True
    
13.     Else
    
14.         Set regEx = ptn
    
15.     End If
    
16. 
    
17.     Set Matches = regEx.Execute(src)
    
18. 
    
19.     isMatch = False
    
20.     if Matches.count > 0 Then
    
21.         isMatch = True
    
22.     End If
    
23. End Function
    

复制代码