Outil pour reformater le code VB.Net - en particulier les sauts de ligne

Question

Y a-t-il des outils disponibles pour le formatage automatiquement le code vb.net - en particulier pour ajouter des sauts de ligne à une longueur de ligne prédéfinie? Je travaille avec beaucoup de code avec de longues lignes (en milliers de lignes), et reformater manuellement est beaucoup de temps. Je l'ai vu un certain nombre d'outils pour le code réarranger dans des régions etc., mais n'ai pas trouvé que reformater avec des sauts de ligne. Gratuit serait génial.

Answer 1

Essayez d'avoir l'auto-emballer vos lignes VS. L'option doit être dans les Outils | options | base | paramètres | Retour à la ligne.

Une autre chose à faire est d'aller à Edit | avancé | Format option de menu de document, ce qui aide l'air clair avec pas de documents bien formés.

Une 3ème option est d'installer le code Rush Xpress DevExpress add-on, qui ajoutent des lignes verticales est très pratique pour quand les blocs de code commencent et se terminent, et aide également dans le code refactoring. Vous pouvez l'obtenir ici: http://devexpress.com/Products/Visual_Studio_Add-in/ CodeRushX / . Il est gratuit, mais ne prend pas en charge les éditions Express de Visual Studio.

Answer 2

Utilisez Visual Studio 2008, vous devez utiliser Ctrl + A + K + F pour le formatage de votre c #, le code de vb

Answer 3

Je sais que cela a été publié il y a longtemps. Mais si jamais quelqu'un a eu le même problème, essayez ce sous je fait. Le sous aura deux sorties (Textbox1 = code avec des pauses, Textbox3 = un code d'une doublure).

Création de deux zones de texte (nom Textbox1 et Textbox3) et un bouton (Button1)

Créer un sous (nom que vous voulez) et entrez ce code:

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. Je n'ai pas ajouté le code pour restaurer votre entrée d'origine.