将符号写入文本的命令(Resharper?VS2010?)

它是一个VisualStudio宏,最初来自JPBoodhoo的.NET训练营类。就是这样:

 Sub ConvertLine()
        If DTE.ActiveDocument Is Nothing Then Return

        Dim isOpen As Boolean = OpenUndo("ConvertLine")

        Dim selection As TextSelection = CType(DTE.ActiveDocument.Selection(), EnvDTE.TextSelection)
        selection.SelectLine()
        If selection.Text = "" Then Return

        Dim classKeyword As String = "class """
        Dim methodKeyword As String = "void """
        Dim classIndex As Integer = selection.Text.IndexOf(classKeyword)
        Dim methodIndex As Integer = selection.Text.IndexOf(methodKeyword)
        If classIndex + methodIndex < 0 Then Return

        Dim index = CType(IIf(classIndex >= 0, classIndex, methodIndex), Integer)
        Dim prefix = selection.Text.Substring(0, index) + CType(IIf(classIndex >= 0, classKeyword, methodKeyword), String)
        Dim description As String = selection.Text.Replace(prefix, String.Empty)

        Dim conversion As String = Common.ReplaceSpacesWithUnderscores(description)
        conversion = Common.ReplaceApostrophesWithUnderscores(conversion)
        conversion = Common.ReplaceQuotesWithUnderscores(conversion)

        selection.Text = prefix.Replace("""", String.Empty) + conversion
        If prefix.Contains(methodKeyword) Then selection.LineDown() Else selection.LineUp()
        selection.EndOfLine()

        CloseUndo(isOpen)
    End Sub

看起来像一个“实时模板”。如果你注意到了,他会打进来 fact xUnit.net contrib 项目。您也应该能够为nUnit测试用例执行类似的操作。