संपादित करें: ध्यान दें कि यह समाधान VS2013 या उच्चतर पर काम नहीं करता है, क्योंकि मैक्रोज़ के लिए समर्थन हटा दिया गया था। आरंभ करने के लिए, मैक्रो, रिकार्ड अस्थाई मैक्रो दृश्य स्टूडियो में बनाया गया मैक्रो है उपयोग उपकरण:
आप जरूरी यह करने के लिए एक वी.एस. ऐड कोड करने की आवश्यकता नहीं है।।
यहाँ एक 'क्रमबद्ध लाइन्स' कमांड मैं एक साथ कोड के आधार पर अनाधिकृत प्रवेश किया है रिकॉर्ड अस्थाई मैक्रो मुझे दिया है कि:
Imports System
Imports EnvDTE
Public Module TimModule
Sub SortLines()
Dim Selection As TextSelection = DTE.ActiveDocument.Selection
Dim Lines() As String = Selection.Text.Replace(Environment.NewLine, Chr(13)).Split(Chr(13))
Array.Sort(Lines)
DTE.UndoContext.Open("Sort Lines")
' Edit - see comments
' Selection.Text = String.Join(Environment.NewLine, Lines)
Selection.Delete
Selection.Insert(String.Join(Environment.NewLine, Lines))
DTE.UndoContext.Close()
End Sub
End Module
स्रोत
2010-07-28 07:52:16
आप TextSelection.Text संपत्ति का उपयोग कर रहे बदलने के लिए ये पाठ। यह आमतौर पर बहुत धीमी निष्पादन का कारण होता है। इसमें कई सेकंड लग सकते हैं। TextSelection का उपयोग करना बेहतर तरीका है। विधियों को हटाएं और हटाएं। मैंने इसका परीक्षण नहीं किया है, लेकिन मैं लाइन को प्रतिस्थापित करने की सलाह देता हूं: चयन। टेक्स्ट = स्ट्रिंग। जॉइन (पर्यावरण। न्यूलाइन, लाइन्स) 2 लाइनों के साथ: चयन। हटाएं चयन। प्रविष्ट करें (स्ट्रिंग.जॉइन (पर्यावरण। न्यूलाइन, लाइन्स)) तो फिर तुम उपकरण पट्टी या मेनू पर अपने मैक्रो जगह कर सकते हैं (http://www.helixoft.com/blog/archives/7) या (यह करने के लिए कुंजी शॉर्टकट असाइन http://www.helixoft.com/blog/अभिलेखागार/8) –
@ पीटर, धन्यवाद। मैंने इसे लंबे समय तक लिखने में खर्च नहीं किया - अगर आप ओपी का जवाब जोड़ते हैं तो मैं इसे –
वोट दूंगा। पीटर के सुझाव ने मेरे चलने का समय ~ 30 सेकंड से लगभग तात्कालिक तक बदल दिया है, और कुछ कचरा-रेखाएं उत्पन्न होने से भी रोक दी हैं। –