• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Не удается объявить размер массива

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

LIGHT

Помогите победить.
Есть у меня строка в которой я считаю количесово элементов.

Код:
...
Dim CountElement As Intriger
UNIDarr = Split(UNIDLine,";") ' Это та самая строка, которая разбита разделителем
CountElement = Ubount(UNIDarr)

CountElement - это число элементов
Теперь я хочу создать другой масиив, и указать его размерность такуюже как UNIDarr
Код:
Dim ArrStruct(CountElement)
И тут ругань страшная, пробовал так
Код:
Dim ArrStruct()
Тоже самое, не ругается только если тупо вбить
Код:
Dim ArrStruct(10)

Как бы это побороть?
 
M

morpheus

Для: LIGHT
В дополнение к Redim - он переопределяет разменрность массива и стирает все его значения
а конструкция Redim Preserve - переопределяет и оставляет все ранее занесенные значения
 
L

LIGHT

Спасибо! Заработало!!!

А не подскажете еще как можно весь массив в строку заколбасить, т.е есть например такой масив
Код:
Значение1
Значение2
Занчение3

Хочу получить
Код:
Значение1 (разделитель) Значение2 (разделитель) Значение3 (разделитель)
 
L

LIGHT

И еще один вопрос, что бы новую тему не создавать.
Существует ли в Lotuse такой вид переменных, не массив а которые наматывают на себя все значения.
Аналог PHP
$peremennaya. = "a";
$peremennaya. = "b";
$peremennaya. = "c";

print $peremennaya;

Вывалит abc
 
M

morpheus

Для: LIGHT
$peremennaya = "a"
peremennaya = peremennaya + "b"
peremennaya = peremennaya + "c"

print peremennaya

Вывалит abc
 
L

LIGHT

Все спасибо, разобрался.
Теперь такая заковыка вылезла.
Как на LS сделать @NewLine ???
 
L

LIGHT

... И еще раз спасибо!!!
И последний вопрос на сегодня :)
Как вычислить время не локальное а серверное
Код:
Dim MoveDate As NotesDateTime
Set MoveDate = New NotesDateTime ("Today")

ServerTime=MoveDate.[color=#FF0000]?????[/color]
 
M

morpheus

Для: LIGHT
зачем такое?

по моему стандартными средствами - никак
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
С 6-ки можно. Смотри у @Now параметр [SERVERTIME].
 
M

morpheus

<!--QuoteBegin-Medevic+18:06:2007, 15:03 -->
<span class="vbquote">(Medevic @ 18:06:2007, 15:03 )</span><!--QuoteEBegin-->@Now параметр [SERVERTIME].
[snapback]69756" rel="nofollow" target="_blank[/snapback]​
[/quote] - интересно интересно ))) :)

<!--QuoteBegin-Constantin A Chervonenko+18:06:2007, 19:36 -->
<span class="vbquote">(Constantin A Chervonenko @ 18:06:2007, 19:36 )</span><!--QuoteEBegin-->set tDoc = new NotesDocument(db)
print tDoc.Created
[snapback]69809" rel="nofollow" target="_blank[/snapback]​
[/quote] - хм.. а помоему не очень :p
 
Мы в соцсетях:

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