如何在Visual Studio中定义断点集?

时间:2013-01-09 08:06:18

标签: visual-studio add-in breakpoints

我想在Visual Studio中定义一些断点集,以便我可以在它们之间切换。

通过,我指的是我定义的某些行的断点集合。我有很多场景,我想在这些集合之间切换以简化我的调试。

例如:

Set 1: breakpoints at line 1, line 3, line 5, line 7
Set 2: breakpoints at line 2, line 4, line 6, line 8,

有没有办法在Visual Studio中使用它(2008年及以上是首选),还是有任何加载项?

2 个答案:

答案 0 :(得分:2)

  

此功能在Visual Studio 2010和2012中可用   断点窗口。   http://msdn.microsoft.com/en-us/library/dd293674.aspx

(c)Visual Studio团队(微软产品团队)2012年11月21日

http://visualstudio.uservoice.com/forums/121579-visual-studio/suggestions/2394909-breakpoint-sets-or-groups-enable-disable-breakp

此外,这里是在Visual Studio 2008中实现此功能的小宏。您可以将其复制到宏中的任何模块中(工具>宏>宏浏览器>右键单击任何模块>编辑>粘贴那里),然后将其作为命令添加到任何菜单(通过工具>自定义......)

Dim savePath = "c:\temp"
Sub SaveBreakpoints()
    Dim fname As String
    Dim lBreakpointsList As System.Collections.Generic.List(Of Breakpoint)
    Dim fileList = IO.Directory.GetFiles(savePath)
    Dim lFiles = ""
    For Each lFile In fileList
        lFiles = String.Concat(lFiles, IO.Path.GetFileNameWithoutExtension(lFile), vbCrLf)
    Next
    fname = InputBox(String.Concat("Existing sets:", vbCrLf, lFiles, vbCrLf, "Name of new set:"), "Save Breakpoints", "1")
    If fname = "" Then
        Return
    End If
    lBreakpointsList = New System.Collections.Generic.List(Of Breakpoint)
    For Each lBreakpoint As EnvDTE.Breakpoint In DTE.Debugger.Breakpoints
        lBreakpointsList.Add(New Breakpoint(lBreakpoint.File, lBreakpoint.FileLine, lBreakpoint.Condition))
    Next

    Using fs As New IO.StreamWriter(String.Concat("c:\temp\", fname, ".txt"))
        For Each lBreakpoint As Breakpoint In lBreakpointsList
            fs.WriteLine(String.Format("{0}   |||   {1}   |||   {2}", lBreakpoint.File, lBreakpoint.Line, lBreakpoint.Condition))
        Next
    End Using
End Sub

Sub RestoreBreakpoints()
    Dim fname As String
    Dim lBreakpointsList As System.Collections.Generic.List(Of Breakpoint)
    Dim lProperties As String()
    Dim fileList = IO.Directory.GetFiles(savePath)
    Dim lFiles = ""
    For Each lFile In fileList
        lFiles = String.Concat(lFiles, IO.Path.GetFileNameWithoutExtension(lFile), vbCrLf)
    Next
    fname = InputBox(String.Concat("Enter name of set to restore. Existing sets:", vbCrLf, vbCrLf, lFiles), "Restore Breakpoints", "1")
    If fname = "" Then
        Return
    End If
    lBreakpointsList = New Collections.Generic.List(Of Breakpoint)
    Dim lBp As Breakpoint
    Using fs As New IO.StreamReader(String.Concat("c:\temp\", fname, ".txt"))
        While Not fs.EndOfStream
            lProperties = fs.ReadLine().Split(New String() {"   |||   "}, StringSplitOptions.None)
            lBp = New Breakpoint(lProperties(0), lProperties(1), lProperties(2))
            lBreakpointsList.Add(lBp)
        End While
    End Using
    Try
        DTE.ExecuteCommand("Debug.DeleteAllBreakpoints")
    Catch ex As Exception
    End Try
    For Each lBp1 As Breakpoint In lBreakpointsList
        DTE.Debugger.Breakpoints.Add(, lBp1.File, Convert.ToInt32(lBp1.Line), , lBp1.Condition)
    Next
End Sub

Class Breakpoint
    Public File
    Public Line
    Public Condition

    Public Sub New(ByVal pFile, ByVal pLine, ByVal pCondition)
        File = pFile
        Line = pLine
        Condition = pCondition
    End Sub
End Class

答案 1 :(得分:0)

您可以点击该行的开头。然后单击断点>插入断点。您可以为每一行执行此操作。我认为那就是你要找的东西。