• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

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

  • Автор темы Автор темы 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)
 
<!--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")
 
Для: 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 )
 
Ругается

Код:
 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 )
 
где add - это переменная со значением которое надо добавить в поле

Код:
Dim doc As NotesDocument
Dim item As NotesItem
add = doc.GetItemValue("PoleAdd")(0)
Call item.AppendToTextList( add )
 
doc.ReplaceItemValue("Pole", ArrayAppend(doc.GetItemValue("Pole"), doc.GetItemValue("PoleAdd")(0)))
 
Обобщу что тут понаписали :)

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

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

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

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

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

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab