我维护了一个大型VB6应用程序,昨天一位客户在屏幕上报告了一个"订阅超出范围错误",点击它就会退出应用程序。
我们使用一个标准的错误处理例程,它会弹出一个消息框并将错误记录到文件中,而这两件事都没有发生,这让我认为有问题的代码行没有任何错误处理。
现在。。我该如何找到这行代码在我的项目中的位置?
我可以写一些东西来扫描每个文件,当我在sub等中看到on error...
时,请注意,但有人能想出更好/更快的方法吗?有什么工具可以做这种事情吗?
我写了这个(VB.NET)代码来提取这些信息(注意,编码有点快,有点脏,但似乎可以工作)
它无法在同一子程序中处理on error goto 0
和on error goto [label]
:
Private Sub SearchForNoErrorHandlers(ByVal path As String)
Dim line As String, subName As String = "", inSub As Boolean = False, handlerFound As Boolean = False
For Each file As String In Directory.GetFiles(path, "*.*", SearchOption.AllDirectories)
'Debug.WriteLine(file) 'gives the full path and filename of any files found
If file.EndsWith(".bas") OrElse file.EndsWith(".cls") OrElse file.EndsWith(".frm") Then
Using sr As New StreamReader(file)
Do Until sr.EndOfStream
line = sr.ReadLine
'Debug.WriteLine(line)
If IsStartOfSub(line) AndAlso Not inSub Then
subName = line
inSub = True
handlerFound = False
ElseIf IsEndOfSub(line) AndAlso inSub Then
inSub = False
If handlerFound = False Then
Debug.WriteLine("** No handler found for file {0} in Sub: {1}", file, subName)
End If
ElseIf line.ToUpper.Contains("ON ERROR") AndAlso inSub Then
handlerFound = True
End If
Loop
End Using
End If
Next
End Sub
Private Function IsStartOfSub(ByVal line As String) As Boolean
Dim subTextPosition As Integer = line.ToUpper.IndexOf("SUB ")
Dim functionTextPosition As Integer = line.ToUpper.IndexOf("FUNCTION ")
Dim openBracket As Integer = line.IndexOf("(")
Dim closeBracket As Integer = line.IndexOf(")")
If subTextPosition >= 0 AndAlso openBracket >= 0 AndAlso closeBracket >= 0 AndAlso closeBracket > openBracket AndAlso openBracket > subTextPosition Then
Return True
ElseIf functionTextPosition >= 0 AndAlso openBracket >= 0 AndAlso closeBracket >= 0 AndAlso closeBracket > openBracket AndAlso openBracket > functionTextPosition Then
Return True
Else
Return False
End If
End Function
Private Function IsEndOfSub(ByVal line As String) As Boolean
Return (line.ToUpper.Contains("END SUB") OrElse line.ToUpper.Contains("END FUNCTION"))
End Function