Compartir a través de


EditPoint.ReplaceText (Método)

Reemplaza el texto seleccionado por el texto especificado.

Espacio de nombres:  EnvDTE
Ensamblado:  EnvDTE (en EnvDTE.dll)

Sintaxis

'Declaración
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
)

Parámetros

  • PointOrCount
    Tipo: System.Object
    Requerido.Objeto TextPoint o número entero que determina el texto que se va a reemplazar.

Comentarios

ReplaceText reemplaza el texto entre el punto de edición y PointOrCount con Text, intentando conservar correctamente las ubicaciones de los marcadores de puntos de interrupción, accesos directos con nombre, etc.

Ejemplos

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

Seguridad de .NET Framework

Vea también

Referencia

EditPoint Interfaz

EnvDTE (Espacio de nombres)