Each line where some text is selected is commented at the line-start with double-slash. If nothing is selected, the line where the cursor is is commented.
In case of multiline selection:
My solution uncomments only if all the lines in the selection are commented. I found it more intuitive.
Solution:
Tools -> Macros -> Macros IDE...
In Macro Explorer right click on Macros and click New Macro Project...
Name your macro for e.g. MyMacroProject and click Add.
Right click on Module1 in your new macro project in Macro Explorer
and click Edit.
Paste this into the macro editor window:
Option Strict Off
Option Explicit Off
Imports EnvDTE
Imports System.Text.RegularExpressions
Public Module Module1
Sub ToggleCommentLine()
Dim sel As TextSelection = DTE.ActiveDocument.Selection
Dim firstLine As Integer = sel.TopPoint.Line
Dim lastLine As Integer = sel.BottomPoint.Line
sel.GotoLine(firstLine, True)
sel.LineDown(True, lastLine - firstLine)
sel.EndOfLine(True)
'we un-comment only if there is no commented line
Dim allLinesCommented As Boolean = True
Dim lineIndex As Integer = firstLine
While allLinesCommented And (lineIndex <= lastLine)
sel.GotoLine(lineIndex, True)
allLinesCommented = Regex.IsMatch(sel.Text, "^s*//.*$")
lineIndex += 1
End While
'iterate over the lines
For lineIndex = firstLine To lastLine
sel.GotoLine(lineIndex, True)
Dim line As String = sel.Text
Dim m As Match = Regex.Match(line, "^(s*)(//)(.*)$")
If allLinesCommented Then
sel.Text = m.Groups(1).Value & m.Groups(3).Value
ElseIf Not m.Success Then
sel.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstColumn)
sel.Text = "//"
End If
Next
'select all the affected lines
sel.GotoLine(firstLine, True)
sel.LineDown(True, lastLine - firstLine)
sel.EndOfLine(True)
End Sub
End Module
Save this file and close the macro editor window.
Bind your macro to a key:
Tools -> Options... -> Environment -> Keyboard
Type this into Show commands containing:
ToggleCommentLine
Select Macros.MyMacroProject.Module1.ToggleCommentLine.
Set a key at Press shortcut keys: .
, then click Assign, then click OK.
Enjoy.
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…