工具格式化VB.Net代码 - 特别是换行符

Question

是否有任何可用的工具，用于自动格式化vb.net码 - 特别为在预定义的线路长度增加换行符？我用了很多长线路（千行）代码的工作，并手动重新格式化是相当耗费时间。我已经看到了一些重新排列代码为区域等工具，但没有发现任何与换行符格式化。免费将是巨大的。

Answer 1

尝试具有VS自动包装你线。该选项应该是在工具|选项|基本|设置|自动换行。

做的另一件事是去编辑|高级|格式文件菜单选项，这有助于清除空气中的不充分形成文档。

一个第三选项是安装的DevExpress'代码拉什随心插件，这增加是非常方便的垂直线，用于当代码块的开始和结束，并且还有助于在重构代码。 http://devexpress.com/Products/Visual_Studio_Add-in/：你可以从这里得到它CodeRushX / 。它是免费的，但不支持的Visual Studio Express版本。

Answer 2

使用Visual Studio 2008中，你必须使用Ctrl + A + K + F格式化你的C＃，VB代码

Answer 3

我知道这被张贴在很久以前。但是，如果有人曾经有同样的问题，试试这个分我做了。子将具有两个输出（Textbox1的=代码与断裂，Textbox3 =一个衬垫码）。

创建两个文本框（命名为Textbox1的和Textbox3）和按钮（按钮1）

创建子（名字，你想要什么），然后输入以下代码：

Try
            Dim x As String = TextBox1.Text

            x = x.Replace("& """, "")
            x = x.Replace(""" _", "")
            x = x.Replace("""", "")
            x = x.Replace(vbNewLine, "")
            x = x.Replace(vbTab, "")

            While x.Contains("  ")                     '2 spaces.
                x = x.Replace("  ", " ")      'Replace with 1 space.
            End While

            TextBox3.Text = x

            Dim l As Integer = Len(x)
            Dim xlim As Integer = InputBox("Specify the maximum number of characters for each line:", "Line Max", 66)
            Dim ylim As Double = 0

            TextBox1.Text = ""

            ylim = l / xlim

            If Int(ylim) <> ylim Then
                ylim = Int(ylim) + 1
            Else
                ylim = Int(ylim)
            End If

            Dim una As String = "", huli As String = ""
            Dim mynewstring As String = ""
            Dim startin As Integer = 1
            For i = 1 To ylim
                If i = 1 Then
                    una = """"
                Else
                    una = vbTab & "& """
                End If
                If i = ylim Then
                    huli = """"
                Else
                    huli = """ _"
                End If
                mynewstring = mynewstring & una & Strings.Mid(x, startin, xlim) & huli & vbNewLine
                startin += xlim
            Next

            TextBox1.Text = mynewstring

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

P.S。我没有添加代码来恢复原来的输入。