VBS 正则匹配失败竟会导致脚本暂停

tmplinshi

1. data = ReadTextFile("match_stop.txt")
   
2. 
   
3. set ms = RegExMatch(data, "class=""smallphoto"" id=""(.*?)"".*?src=""(.*?)""[\s\S]*?author=""(.*?)""[\s\S]*?photoCName"">[\s\S]*?"">(.*?)<[\s\S]*?photoLName"">[\s\S]*?href=""(.*?)""[\s\S]*?class=""LatinName"">(.*?)<")
   
4. MsgBox ms.count
   
5. 
   
6. ' 去掉末尾的【""LatinName"">(.*?)<】则正常
   
7. ' set ms = RegExMatch(data, "class=""smallphoto"" id=""(.*?)"".*?src=""(.*?)""[\s\S]*?author=""(.*?)""[\s\S]*?photoCName"">[\s\S]*?"">(.*?)<[\s\S]*?photoLName"">[\s\S]*?href=""(.*?)""[\s\S]*?class=")
   
8. 
   
9. Function RegExMatch(ByRef inputstr, Pattern)
   
10.         Set re = New RegExp
    
11.         re.Pattern = Pattern
    
12.         re.IgnoreCase = True
    
13.         re.Global = True
    
14.         MsgBox "呵呵呵，脚本要停止运行了..下面的 MsgBox 你看不见了."
    
15.        
    
16.         Set RegExMatch = re.Execute( inputstr )
    
17.         MsgBox "你看不见我，你看不见我"
    
18. End Function
    
19. 
    
20. Function ReadTextFile(fPath)
    
21.         Set filesys = CreateObject("Scripting.FileSystemObject")
    
22.         Set filetxt = filesys.OpenTextFile(fPath, 1)
    
23.         ReadTextFile = filetxt.ReadAll
    
24. End Function

复制代码

CrLf

测试下面这段好像正常的哟

1. data = "fasdfasdf"&vbCrLf&"_ffsafdwsaf"
   
2. 
   
3. set ms = RegExMatch(data, "asdfasdf@<")
   
4. MsgBox ms.count
   
5. 
   
6. Function RegExMatch(ByRef inputstr, Pattern)
   
7.         Set re = New RegExp
   
8.         re.Pattern = Pattern
   
9.         re.IgnoreCase = True
   
10.         re.Global = True
    
11.         MsgBox "呵呵呵，脚本要停止运行了..下面的 MsgBox 你看不见了."
    
12.        
    
13.         Set RegExMatch = re.Execute( inputstr )
    
14.         MsgBox "你看不见我，你看不见我"
    
15. End Function

复制代码

tmplinshi

是的，并不是所有情况都会导致脚本暂停。可是我顶楼给出的例子就是会导致脚本暂停。

yu2n

这不是 VBS 的问题。
目测表达式太长、或其他未知的表达式错误。

tmplinshi

回复 4# yu2n
并不是目标表达式太长，如果我把表达式换成下面这行则运行正常、匹配成功（以下表达式比原来的还长）：

set ms = RegExMatch(data, "class=""smallphoto"" id=""(.*?)"".*?src=""(.*?)""[\s\S]*?author=""(.*?)""[\s\S]*?photoCName"">[\s\S]*?"">(.*?)<[\s\S]*?photoLName"">[\s\S]*?href=""(.*?)""[\s\S]*?class=""plantname"".*?>(.*?)<")

脚本暂停，仅仅是表达式的末尾部分“LatinName"">(.*?)<”在源文件中找不到。既然找不到，正常情况 VBS 应该处理为匹配失败，而不是把脚本暂停了。

代码语法也并没有错误。既然代码语法没有错误，那么正则匹配无非两种结果——成功或者失败，“表达式错误”那就应该处理为匹配失败。

所以这当然是 VBS 的问题。

tmplinshi

知道原因了，是因为达到了匹配的最大（长度？）限制，导致 VBS 卡住了。我用那个表达式在 AutoHotkey 中进行匹配也返回了 -8 的 ErrorLevel 值（"reached match limit" (-8)）。

试了下添加“On error resume Next”并没有效果，有方法忽略这个错误吗？

=====================================

匹配过程估计是这样：
由于数据中有比较多的 [\s\S]*?class=""，但是数据中并没有 [\s\S]*?class=""LatinName，所以电脑不停地往前搜索 [\s\S]*?class=""，结果到达了匹配的最大长度限制。