Find 介面

更新：2007 年 11 月

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

命名空間：  EnvDTE
組件：  EnvDTE (在 EnvDTE.dll 中)

語法

<GuidAttribute("40D4B9B6-739B-4965-8D65-692AEC692266")> _
Public Interface Find

Dim instance As Find

[GuidAttribute("40D4B9B6-739B-4965-8D65-692AEC692266")]
public interface Find

[GuidAttribute(L"40D4B9B6-739B-4965-8D65-692AEC692266")]
public interface class Find

public interface Find

備註

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

其主要目的是供巨集錄製。編輯器的巨集錄製機制使用的是 Find 而不是 TextSelection.FindPattern，如此一來，您可以探索全域尋找功能，而且相較於使用 TextSelection 物件進行像是「檔案中尋找」 (Find-in-Files) 的作業，這種機制更為有用。

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

請參閱

參考

Find 成員

EnvDTE 命名空間