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

Question

Existe-t-il des outils disponibles pour le formatage automatique du code vb.net - spécifiquement pour ajouter des sauts de ligne à une longueur de ligne prédéfinie? Je travaille avec beaucoup de code avec de longues lignes (des milliers de lignes), et le reformatage manuel prend beaucoup de temps. J'ai vu un certain nombre d'outils pour réorganiser le code en régions, etc., mais je n'en ai trouvé aucun qui puisse être reformaté avec des sauts de ligne. Free serait génial.

Answer 1

Essayez d'avoir VS auto-envelopper vos lignes. L'option devrait être dans les outils | Options | Basic | Paramètres | Word Wrap.

Une autre chose à faire est d'aller à l'Edit | Avancé | Formater l'option de menu Document, qui aide à nettoyer l'air avec des documents mal formés.

Une troisième option consiste à installer le module complémentaire Code Rush Xpress de DevExpress, qui ajoute des lignes verticales très utiles pour le début et la fin des blocs de code, et aide également à refactoriser le code. Vous pouvez l'obtenir à partir d'ici: http://devexpress.com/Products/Visual_Studio_Add-in/CodeRushX/. C'est gratuit, mais ne supporte pas 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 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 l'ai fait. Le sous-marin aura deux sorties (Textbox1 = Code avec des ruptures, Textbox3 = un code d'une ligne).

Créer deux (nom textboxes 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 

post-scriptum Je n'ai pas ajouté le code pour restaurer votre entrée d'origine.