共用方式為

EditPoint2.ReplacePattern 方法 (TextPoint, String, String, Int32, TextRanges%)

  • 發行項

在指定的文字範圍中尋找比對模式，並以指定的文字取代它。

命名空間：  EnvDTE80
組件：  EnvDTE80 (在 EnvDTE80.dll 中)

語法

'宣告
Function ReplacePattern ( _
    Point As TextPoint, _
    Pattern As String, _
    Replace As String, _
    vsFindOptionsValue As Integer, _
    <OutAttribute> ByRef Tags As TextRanges _
) As Boolean

bool ReplacePattern(
    TextPoint Point,
    string Pattern,
    string Replace,
    int vsFindOptionsValue,
    out TextRanges Tags
)

bool ReplacePattern(
    [InAttribute] TextPoint^ Point, 
    [InAttribute] String^ Pattern, 
    [InAttribute] String^ Replace, 
    [InAttribute] int vsFindOptionsValue, 
    [InAttribute] [OutAttribute] TextRanges^% Tags
)

abstract ReplacePattern : 
        Point:TextPoint * 
        Pattern:string * 
        Replace:string * 
        vsFindOptionsValue:int * 
        Tags:TextRanges byref -> bool 

function ReplacePattern(
    Point : TextPoint, 
    Pattern : String, 
    Replace : String, 
    vsFindOptionsValue : int, 
    Tags : TextRanges
) : boolean

參數

  • Point
    型別：EnvDTE.TextPoint
    必要項。所指定文字範圍的結束點。編輯點和 Point 是取代的界限。
  • Pattern
    型別：System.String
    必要項。要尋找的字串。
  • Replace
    型別：System.String
    必要項。Pattern 的取代字串。
  • Tags
    型別：EnvDTE.TextRanges%
    選擇項。如果符合的模式比對是規則運算式，並且含有標記子運算式，則 Tags 會針對每個標記子運算式包含一個 TextRange 物件的集合。

傳回值

型別：System.Boolean
如果取代成功，則為 true，否則為 false。

實作

EditPoint.ReplacePattern(TextPoint, String, String, Int32, TextRanges%)

備註

ReplacePattern 尋找文字的方式與 FindPattern 類，不同的是前者只搜尋介於編輯點與 Point 引數之間的文字。 若要在整份文件中進行尋找和取代，請使用 TextDocument.ReplacePattern。 Tags 集合只傳回上一次符合模式比對的資訊。

範例

Sub ReplacePatternExample()
   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."
    objEditPt.ReplacePattern(objMovePt, "test", "thing", vsFindOptions.vsFindOptionsFromStart)
End Sub

.NET Framework 安全性

請參閱

參考

EditPoint2 介面

ReplacePattern 多載

EnvDTE80 命名空間