Export (0) Print
Expand All

EditPoint.ReplaceText Method

Replaces the selected text with the given text.

Namespace: EnvDTE
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
)
function ReplaceText (
	PointOrCount : Object, 
	Text : String, 
	Flags : int
)

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.

ReplaceText replaces the text between the edit point and PointOrCount with Text, making an attempt to correctly preserve the locations of markers for breakpoints, named shortcuts, and so forth.

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

Community Additions

ADD
Show:
© 2015 Microsoft