Automatyzacja OLE: przykład
wykorzystania procedury SearchForEx
Przykład wykorzystania procedury SearchForEx
Dim searchResults As Object
Dim search2 As Object
Dim criteria As Object
Set criteria = CreateObject("Wilbur.SearchCriteria")
criteria.FileName = "*.txt"
' pobierz listę plików o rozszerzeniu *.txt
' zawierających wyrażenie wprowadzone
' w polu Text1
Set searchResults = _
wilbur.SearchForEx(Text1.Text, criteria)
' Wyodrębnij nazwy z listy i użyj ich
' do wypełnienia listy rozwijalnej
Dim bResult As Boolean
Dim nCount As Integer
nCount = 0
bResult = searchResults.setToStart
' pobierz liczbę wyników
Dim nTotal As Integer
nTotal = searchResults.getCount
While bResult
Dim lastMod As Date
' sprawdź, czy wynik pasuje do wymagań wyszukiwania w sąsiedztwie
If searchResults.isNearOK Then
lastMod = searchResults.getModifiedDate
rank = searchResults.getRank
List1.AddItem searchResults.getPath + _
Chr(9) + Str(rank) + Chr(9) + Format(lastMod)
End If
nCount = nCount + 1
Status = "Sprawdzanie odległości " & nCount & " z " & nTotal
DoEvents
bResult = searchResults.setToNext
Wend
Procedura przeszuka indeks i umieści pliki spełniające kryteria
w obiekcie searchResults. Lista ta przechodzi
następnie przez pętlę, która umieszcza na liście rozwijalnej nazwy plików,
daty modyfikacji, ilość wystąpień słowa w plikach, które spełniają kryteria
wyszukiwania w sąsiedztwie. Pasek stanu zostaje uaktualniony, by pokazywał
liczbę plików.
|
