この記事は翻訳者によって翻訳されたものです。 記事の文章にポインターを重ねると、原文のテキストが表示されます。 |
訳文
原文
|
EditPoint.ReplaceText メソッド
選択したテキストを指定したテキストで置換します。
アセンブリ: EnvDTE (EnvDTE.dll 内)
パラメーター
- PointOrCount
- 型: System.Object
必ず指定します。 置換するテキストを判断する TextPoint オブジェクトまたは整数。
- Text
- 型: System.String
必ず指定します。 挿入するテキスト。
- Flags
- 型: System.Int32
必ず指定します。 エディターの動作を表す vsEPReplaceTextOptions 定数。
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
- 直前の呼び出し元に対する完全な信頼。 このメンバーは、部分的に信頼されているコードから使用することはできません。 詳細については、「部分信頼コードからのライブラリの使用」を参照してください。