EditPoint.ReplacePattern(TextPoint, String, String, Int32, TextRanges) Метод
Определение
Важно!
Некоторые сведения относятся к предварительной версии продукта, в которую до выпуска могут быть внесены существенные изменения. Майкрософт не предоставляет никаких гарантий, явных или подразумеваемых, относительно приведенных здесь сведений.
Отыскивает шаблон в указанном фрагменте текста и замещает его на указанный текст.
[System.Runtime.InteropServices.DispId(152)]
public bool ReplacePattern (EnvDTE.TextPoint Point, string Pattern, string Replace, int vsFindOptionsValue = 0, out EnvDTE.TextRanges Tags = default);
[<System.Runtime.InteropServices.DispId(152)>]
abstract member ReplacePattern : EnvDTE.TextPoint * string * string * int * TextRanges -> bool
Public Function ReplacePattern (Point As TextPoint, Pattern As String, Replace As String, Optional vsFindOptionsValue As Integer = 0, Optional ByRef Tags As TextRanges = Nothing) As Boolean
Параметры
- Point
- TextPoint
Обязательный. Точка конца заданного диапазона текста. Точка редактирования и точка — это границы для замены.
- Pattern
- String
Обязательный. Строка, которую нужно найти.
- Replace
- String
Обязательный. Строка замены для шаблона.
- vsFindOptionsValue
- Int32
Необязательный параметр. Константа vsFindOptions, указывающая тип выполняемой операции поиска.
- Tags
- TextRanges
Необязательный параметр. Если сопоставленный шаблон является регулярным выражением, содержащим вложенные выражения с тегами, то теги содержат коллекцию TextRange объектов, по одной для каждой части выражения, заключенного в теги.
Возвращаемое значение
Возвращается значение true, если объект успешно заменен. В противном случае возвращается значение false.
- Атрибуты
Примеры
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
Комментарии
ReplacePattern находит текст точно так же FindPattern , за исключением того, что он ищет только текст между точкой редактирования и аргументом Point . Чтобы найти и заменить весь документ, используйте ReplacePattern . TagsКоллекция возвращает только сведения о последнем сопоставленном шаблоне.