EditPoint.ReplaceText メソッド
更新 : 2007 年 11 月
選択したテキストを指定したテキストで置換します。
名前空間 : EnvDTE
アセンブリ : EnvDTE (EnvDTE.dll 内)
構文
'宣言
Sub ReplaceText ( _
PointOrCount As Object, _
Text As String, _
Flags As Integer _
)
'使用
Dim instance As EditPoint
Dim PointOrCount As Object
Dim Text As String
Dim Flags As Integer
instance.ReplaceText(PointOrCount, Text, _
Flags)
void ReplaceText(
Object PointOrCount,
string Text,
int Flags
)
void ReplaceText(
[InAttribute] Object^ PointOrCount,
[InAttribute] String^ Text,
[InAttribute] int Flags
)
function ReplaceText(
PointOrCount : Object,
Text : String,
Flags : int
)
パラメータ
PointOrCount
型 : System.Object必ず指定します。TextPoint オブジェクト、または置換対象のテキストを決定する整数を指定します。
Text
型 : System.String必ず指定します。挿入するテキスト。
Flags
型 : System.Int32必ず指定します。エディタのアクションを表す vsEPReplaceTextOptions 定数。
解説
ReplaceText は、エディット ポイントと PointOrCount の間にあるテキストを Text に置き換えます。置き換える際に、ブレークポイントや名前付きショートカットなどのマーカーの位置を正確に保持するよう試みます。
例
Sub ReplaceTextExample()
Dim objTextDoc As TextDocument
Dim objMovePt As EditPoint
Dim objEditPt As EditPoint, iCtr As Integer
' Create a new text file.
DTE.ItemOperations.NewFile("General\Text File")
' Get a handle to the new document and create an EditPoint.
objTextDoc = DTE.ActiveDocument.Object("TextDocument")
objMovePt = objTextDoc.EndPoint.CreateEditPoint
objEditPt = objTextDoc.StartPoint.CreateEditPoint
' Insert ten lines of text.
For iCtr = 1 To 10
objEditPt.Insert("This is a test." & Chr(13))
Next iCtr
objEditPt.StartOfDocument()
objMovePt.EndOfDocument()
' Replace all occurrences of "test" with "thing."
MsgBox("Replacing all text with a new string...")
objEditPt.ReplaceText(objMovePt, "ALL TEXT REPLACED WITH THIS SENTENCE.", vsEPReplaceTextOptions.vsEPReplaceTextAutoformat)
End Sub
アクセス許可
- 直前の呼び出し元に対する完全な信頼。このメンバは、部分的に信頼されているコードから使用することはできません。詳細については、「部分信頼コードからのライブラリの使用」を参照してください。