Werkzeug VB.Net Code neu zu formatieren - speziell Zeilenumbrüche

Question

Gibt es irgendwelche verfügbaren Werkzeuge für vb.net Code automatisch mit der Formatierung - speziell für das Hinzufügen von Zeilenumbrüchen in einem vorgegebenen Linienlänge? Ich arbeite mit viel Code mit langen Linien (Tausende von Zeilen) und manuell Neuformatierung es ist sehr zeitaufwendig. Ich habe für Neuanordnung Code in Regionen usw. eine Reihe von Tools gesehen, aber nicht alle, die mit Zeilenumbrüche umformatieren gefunden. Freie wäre toll.

Answer 1

Versuchen VS mit Ihren Linien Auto-wickeln. Die Option sollte in den Tool sein | Optionen | Grund | Einstellungen | Zeilenumbruch.

Eine andere Sache zu tun ist, um das Bearbeiten gehen | Erweitert | Format Dokumentmenüoption, die mit nicht wohlgeformten Dokumenten klar die Luft hilft.

Eine dritte Option ist DevExpress' Code-Ansturm Xpress-Add-on, die vertikalen Linien für hinzufügen zu installieren ist sehr praktisch, wenn Codeblocks beginnen und enden, und helfen auch bei der Refaktorierungscode. Sie können es von hier: http://devexpress.com/Products/Visual_Studio_Add-in/ CodeRushX / . Es ist kostenlos, aber nicht die Express-Editionen von Visual Studio unterstützen.

Answer 2

Verwenden von Microsoft Visual Studio 2008 Sie haben Strg + K + F + A verwenden, für die Formatierung Ihres C #, VB-Code

Answer 3

Ich weiß, das vor langer Zeit geschrieben wurde. Aber wenn überhaupt jemand das gleiche Problem hat, versuchen, diese Unter ich gemacht. Die Unter werden zwei Ausgänge haben (Textbox1 = Code mit Pausen, TextBox3 = ein Einzeiler-Code).

zwei Textfelder erstellen (mit dem Namen Textbox1 und TextBox3) und eine Schaltfläche (Button1)

Erstellen

ein Unter (Name, was Sie wollen), und geben Sie diesen Code ein:

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. Ich habe nicht den Code in den ursprünglichen Eingang wiederherzustellen.