Herramienta para formatear código de VB.Net - específicamente los saltos de línea

Question

¿Hay herramientas disponibles para dar formato automáticamente código de vb.net - específicamente para añadir saltos de línea en una longitud de línea predefinida? Estoy trabajando con una gran cantidad de código con líneas largas (miles de líneas), y reformatear manualmente se consume bastante tiempo. He visto una serie de herramientas para la reordenación de código en regiones etc., pero no he encontrado ninguno que formatear con saltos de línea. Libre sería grande.

Answer 1

Trate de tener auto-VS envolver sus líneas. La opción debe estar en el menú Herramientas | opciones | básicos | ajustes | Ajuste de línea.

Otra cosa a hacer es ir a la Edición | avanzado | opción de menú Formato de Documento, que ayuda a limpiar el aire con documentos no están bien formadas.

Una tercera opción es instalar Código DevExpress' Fiebre del Xpress add-on, que es añadir líneas verticales muy útil para cuando los bloques de código empiezan y terminan, y también ayuda en el código de refactorización. Se puede llegar desde aquí: http://devexpress.com/Products/Visual_Studio_Add-in/ CodeRushX / . Es gratis, pero no es compatible con las ediciones Express de Visual Studio.

Answer 2

Utilice Visual Studio 2008 tiene que usar Ctrl + A + K + F para formatear el C #, VB código

Answer 3

Sé que esto fue publicada hace mucho tiempo. Pero si alguna vez alguien tuvo el mismo problema, trate de esta sub hice. El sub tendrá dos salidas (Cuadrodetexto1 = Código con los viajes, TextBox3 = un código de un trazador de líneas).

Cree dos cuadros de texto (llamado Cuadrodetexto1 y TextBox3) y un botón (Button1)

Crear un sub (nombre lo que quiere) y escriba este código:

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. No añadí el código para restaurar su entrada original.