EditPoint2.ReplaceText 方法 (Object, String, Int32)

项目
10/25/2012

用给定文本替换选定文本。

命名空间： EnvDTE80
程序集： EnvDTE80（在 EnvDTE80.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
类型：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