Поиск вьюшек без индекса

Sub Initialize
 
This agent is designed to export the specified design elements to .dxl (.xml in Notes).
 
Dim session As New NotesSession
Dim db As NotesDatabase
Dim nc As NotesNoteCollection
Dim stream As NotesStream
Dim exporter As NotesDXLExporter
Const filename = "c:\filename.xml" Change as required
 
Set db = session.CurrentDatabase
 
Set stream = session.CreateStream
Call stream.Open(filename)
Call stream.Truncate
 
Set nc = db.CreateNoteCollection(False)
nc.SelectAgents=True Change as required
Call nc.BuildCollection
 
Set exporter = session.CreateDXLExporter(nc, stream)
Call exporter.Process
End Sub

Dim stream As NotesStream
Set stream = session.CreateStream
path = "c:\dxl\"
filename = Left(db.FileName, Len(db.FileName) - 3) & "dxl"
filename = path$ & filename$
If Not stream.Open(filename$) Then
MessageBox "Cannot open " & filename$,, "Error"
Exit Sub
End If
Call stream.Truncate
 
REM Create note collection
Dim nc As NotesNoteCollection
Set nc = db.CreateNoteCollection(False)
Call nc.SelectAllNotes(True)
nc.Selectviews = False
Call nc.BuildCollection
 
REM Export note collection as DXL
Dim exporter As NotesDXLExporter
Set exporter = session.CreateDXLExporter(nc, stream)
Call exporter.Process

views = db.Views
ForAll v In views
 
??????
 
End ForAll

Dim vText As Variant
 
vText = stream.ReadText()
 
ForAll v In views
 
 
Is Used?
If vText Like "*" & v.Name & "*" Then
aRange( iLineCounter, iColumn ) = "Yes"
Else
aRange( iLineCounter, iColumn ) = "No"
End If
 
End ForAll

vText Like {*"} & v.Name & {"*}