需要有关通过按键宏格式化 C 注释的方法的建议

Question

为了可视化，假设“_”实际上是一个空白。

考虑以下内容

/*!
____This_is_a_comment_about_a_function
____and_its_purpose
____and_arguments
____and_things_of_that_ilk
*/

我想做的是选择该文本块，按下按钮，然后哇哦！ 就改成这样的形式了。

/*!____________________________________
____This_is_a_comment_about_a_function_
____and_its_purpose____________________
____and_arguments______________________
____and_things_of_that_ilk_____________
_____________________________________*/

为什么我需要这个？第二种形式可以缓解我在检查代码时的眼睛疲劳。对我来说，问题已经足够了，应该做点什么。

到目前为止我尝试过什么？主要是在谷歌上搜索宏示例。没有任何迹象表明可能有成效的方向。尝试理解宏IDE有点困难。有些人在这里搜索

我的问题是什么？

你能给我指向链接吗？给我一个提示吗？猜猜看？我需要研究什么才能弄清楚如何做到这一点。

感谢您的关注。

邪恶的。

Answer 1

您是否寻找过使用宏获取和替换选定文本的宏示例，以及相当于 字符串填充？我认为这三件事可以结合起来，在每行上循环来构建最终的字符串来替换原始选择。

伪代码：

selText = getSelectedText();
selTextSplit = selText.split("\n");
selTextPadded = "";
for (i = 0; i < selTextSplit.length; i++) {
    selTextPadded += selTextSplit[i].padRight(80, ' ') + "\n";
}
replaceSelectedText(selTextPadded);

Answer 2

这就是我的成果。
感谢贾里德为我指明了富有成效的方向。

Sub FormatEvil()

Try
    DTE.UndoContext.Open("Evil Style C Comment Padder")

    Dim txtSel As TextSelection = DTE.ActiveDocument.Selection

    Dim currText As String = txtSel.Text

    If currText.Trim.StartsWith("/*") AndAlso currText.Trim.EndsWith("*/") Then

        Dim splitText() As String = Split(currText, vbCrLf)

        ' Trim all of the lines down
        For z = 0 To UBound(splitText) - 1
            splitText(z) = Trim(splitText(z))
        Next

        ' How long should the block be?
        Dim longestLine As Integer = 0
        For z = 0 To UBound(splitText) - 1
            If splitText(z).Length > longestLine Then
                longestLine = splitText(z).Length
            End If
        Next

        longestLine += 4

        ' build the value to replace the selection with.
        Dim selTextPadded As String = "/*    "
        selTextPadded = selTextPadded.PadRight(longestLine + 2) + vbCrLf

        For z = 1 To UBound(splitText) - 2
            splitText(z) = splitText(z).PadRight(longestLine - 2)
            selTextPadded += "    " + splitText(z).ToString() + vbCrLf
        Next

        splitText(UBound(splitText) - 1) = splitText(UBound(splitText) - 1).PadRight(longestLine - 2)
        selTextPadded += "    " + splitText(UBound(splitText) - 1).ToString() + vbCrLf

        Dim tmp As String = "*/"
        selTextPadded += tmp.PadLeft(longestLine + 2) + vbCrLf

        txtSel.Delete() 'This is to help keep formatting correct when multiline
        txtSel.Insert(selTextPadded, vsInsertFlags.vsInsertFlagsContainNewText)
    Else
        ' This is not a c comment
    End If
Finally
    DTE.UndoContext.Close()
End Try
End Sub