EditPoint.ReplaceText Method
Replaces the selected text with the given text.
Namespace: EnvDTE
Assembly: EnvDTE (in envdte.dll)
Assembly: EnvDTE (in envdte.dll)
void ReplaceText ( [InAttribute] Object PointOrCount, [InAttribute] string Text, [InAttribute] int Flags )
void ReplaceText ( /** @attribute InAttribute() */ Object PointOrCount, /** @attribute InAttribute() */ String Text, /** @attribute InAttribute() */ int Flags )
Parameters
- PointOrCount
Required. Either a TextPoint object or an integer that determines the text to replace.
- Text
Required. The text to insert.
- Flags
Required. A vsEPReplaceTextOptions constant representing an editor action.
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