通过

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

  • 项目

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

命名空间：  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 对象，或一个用来确定要替换的文本的整数。

实现

EditPoint.ReplaceText(Object, String, Int32)

备注

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 安全性

请参见

参考

EditPoint2 接口

ReplaceText 重载

EnvDTE80 命名空间