Как получить Unid

  • Автор темы yonyak
  • Дата начала
Y

yonyak

Гость
#4
ну мне нужно создать масив значений UNID документов коллекции
 

Akupaka

А че я?.. О.о
04.10.2007
3 360
2
34
Kiev, Ukraine
#9
Ну раз пошла такая пьянка.
Что быстрее, взять документ по UNID или по NoteID? :)
эээ... думаю, что если нулевой вид не отсортирован по Name или ProcessorID, то килограмм будет по гривен 10 :)

ну мне нужно создать масив значений UNID документов коллекции
Код:
dim col as NotesDocumentCollection
dim doc as notesdocument
dim unidArray as variant
dim i as long

set col = {getting the collection}
if col.Count > 0 then
redim unidArray (0 to col.Count)
set doc = col.GetFirstDocument
set i = 0
while not(doc is nothing)
unidArray(i) = doc.universalID
i = i + 1
set doc = col.GetNextDocument(doc)
end while
end if
Код:
dim col as NotesDocumentCollection
dim doc as notesdocument
dim unidArray as variant

set col = {getting the collection}
if col.Count > 0 then
set doc = col.GetFirstDocument
while not(doc is nothing)
if isArray(unidArray) then
redim preserve unidArray (lbound(unidArray) to ubound(unidArray) + 1)
else
redim unidArray (0 to 0)
end if
unidArray(ubound(unidArray)) = doc.universalID

set doc = col.GetNextDocument(doc)
end while
end if
первый вариант должен быть полезнее в отношении скорости и памяти, т.к. память выделяется фиксированно один раз...