共用方式為


Find2 介面

更新:2007 年 11 月

支援文件和檔案環境中的一般文字 Find 作業。

命名空間:  EnvDTE80
組件:  EnvDTE80 (在 EnvDTE80.dll 中)

語法

<GuidAttribute("01568308-5B2A-4F30-8D0A-E10EE0F28F4A")> _
Public Interface Find2 _
    Implements Find

Dim instance As Find2
[GuidAttribute("01568308-5B2A-4F30-8D0A-E10EE0F28F4A")]
public interface Find2 : Find
[GuidAttribute(L"01568308-5B2A-4F30-8D0A-E10EE0F28F4A")]
public interface class Find2 : Find
public interface Find2 extends Find

備註

Find 物件可讓您在支援這類作業的環境 (例如程式碼編輯器) 中尋找和取代文字。

其主要目的是供巨集錄製。編輯器的巨集錄製機制是使用 Find,而不是 TextSelection.FindPattern,因此您可發現全域尋找功能。再者,對於在檔案中尋找這類作業而言,它大致上比使用 TextSelection 物件更加實用。

Visual Studio 環境的全域尋找狀態可供它的所有工具一起共用,並且提供搜尋功能。例如,所有 Visual Studio 項目會共用工作階段中的搜尋模式記錄,以及下一個對開啟文件的 Find 作業是要向前或是向後。Find 物件的屬性會與全域尋找狀態互動並且追蹤它。當您設定 Find 物件上的屬性時,您也設定了全域尋找狀態。如果使用者透過環境執行 Find 作業,則 Find 物件會反映他們所執行的搜尋種類。由於 Automation 程式碼與環境的 UI 執行緒同步執行,因此您不必擔心是否需要在可呼叫 Execute 之前,設定某些屬性或讓使用者執行搜尋。

Execute 方法根據 Find 物件的設定執行 Find 作業。您也可以傳遞引數給 FindReplace 方法執行搜尋,而不影響全域尋找狀態。Automation 用戶端必須能執行搜尋,而不影響全域尋找狀態或干擾到使用者的環境狀態模型。

範例

Sub FindExample()
   Dim objTextDoc As TextDocument
   Dim objEditPt As EditPoint
   Dim iCtr As Integer
   Dim objFind As Find

   ' 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")
   objEditPt = objTextDoc.StartPoint.CreateEditPoint
   objFind = objTextDoc.DTE.Find

   ' Insert ten lines of text.
   For iCtr = 1 To 10
      objEditPt.Insert("This is a test." & Chr(13))
   Next iCtr

   ' Set the find options.
   objFind.Action = vsFindAction.vsFindActionReplaceAll
   objFind.Backwards = False
   objFind.FilesOfType = "*.txt"
   objFind.FindWhat = "test"
   objFind.KeepModifiedDocumentsOpen = True
   objFind.MatchCase = False
   objFind.MatchInHiddenText = False
   objFind.MatchWholeWord = True
   objFind.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral
   objFind.ReplaceWith = "NEW THING"
   objFind.ResultsLocation = vsFindResultsLocation.vsFindResultsNone
   objFind.SearchPath = "c:\temp"
   objFind.SearchSubfolders = False
   objFind.Target = vsFindTarget.vsFindTargetCurrentDocument
   ' Perform the Find operation.
   objFind.Execute()
End Sub

請參閱

參考

Find2 成員

EnvDTE80 命名空間