しょうゆ醸造中
世の中適当
スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
VS.NET用マクロ
Sub AddRegion()
Dim CloseUndoContext As Boolean = False

If DTE.UndoContext.IsOpen = False Then
CloseUndoContext = True
DTE.UndoContext.Open("DevHawkAddRegionMacro", False)
End If

Try
Dim name As String = InputBox("表示するテキストを入力してください。")

If (name.Trim().Length = 0) Then Exit Sub

Dim sel As TextSelection = DTE.ActiveDocument.Selection

Dim lTop = sel.TopPoint.Line
Dim lBot = IIf(sel.BottomPoint.AtStartOfLine, sel.BottomPoint.Line - 1, sel.BottomPoint.Line)

sel.MoveToLineAndOffset(lBot, 1)
sel.EndOfLine()
sel.NewLine()

If DTE.ActiveDocument.Language = "CSharp" Then
sel.Text = "#endregion"
ElseIf DTE.ActiveDocument.Language = "Basic" Then
sel.Text = "#End Region"
Else
Throw New System.Exception("Invalid Language: " + DTE.ActiveDocument.Language)
End If

sel.MoveToLineAndOffset(lTop, 1)
sel.StartOfLine()

If DTE.ActiveDocument.Language = "CSharp" Then
sel.Text = "#region " + name.Trim()
ElseIf DTE.ActiveDocument.Language = "Basic" Then
sel.Text = "#Region """ + name.Trim() + """"
Else
Throw New System.Exception("Invalid Language: " + DTE.ActiveDocument.Language)
End If

sel.NewLine()
Finally
If CloseUndoContext Then DTE.UndoContext.Close()
End Try
End Sub
コメント
この記事へのコメント
コメントを投稿する
URL:
Comment:
Pass:
秘密: 管理者にだけ表示を許可する
 
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。