работа с массивами + Split() / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / работа с массивами + Split()

8 сообщений из 8, страница 1 из 1

работа с массивами + Split()

#32297114

Sehensucht!

Гость

Товарищи, подружите меня с массивами, пожалуйста!
Что не так делаю?

Dim arr(2) As Variant
arr = Split(Me.OpenArgs, ";")

' Me.OpenArgs = "14;0"
Ругается: Compile error. Can't assign to array.

Или это только через циклы делается???

...

Рейтинг:

0 / 0

17.10.2003, 18:06

| Ответить | Цитировать | Написать

работа с массивами + Split()

#32297124

Geo

Участник

Сообщения: 6 953

Рейтинг: 0 / 0

Использование массивов (хелп а97)
Имеется возможность описать массив для работы с набором значений одного типа данных. Массив представляет собой одну переменную с множеством ячеек памяти для хранения значений, тогда как обычная переменная имеет только одну ячейку, в которой может храниться только одно значение. При необходимости сослаться на все элементы массива можно ссылаться на массив как целое. Возможны также ссылки на его отдельные элементы.

Например, для записи денежных затрат на каждый день календарного года можно описать один массив с 365 элементами, вместо того, чтобы описывать 365 переменных. Каждый элемент массива содержит одно значение. Следующая инструкция описывает массив curExpense с 365 элементами. По умолчанию индексация массива начинается с нуля, так что верхняя граница массива - 364, а не 365.

Код: plaintext

Dim curExpense( 364 ) As Currency

Чтобы задать значение отдельного элемента, надо указать его индекс. В следующем примере всем элементам массива присваивается исходное значение 20.

Код: plaintext

1.
2.
3.
4.
5.
6.

Sub FillArray()
	Dim curExpense( 364 ) As Currency
	Dim intI As Integer
	For intI =  0  to  364 
		curExpense(intI) =  20 
	Next
End Sub

Для того, чтобы изменить индекс первого элемента массива, по умолчанию равный 0, на 1, можно использовать инструкцию Option Base в начале модуля. В следующем примере инструкция Option Base изменяет индекс первого элемента , а инструкция Dim описывает массив curExpense с 365 элементами.

Код: plaintext

Option Base  1 
Dim curExpense( 365 ) As Currency

Допускается также явное задание нижней границы индексов массива с помощью предложения To, как продемонстрировано в следующем примере.

Код: plaintext

Dim curExpense( 1  To  365 ) As Currency
Dim strWeekday( 7  To  13 ) As String

Запоминание значений Variant в массивах

Создать массив значений Variant можно двумя способами. Первый способ - это описание массива с типом данных Variant, как показано в следующем примере:

Код: plaintext

1.
2.
3.
4.

Dim varData( 3 ) As Variant
varData( 0 ) =  "Мария Петрова" 
varData( 1 ) =  "Зеленая, 19 "
varData( 2 ) =  38 
varData( 3 ) = Format( "06 - 09 - 1952 ",  "General Date" )

Другой способ - это присвоение массива, возвращаемого функцией Array, переменной Variant, как продемонстрировано в следующем примере.

Код: plaintext

1.
2.

Dim varData As Variant
varData = Array( "Иван Петров" ,  "Зеленая, 19 ",  38 , _
Format( "06 - 09 - 1952 ",  "General Date" ))

Независимо от способа создания массива значений Variant его элементы нумеруются индексами. Например, следующая инструкция может быть добавлена к любому из предыдущих примеров.

Код: plaintext

MsgBox  "Записаны данные для "  & varData( 0 ) &  "."

...

Рейтинг:

0 / 0

17.10.2003, 18:15

| Ответить | Цитировать | Написать

работа с массивами + Split()

#32297139

Sehensucht!

Гость

to Geo:
Спасибо, читать-то я умею :) Только вопрос был в том, как в переменную типа "массив" записать массив значений, который вернула ф-я Split(). Я сделал через For Each...

...

Рейтинг:

0 / 0

17.10.2003, 18:25

| Ответить | Цитировать | Написать

работа с массивами + Split()

#32297145

АлексейЕ

Участник

Сообщения: 639

Рейтинг: 0 / 0

Все дело в строке Dim arr(2) As Variant

Код: plaintext

1.
2.

Dim arr As String
arr = Split(Me.OpenArgs,  ";" )

В данном случае массив присваивается переменной arr. Можешь ее объвить не как Variant, а как String. Так экономичнее. Всеравно Split() возвращает строковой массив.
Так если запустишь такой код

Код: plaintext

1.
2.
3.
4.

Dim arr As Variant
arr = Split(Me.OpenArgs,  ";" )
Debug.Print VarType(arr)
Debug.Print VarType(arr( 0 ))
Debug.Print arr( 1 )

то на выходе получишь

Код: plaintext

1.
2.

  8200  
  8  
 0

т.е.
vbString 8 String
vbArray 8192 Array
См. хелп по VarType()

...

Рейтинг:

0 / 0

17.10.2003, 18:32

| Ответить | Цитировать | Написать

работа с массивами + Split()

#32297149

Анатолий (Киев )

Гость

Массив должен быть динамическим и типа String.

Код: plaintext

1.
2.

Dim arr() As String 
arr = Split(Me.OpenArgs,  ";" ) 
Msgbox arr( 0 )

Но это Вас не спасет, если в функцию Split() передать пустую строку.
Получите ошибку.
Лучше использовать переменную Variant

Код: plaintext

1.
2.
3.
4.
5.
6.

Dim v As Variant
v = Split(Me.OpenArgs,  ";" )
If IsArray(v) Then
 If UBound(v) >=  0  Then
   MsgBox v( 0 ) 
 End If
End If

...

Рейтинг:

0 / 0

17.10.2003, 18:38

| Ответить | Цитировать | Написать

работа с массивами + Split()

#32297151

Sehensucht!

Гость

Спасибо, Друзья, с вашей помощью я разобрался :)

...

Рейтинг:

0 / 0

17.10.2003, 18:43

| Ответить | Цитировать | Написать

работа с массивами + Split()

#32370865

Remedios

Гость

ой :),конечно же
Dim i As Integer
Dim arr(1), v As Variant
i = 0
For Each v In Split(Me.OpenArgs, ";")
arr(i) = v
i = i + 1
Next

...

Рейтинг:

0 / 0

08.01.2004, 18:17

| Ответить | Цитировать | Написать

работа с массивами + Split()

#32370872

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

Когда i станет >1, эта программа работать перестанет.

...

Рейтинг:

0 / 0

08.01.2004, 18:23

| Ответить | Цитировать | Написать

8 сообщений из 8, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / работа с массивами + Split()

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&fpage=1697&tid=1677308]:	0ms
get settings:	4ms
get forum list:	10ms
check forum access:	2ms
check topic access:	2ms
track hit:	41ms
get topic data:	6ms
get forum data:	1ms
get page messages:	26ms
get tp. blocked users:	1ms
others:	189ms

total:	282ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы