Добавление значения в конец списка

[fvoice]

Есть переменная Array, тип Variant, нужно поместить произвольную строку в конце списка:
допустим
Array(0) = "1"
Array(1) = "2"

как на скриптах добавить элемент Array(2) = "3"?

P.S. Извините за глупый вопрос, в голову ничего не лезет..

 

[Medevic]

ArrayAppend

 

[fvoice]

ArrayAppend

Я уже пробовал, но может не правильно, т.к. конструкция типа:

Array = ArrayAppend(Array,"qwer")

не работает..
Medevic будь добр просвети пожалуйста почему?

 

[Medevic]

Ошибку выдает или как не работает ?

 

[morpheus]

Для: fvoice
Error handling
ArrayAppend throws a Type mismatch error if:
sourceArray1 is not an array
an array with more than one dimension is used

Проверте что у Вас за массив Array
на крайняк
i = Ubound(Array) + 1
Redim Preserve Array( i )
Array( i ) = "123"

 

[fvoice]

Говорит Type Mismatch при выполнении.

 

[Medevic]

Для: fvoice
Значит читай пост выше почему ошибка выскакивает.

 

[fvoice]

Для: Morpheus

дык... Array - variant

 

[morpheus]

Для: fvoice
так он array или Variant ???

проверкить легко - IsArray

Tests the value of an expression to determine whether it is an array.
Syntax
IsArray ( expr )
Elements
expr
Any expression.
Return value
IsArray returns TRUE (-1) if expr is an array; otherwise IsArray returns FALSE (0).

 

[fvoice]

Есть переменная Array, тип Variant

Я передаю в функцию Item.Values, это и получается Array, поэтому он Variant, мне нужно прибавить к нему строку и вернуть ее обратно.

 

[Medevic]

Для: fvoice
Всё должно работать. Ошибка точно в этой строке? Дебаггером пользовался?

 

[fvoice]

Для: Medevic
Да, только там чуть по другому:

Array = ArrayAppend(Array,doc.Field(0))

но это ничего не меняет.

наверное, придется переделать в процедуру, передавать как item и добавлять AppendToTextList...

 

[Medevic]

Для: fvoice
Как Array получаешь? В дебаггере это массив?

 

[Sandr]

Если масив объявлен как масив определенной размерности, то надо сделать redim preserve

 

[Azrael]

Используй списки:

Dim array List As String

Подробнее - в справке.

 

[LuMee]

Раз пошла такая пьянка, то тоже спрошу. В общем, у меня имеется схожая задача, только значение нужно дописать не просто в массив, а в поле документа. Пытаюсь делать так:

Dim arr As Variant
arr = doc.GetItemValue("SomeField")
arr = Arrayappend(arr, <какое-то значение>)
doc.ReplaceItemValue "SomeField", arr

Так вот, если в даном поле документа еще нет значений, то на строке с Arrayappend Lotus Notes (версия 5.0.4а) торжественно обрушивается. Знает ли кто-нибудь, что это за ерунда и как это половчее обойти?

 

[fvoice]

Для: LuMee

Dim doc as NotesDocument
Dim item as NotesItem

Set item = doc.GetFirstItem("SomeField")
Call item.AppendtoTextlist("Some value")

 

[morpheus]

Для: LuMee
Вам наверное лучше пользоваться

AppendToTextList method

For an item that's a text list, adds a new value to the item without erasing any existing values.


Syntax
Call notesItem.AppendToTextList( newValue )
Parameters
newValue
String or array of strings. The string(s) you want to add to the item.

1. This script appends the text value "Shocks" to the Categories item in a document. For example, if the Categories item contains the values "Clocks" and "Blocks" before the script runs, it contains the values "Clocks," "Blocks," and "Shocks" after the script runs.

Dim doc As NotesDocument
Dim item As NotesItem
' ...set value of doc...
Set item = doc.GetFirstItem( "Categories" )
Call item.AppendToTextList( "Shocks" )
Call doc.Save( False, True )

 

[LuMee]

Для: fvoice, Morpheus
Я так понимаю, что сей метод жует только строки. Мне, увы, нужно работать с датами, так что такой вариант не подходит

 

[Medevic]

Для: LuMee
Redim тебя спасёт. Или Evaluate.