onm*_*133 5 add-in breakpoints visual-studio
我想在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,
Run Code Online (Sandbox Code Playgroud)
有什么方法可以在Visual Studio中使用它(2008年及以上是首选),还是有任何加载项?
此功能在 Visual Studio 2010 和 2012 中的断点窗口中可用。 http://msdn.microsoft.com/en-us/library/dd293674.aspx
(c) Visual Studio 团队(产品团队,微软)2012 年 11 月 21 日
另外,这里有一个在 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
Run Code Online (Sandbox Code Playgroud)