EditPoint.ReplaceText 方法
用给定文本替换选定文本。
命名空间： EnvDTE
程序集： EnvDTE（在 EnvDTE.dll 中）
语法
声明
Sub ReplaceText ( _
PointOrCount As Object, _
Text As String, _
Flags As Integer _
)
void ReplaceText(
Object PointOrCount,
string Text,
int Flags
)
void ReplaceText(
[InAttribute] Object^ PointOrCount,
[InAttribute] String^ Text,
[InAttribute] int Flags
)
abstract ReplaceText :
PointOrCount:Object *
Text:string *
Flags:int -> unit
function ReplaceText(
PointOrCount : Object,
Text : String,
Flags : int
)
参数
PointOrCount
类型：Object必需。 或者是一个 TextPoint 对象，或一个用来确定要替换的文本的整数。
Text
类型：String必需。 要插入的文本。
Flags
类型：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
.NET Framework 安全性
- 对直接调用方的完全信任。此成员不能由部分信任的代码使用。有关详细信息，请参阅通过部分受信任的代码使用库。