Новый бот-ассистент на форуме Codeby
Теперь на форуме работает ИИ-помощник @bot_cdb — твой технический ассистент по информационной безопасности. Просто упомяни @bot_cdb в любой теме, и получишь быстрый ответ на вопросы по CVE, инструментам, техникам атак и защиты. Бот анализирует весь тред перед ответом, проверяет актуальность данных и может предложить дополнительную помощь. Особенно полезен для проверки технических деталей, поиска документации и быстрых консультаций по пентесту, малвари, форензике и другим областям ИБ.
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set dc = db.UnprocessedDocuments
If dc.Count <> 0 Then
Set doc = dc.GetFirstDocument
While Not doc Is Nothing
Call doc.ReplaceItemValue ("ДАТА_РЕГИСТРАЦИИ " , Cdat (doc.GetItemValue ("ДАТА_РЕГИСТРАЦИИ ")(0)))
Call doc.Save (True , False)
Set doc = dc.GetNextDocument (doc)
Wend
End If
удали и создай новое
мой вам совет - держаться подальше от этого методаесть метод appendItemValue(itemName$,value)
Видимо, имелось ввиду следующее:to ToxaRat что вы имели ввиду "перед реплейсем именно удалить итем"?
Call doc.RemoveItem("ItemName")
Call doc.ReplaceItemValue("ItemName", ItemValue)
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab