• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы Sandro
  • Дата начала
S

Sandro

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

Sandro

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

amigolinx

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

etc

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

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
 
H

hosm

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

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

ToxaRat

Чёрный маг
Green Team
06.11.2007
3 332
42
BIT
0
Код:
call col.stampall("Field", "0")
и всё, теперь можно спать спокойно, больше уников нету ;)
 
O

Omh

А бы тоже пробежка по докам + list as string делал бы
 
X

Xalet

А я бы изначально коллекцию "уникальной" постарался бы получить.
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Тогда и отсортировать нужно.
Лучше уж пройтись по всем значениям и сравнить.
 

ToxaRat

Чёрный маг
Green Team
06.11.2007
3 332
42
BIT
0
кстати а чем собаки не устраивают? ;)
 
S

Sandro

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

Darker

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


Код:
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,"^")))


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

Sandro

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

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

Не получается ((((
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!