• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Нужно скопировать и дописать данные в поле

  • Автор темы LIGHT
  • Дата начала
L

LIGHT

Человеки, подскажите как на LS замутить такое:
Есть поле много значное при определенном условии в это поле нужно засунуть еще одно значением.

Как можно всять все текущие данные?
Типа doc.GetItemValue("Pole")(ALL) что бы в дальнейшем сделать

Код:
cur = doc.GetItemValue("Pole")([b]ALL[/b])
add = doc.GetItemValue("PoleAdd")(0)
Call doc.ReplaceItemValue("Pole"cur & chr(10) & add)
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
<!--QuoteBegin-LIGHT+17:12:2007, 10:09 -->
<span class="vbquote">(LIGHT @ 17:12:2007, 10:09 )</span><!--QuoteEBegin-->Как можно всять все текущие данные?
[snapback]90149" rel="nofollow" target="_blank[/snapback]​
[/quote]
doc.GetItemValue("Pole")
 
M

morpheus

Для: LIGHT
Я бы использовал
AppendToTextList
Код:
Dim doc As NotesDocument
Dim item As NotesItem
Dim newVals( 1 To 3 ) As String
'...set value of doc...
Set item = doc.GetFirstItem( "Categories" )
newVals( 1 ) = "Girls"
newVals( 2 ) = "Boys"
newVals( 3 ) = "Toys"
Call item.AppendToTextList( newVals )
Call doc.Save( False, True )
 
L

LIGHT

Ругается

Код:
 Dim item as NoteItem
Set .....

CountElements = Ubound(doc.GetItemValue("Review")

For st = 0 to CountElements 

NewVal (st) = doc.GetItemValue("Reviewers")( st )
MsgBox NewVal (st) 
Next

Call item.Appen.....

Ругается на NewVal (st) = doc.GetItemValue("Reviewers")( st )
 
M

morpheus

где add - это переменная со значением которое надо добавить в поле

Код:
Dim doc As NotesDocument
Dim item As NotesItem
add = doc.GetItemValue("PoleAdd")(0)
Call item.AppendToTextList( add )
 
S

Sandr

doc.ReplaceItemValue("Pole", ArrayAppend(doc.GetItemValue("Pole"), doc.GetItemValue("PoleAdd")(0)))
 
K

K-Fire

Обобщу что тут понаписали :)

Если поле текстовое, то:

Код:
Dim doc As NotesDocument
Dim item As NotesItem
Call item.AppendToTextList("то что надо добавить к списку")

Если поле нетекстовое, то:

Код:
tmp = doc.GetItemValue("поле") ' в тмп получается список
tmp = arrayappend(tmp, "значение, которое добавить в список")
doc.поле = tmp или doc.ReplaceItemValue("поле", tmp)

Естественно надо навесить проверки на то что такое поле уже есть, что значение в поле непустое и т.д.
 
Мы в соцсетях:

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