Как найти уникальные поля в коллекции ?

Тема в разделе "Lotus - Программирование", создана пользователем Sandro, 21 апр 2010.

  1. Sandro

    Sandro Гость

    Есть коллекция документов(LS), в документе есть поле, как получить массив с перечнем уникальных значений полей ?
    В голову приходит только сравнивание подокументно, как нить "поизящнее" <_< это можно сделать ?
     
  2. Xalet

    Xalet Well-Known Member

    Регистрация:
    8 авг 2008
    Сообщения:
    410
    Симпатии:
    0
    @unique
    ArrayUnique function
     
  3. Sandro

    Sandro Гость

    Мне надо в Lotus Script и именно из коллекции <_<
     
  4. amigolinx

    amigolinx Гость

    По коллекции все равно пробежать придется, чтобы взять значения из доков. Попутно тулим их в массив, а на выходе на этом массиве выполняем ArrayUnique, которая как раз и есть ЛС-функцией <_<
     
  5. Xalet

    Xalet Well-Known Member

    Регистрация:
    8 авг 2008
    Сообщения:
    410
    Симпатии:
    0
    а коллекция откуда появляется?
     
  6. etc

    etc Гость

    А чего их искать? Все поля уникальные, на то они и поля.
     
  7. Darker

    Darker Гость

    dim uniqueList list as string
    dim doc as notesdocument

    'col - твоя коллекция
    for i=1 to col.count 'твоя коллекция
    set doc=col.getnthdocument(i)
    v=doc.getitemvalue("Твое_поле")(0)
    if not iselement(uniqueList(v)) then uniqueList(v)=v
    next


    ' в конце получишь уникальный массив-список uniqueList
     
  8. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    Sandro
    в коллекции могут быть только документы, нет у лотуса стандартной коллекции полей))).
    Меня вообще вот правильно учили различать поля на форме (fields) и поля в документе (items).
    Поля в документе могут быть получены либо из документов в NotesDocumentCollection, как у Вас, либо из энтри вьюшки, если они могут отображаться в представлении и могут быть взяты через ColumnValues(или взяты из документов, которые попали в представление).

    getnthdocument(i) лучше не юзать. неэффективно. поищите, обсуждалось. Брать GetFirstDocument...GetNextDocument и аналогичное
     
  9. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.046
    Симпатии:
    18
    Код (LotusScript):
    call col.stampall("Field", "0")
    и всё, теперь можно спать спокойно, больше уников нету ;)
     
  10. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    А бы тоже пробежка по докам + list as string делал бы
     
  11. Xalet

    Xalet Well-Known Member

    Регистрация:
    8 авг 2008
    Сообщения:
    410
    Симпатии:
    0
    А я бы изначально коллекцию "уникальной" постарался бы получить.
     
  12. TIA

    TIA :-)
    Lotus team

    Регистрация:
    15 май 2009
    Сообщения:
    790
    Симпатии:
    0
    Значения полей могут быть разного типа и многозначными.
     
  13. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.046
    Симпатии:
    18
    тут очень хорошо implode помогает ;)
     
  14. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Тогда и отсортировать нужно.
    Лучше уж пройтись по всем значениям и сравнить.
     
  15. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.046
    Симпатии:
    18
    кстати а чем собаки не устраивают? ;)
     
  16. Sandro

    Sandro Гость

    Понял, спасиб :) Просто предполагается ,что документов будет большое количество, а код нужен что бы сформировать достаточно сложный по структуре отчёт в excell, если будет долго обрабатываться это не есть хорошо. Как показывает практика, чуть формирование задержится, сразу лезут, завершать задачу и писать , что всё зависает ))))
     
  17. Darker

    Darker Гость

    С учетом многозначности и разных типов(приводим все в String)


    Код (Text):
    dim doc as notesdocument
    'col - твоя коллекция
    set doc=col.getfirstdocument
    while not doc is nothing 'твоя коллекция
    if doc.hasitem("Твое_поле") then
    temp=doc.getitemvalue("Твое_поле")
    if isarray(temp) then v=cstr(join(temp,"^"))+"^" else v=v+cstr(temp)+"^"
    end if
    set doc=col.getnextdocument(doc)
    wend
    uniqueArr=arrayunique(fulltrim(split(v,"^")))

    ну или создать временную папку(сгруппированную по твоему полю), закинуть коллекцию в папку, и пройтись нафигатором по первому столбцу
     
  18. Sandro

    Sandro Гость

    И снован ниид хелп )))) Извиняюсь если туплю, но вот пытаюсь сделать выборку респонсов для нужного мне дока

    Set dscoll=db.Search(|$Ref="|+note.UniversalID+|"|,Nothing,0)

    Не получается ((((
     
  19. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    @Text($Ref)
     
  20. Darker

    Darker Гость

    Set dscoll=note.responses
     
Загрузка...

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