أداة لإعادة صياغة رمز VB.NET - فواصل الأسطر على وجه التحديد

Question

هل هناك أي أدوات متاحة لتنسيق رمز VB.NET تلقائيا - خصيصا لإضافة فواصل الأسطر عند طول خط محدد مسبقا؟ أنا أعمل مع الكثير من التعليمات البرمجية بخطوط طويلة (آلاف الخطوط)، وإعادة تهيئة الوقت يدويا تستغرق وقتا طويلا. لقد رأيت عددا من الأدوات لإعادة ترتيب التعليمات البرمجية إلى المناطق وما إلى ذلك، ولكن لم تجد أي إعادة صياغة مع فواصل الأسطر. سيكون مجانا.

Answer 1

حاول وجود خياطتك التلقائية. يجب أن يكون الخيار في الأدوات | خيارات | أساسي | الإعدادات | كلمة التفاف.

شيء آخر يجب القيام به هو الذهاب إلى تحرير | متقدم | خيار "تنسيق قائمة المستند، والذي يساعد على مسح الهواء مع مستندات غير مشكلت بشكل جيد.

الخيار الثالث هو تثبيت Devexpress 'Code Rush Xpress Add-On، والذي إضافة خطوط رأسية مفيدة للغاية عند بدء كتل التعليمات البرمجية وتنتهي، كما يساعد أيضا في إعادة تكوين التعليمات البرمجية. يمكنك الحصول عليها من هنا: http://devexpress.com/products/visual_studio_add-in/coderushx/. وبعد إنه مجاني، ولكن لا يدعم الإصدار السريع من Visual Studio.

Answer 2

استخدم Visual Studio 2008 لديك لاستخدام CTRL + A + K + F لتنسيق رمز C #، VB

Answer 3

أعلم أن هذا نشر منذ وقت طويل. ولكن إذا كان لدى شخص ما من أي وقت مضى نفس المشكلة، جرب هذا الفرع الذي صنعته. سيكون لدى الفرعية مخرجين (TextBox1 = التعليمات البرمجية مع فترات الراحة، 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

ملاحظة: لم أقم بإضافة الرمز لاستعادة المدخلات الأصلية الخاصة بك.