Public Module BracketIt Public Sub AddBrackets() Dim s As Object = DTE.ActiveWindow.Selection() If s.Text.StartsWith("(") And s.Text.EndsWith(")") Then s.Text = s.Text.Substring(1, s.Text.Length - 2) Else s.Text = "(" + s.Text + ")" End If End Sub End ModuleSkrótem klawiszowym do wywołania tego makra mam ustawione na:
Shift+CTRL+A, Shift+CTRL+B,
Równie dobrze można było dodać nawiasy ostrokątne do edycji plików xml.
Drugim makrem jest asercja sprawdzająca czy wartość jest nullem:
Public Module AddAssert Public Sub IsNotNull() Dim s As Object = DTE.ActiveWindow.Selection() Dim assertStr As String = "Assert.IsNotNull" If s.Text.Length > 0 Then s.Text = assertStr + "(" + s.Text + ")" Else s.Text = assertStr End If End Sub End ModuleA skrótem klawiszowym jest:
Shift+CTRL+A, Shift+CTRL+A
Te 2 makra u mnie się sprawdzają. Jeśli masz swój pomysł na makro to podziel się nim.
Brak komentarzy:
Prześlij komentarz