1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

  1. yonyak

    yonyak Гость

    Репутация:
    0
    Как получить UNID
     
  2. Medevic

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

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

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

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

    yonyak Гость

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

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

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

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

    Akupaka А че я?.. О.о

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

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

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

    yonyak Гость

    Репутация:
    0
    Спасибо я уже понял.
     
  9. Akupaka

    Akupaka А че я?.. О.о

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

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

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