Strumento per riformattare il codice VB.Net - in particolare interruzioni di riga

Question

Ci sono strumenti a disposizione per la formattazione automaticamente il codice vb.net - in particolare per l'aggiunta di interruzioni di riga in una lunghezza di linea predefinita? Sto lavorando con un sacco di codice con palangari (migliaia di linee), e riformattare manualmente richiede molto tempo. Ho visto una serie di strumenti per riorganizzare il codice in regioni ecc, ma non ho trovato alcun che riformattare con interruzioni di riga. Libero sarebbe grande.

Answer 1

Prova avendo VS auto-avvolgere le linee. L'opzione dovrebbe essere nelle Tools | opzioni | di base | impostazioni | A capo automatico.

Un'altra cosa da fare è andare al Modifica | avanzate | opzione di menu Document Format, che aiuta a chiarire le cose con i documenti non ben formati.

Una terza opzione è quella di installare codice DevExpress' Rush Xpress add-on, che aggiungono di linee verticali molto utile per quando blocchi di codice iniziano e finiscono, e aiuta anche a refactoring del codice. È possibile ottenere da qui: http://devexpress.com/Products/Visual_Studio_Add-in/ CodeRushX / . E 'gratuito, ma non supporta le versioni Express di Visual Studio.

Answer 2

Con Visual Studio 2008 è necessario utilizzare Ctrl + A + K + F per la formattazione del C #, il codice vb

Answer 3

So che questo è stato pubblicato molto tempo fa. Ma se mai qualcuno ha avuto lo stesso problema, provate questo sub ho fatto. Il sub avrà due uscite (Textbox1 = codice con interruzioni, Textbox3 = un codice di un liner).

Creare due caselle di testo (di nome e Casellatesto1 Textbox3) e un pulsante (Button1)

Crea un sub (nome ciò che si vuole) e inserisci questo codice:

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. non ho aggiunto il codice per ripristinare il vostro input originale.