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 Module
Skró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 Module
A 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