EditPoint.ReplaceText أسلوب

  • مقالة

استبدال نص محدد بنص معين.

مساحة الاسم:  EnvDTE
التجميع:  EnvDTE (في EnvDTE.dll)

بناء الجملة

'إقرار
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
)

المعلمات

  • PointOrCount
    النوع: System.Object
    مطلوبة.أما على TextPointعدد صحيح يحدد نص أو الكائن إلى replace.
  • Text
    النوع: System.String
    مطلوبة.نص إلى إدراج.

ملاحظات

ReplaceTextقم باستبدال نص الموجود بين الفواصل تحرير يؤشر وPointOrCountمعText، مما يجعل محاولة الاحتفاظ بشكل صحيح لمواقع علامات لنقاط التوقف، تسمية الاختصار، وما إلى ذلك.

أمثلة

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

أمن NET Framework.

راجع أيضًَا

المرجع

EditPoint واجهة

EditPoint الأعضاء

EnvDTE مساحة الاسم