EditPoint2.ReplaceText أسلوب (Object, String, Int32)
استبدال نص محدد بنص معين.
مساحة الاسم: EnvDTE80
التجميع: EnvDTE80 (في EnvDTE80.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
مطلوبة.نص إلى إدراج.
- Flags
النوع: System.Int32
مطلوبة.vsEPReplaceTextOptionsثابتة يمثل عنصر إجراء المحرر.
التطبيقات
EditPoint.ReplaceText(Object, String, Int32)
ملاحظات
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.
- الثقة الكاملة للمتصل الفوري. يتعذر استخدام هذا العضو بواسطة التعليمات البرمجية الموثوق بها جزئيًا. لمزيد من المعلومات، راجع باستخدام مكتبات من تعليمات برمجية موثوق بها جزئي.