VB.NET 코드를 개혁하는 도구 - 특히 라인 브레이크

StackOverflow https://stackoverflow.com/questions/2011119

  •  18-09-2019
  •  | 
  •  

문제

vb.net 코드를 자동으로 포맷하는 데 사용할 수있는 도구가 있습니까? 특히 사전 정의 된 줄 길이에서 라인 브레이크를 추가하기위한 도구가 있습니까? 나는 긴 줄 (수천 줄)을 가진 많은 코드로 작업하고 있으며 수동으로 재구성하는 데 시간이 많이 걸립니다. 나는 코드를 지역 등으로 재정렬하기위한 많은 도구를 보았지만 라인이 깨지는 개혁을 찾지 못했습니다. 무료는 좋을 것입니다.

도움이 되었습니까?

해결책

라인을 자동으로 찍어보십시오. 옵션은 도구에 있어야합니다 | 옵션 | 기본 | 설정 | 줄 바꿈.

또 다른 일은 편집으로 이동하는 것입니다 | 고급 | 문서 메뉴 옵션을 형식화하지 않은 문서로 공기를 깨끗하게하는 데 도움이됩니다.

세 번째 옵션은 Devexpress의 코드 Rush Xpress 애드온을 설치하는 것입니다. 코드 블록이 시작되고 종료 될 때 매우 편리한 수직선을 추가하고 코드를 리팩토링하는 데 도움이됩니다. 여기에서 얻을 수 있습니다. http://devexpress.com/products/visual_studio_add-in/coderushx/. 무료이지만 Visual Studio의 Express Editions를 지원하지 않습니다.

다른 팁

Visual Studio 2008 사용 C#, VB 코드를 형식화하려면 Ctrl + A + K + F를 사용해야합니다.

나는 이것이 오래 전에 게시되었다는 것을 알고 있습니다. 그러나 누군가 같은 문제가 있다면 내가 만든이 서브를 시도하십시오. 서브에는 두 개의 출력이 있습니다 (TextBox1 = breaks, textbox3 = 하나의 라이너 코드).

두 개의 텍스트 상자 (TextBox1 및 TextBox3)와 버튼 (button1)을 만듭니다.

하위 (원하는 이름)를 만들고이 코드를 입력하십시오.

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

추신 : 원래 입력을 복원하기 위해 코드를 추가하지 않았습니다.

라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top