在 VS 2008 中取消注释 CSS 的快捷方式？

Question

我使用这个问题中提到的宏来评论文本选择VS 2008 中的 CSS 编辑器。我正在寻找另一个取消注释的宏。

Answer 1

只需编写一个类似的模块/方法，我认为应该可行，我没有尝试过，但这就是我的想法。
请将此视为您链接的帖子的补充，您可以从该帖子中查找其他详细信息。

Public Module UnCommentCSS
    Sub UnCommentCSS()
        Dim selection As TextSelection
        selection = DTE.ActiveDocument.Selection

        Dim selectedText As String
        selectedText = selection.Text

        If selectedText.Length > 0 _
           and selectedText.StartsWith("/*") _
           and selectedText.EndsWith("*/") Then
           selectedText = selectedText.Split("*"c)
           selection.Text = selectedText(1)
        End If
    End Sub
End Module

注意：如果 /* */ 之间没有嵌套 *，则此方法有效
否则你必须做出必要的改进/改变

Answer 2

正如 IObservable 的 Brian Schmitt 建议 ，您可以使用相同的键来注释和取消注释您的代码，当然取决于它是否已经注释。他用来实现此目的的代码如下：

Sub CommentCSS()
If Not DTE.ActiveDocument.Name.EndsWith("css") Then Return
 Try
  DTE.UndoContext.Open("Comment CSS")

  Dim txtSel As TextSelection = DTE.ActiveDocument.Selection
  Dim currText As String = txtSel.Text

  If currText.Length > 0 Then
   Dim newTxt As String
   If currText.Trim.StartsWith("/*") AndAlso currText.Trim.EndsWith("*/") Then
    newTxt = currText.Replace("/*", "").Replace("*/", "")
   Else
    newTxt = "/*" + currText + "*/"
   End If

   txtSel.Delete()
   txtSel.Insert(newTxt, vsInsertFlags.vsInsertFlagsInsertAtEnd)
  End If
 Finally
  DTE.UndoContext.Close()
 End Try
End Sub

我从代码中删除了他的注释，因为它们弄乱了 SO 的代码着色，但他提供的选项似乎非常方便。此外，在上面提供的链接中，他解释了如何绑定快捷键以使其正常工作。