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

Тема в разделе "Lotus - Программирование", создана пользователем yonyak, 19 дек 2008.

  1. yonyak

    yonyak Гость

    Как получить UNID
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
  3. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    где ? шо ? как?
     
  4. yonyak

    yonyak Гость

    ну мне нужно создать масив значений UNID документов коллекции
     
  5. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    unid$ = notesDocument.UniversalID

    F1 как говорилось выше, в помощ
     
  6. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    тема для флуда?.. :)
     
  7. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Ну раз пошла такая пьянка.
    Что быстрее, взять документ по UNID или по NoteID? :)
     
  8. yonyak

    yonyak Гость

    Спасибо я уже понял.
     
  9. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    эээ... думаю, что если нулевой вид не отсортирован по Name или ProcessorID, то килограмм будет по гривен 10 :)

    Код (Text):
    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
    Код (Text):
    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
    первый вариант должен быть полезнее в отношении скорости и памяти, т.к. память выделяется фиксированно один раз...
     
Загрузка...

Поделиться этой страницей