EditPoint.ReplaceText Yöntem
Seçili metni belirli bir metinle değiştirir.
Ad alanı: EnvDTE
Derleme: EnvDTE (EnvDTE.dll içinde)
Sözdizimi
'Bildirim
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
)
Parametreler
PointOrCount
Tür: ObjectGerekli.Ya da bir TextPoint nesne veya metnin yerini belirten bir tamsayı.
Text
Tür: StringGerekli.Eklenecek metin.
Flags
Tür: Int32Gerekli.A vsEPReplaceTextOptions bir düzenleyici eylem gösteren sabit.
Notlar
ReplaceTextmetin düzenleme noktası arasında yerini alır ve PointOrCount ile Text, doğru kesme noktaları, adlandırılmış kısayolları ve diğerleri için işaretçileri konumlarını korumak için bir girişimi yapmak.
Örnekler
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 Güvenliği
- Anında arayanlar için tam güven. Bu üye kısmen güvenilen kodla kullanılamaz. Daha fazla bilgi için bkz. Kısmen Güvenilen Koddan Kitaplıkları Kullanma.