VB.Netコードを再フォーマットするためのツール - 特に改行

Question

自動的vb.netコードをフォーマットするために利用可能なすべてのツールがあります - 特に事前に定義された行の長さで改行を追加しますか？私は長い行（数千行）とのコードの多くと協力し、手動でそれは非常に時間がかかり、再フォーマットしています。私は、などの領域にコードを再配置するためのツールの数を見てきましたが、改行を再フォーマットし、そのいずれかを発見していません。無料は素晴らしいことだ。

Answer 1

VSはあなたのラインを自動ラップ持つ試してみてください。オプションは、[ツール]にする必要があります|オプション|基本|設定|ワードラップ。

行うにはもう一つは、編集に行くとは|アドバンス|整形式でない文書と澄んだ空気を助け形式の文書メニューオプション、。

第三のオプションは、コードブロックの開始と終了、およびまた、コードのリファクタリングに役立ちますときのために非常に便利な縦の線だ追加され、DevExpress社のコードラッシュXpressのアドオンをインストールすることです。あなたはここからそれを得ることができます： http://devexpress.com/Products/Visual_Studio_Add-in/ CodeRushX / に。それは自由だが、Visual StudioののExpressのエディションをサポートしていません。

Answer 2

あなたのC＃のフォーマットにはCtrl + A + K + Fを使用する必要がありますのVisual Studio 2008を使用して、VBのコード

Answer 3

私は、これは長い時間前に投稿されました知っています。しかし、これまで誰かが同じ問題を抱えていた場合、私が作ったこのサブを試してみてください。サブ（Textbox3一のライナーコードを=、休憩とのTextBox1 =コード）2つの出力を有することになる。

2つのテキストボックス（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

P.S。私はあなたの元の入力を復元するためのコードを追加しませんでした。