K
K-Fire
Дифстфительно, не понимаю, почему так хают метод AppendToTextList. Он прекрасно добавляет ненулевые строковые значения к полю, не разу еще не замечал что он этого не делает...
15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby
За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.
На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.
Запись на курс до 25 апреля. Получить промодоступ ...
Дифстфительно, не понимаю, почему так хают метод AppendToTextList. Он прекрасно добавляет ненулевые строковые значения к полю, не разу еще не замечал что он этого не делает...
А что там должно быть?А Вы гляньте в свойства документа после этой операции (в набор итемов, смотреть тот итем, к которому Вы эту операцию применяли)... вот удивитесь smile.gif
а как тогда различать ";". Если у меня отделены слова - ";".вроде нет, руками надо описывать
Есть поле со списком имен, которые разделенны между собой ";". Мне надо 2 последних имени на собачьем языке, это елементарно - FIELD LastAuthorizer := @Subset(Authorisers ; -2 );Денис Кириченко
а нука поподробнее что надо и что имметься?
NotesDocument.Authorisers( Ubound( NotesDocument.Authorisers ) ) - последнне значение
NotesDocument.Authorisers( Ubound( NotesDocument.Authorisers ) - 1 ) - Предпоследнне значение
NotesDocument.Authorisers( Ubound( NotesDocument.Authorisers ))
Кто-то могет подсказать какому объекту можно присвоить значение массива?!?!
Код:NotesDocument.Authorisers( Ubound( NotesDocument.Authorisers ))
не массивы, не переменные, не поле не помагает ругается Type mismatchне путайте обьекты и переменные, в вашем случае это обычный String или Variant
Dim sTest as String
sTest = NotesDocument.Authorisers( Ubound( NotesDocument.Authorisers ))
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim newReaders(0 To 63) As String
Dim reader As String
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
If Isempty(view.Readers) Then
n = 0
Else
For j = 0 To Ubound(view.Readers)
newReaders(j) = view.Readers(j)
Messagebox "Current reader: " & newReaders(j)
Next
n = Ubound(view.Readers) + 1
End If
reader = Inputbox("Name of reader?")
Do While reader <> ""
newReaders(n) = reader
reader = Inputbox("Name of reader?")
n = n + 1
Loop
view.Readers = newReaders
n скорее всего Integer
Morpheus, sorry можно не много ликбеза Ubound работает с массивами данных, а поле содержашие некоторое количество даных (может одно), разделенных ";" относится к массиву. У меня есть подзрение, что Ubound не считает поле за массив. Поэтому и выдает ошибку - Type mismatchen скорее всего Integer
dim var as variant
var = NotesDocument.getitemvalue("Authorisers")
sTest = var( ubound(var))
Set item = NotesDocument.GetFirstItem("Authorisers")
sTest = item.Values(Ubound(item.Values))
Morpheus, sorry можно не много ликбеза Ubound работает с массивами данных, а поле содержашие некоторое количество даных (может одно), разделенных ";" относится к массиву. У меня есть подзрение, что Ubound не считает поле за массив. Поэтому и выдает ошибку - Type mismatche
Обучение наступательной кибербезопасности в игровой форме. Начать игру!