Herramienta para formatear código de VB.Net - específicamente los saltos de línea
Pregunta
¿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.
Solución
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.
Otros consejos
Utilice Visual Studio 2008 tiene que usar Ctrl + A + K + F para formatear el C #, VB código
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.