Parsing 找到没有错误处理程序的子例程或代码段的最佳方法是什么

我维护了一个大型VB6应用程序，昨天一位客户在屏幕上报告了一个“下标超出范围错误”，点击它退出应用程序

我们使用一个标准的错误处理例程，它抛出一个消息框并将错误记录到文件中，而这两种情况都没有发生，这一事实使我认为所讨论的代码行没有任何错误处理

现在..我如何找到这行代码在我的项目中的位置

我可以写一些东西来扫描每个文件，当我看到sub等内部出现错误时，注意到…，但有人能想出更好/更快的方法吗？有什么工具可以做这种事情吗？

我写了这个（VB.NET）代码来提取这些信息（注意，编码有点快，有点脏，但似乎可以工作）

它不会在同一子例程中处理错误转到0时的

和错误转到[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