ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как проверить, что массив пустой?
21 сообщений из 21, страница 1 из 1
Как проверить, что массив пустой?
    #34577116
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
пишу
Код: plaintext
if Ubound(massiv) =  0
выдаёт Subscript of range
Код: plaintext
if Len(massiv) =  0
сообщает Variable required

вот нашёл выход из ситуации

но может быть всё-таки есть нормальный способ?
функции IsEmpty IsNull, проверяют только переменные типа Variant
а у меня массив объявлен как
Код: plaintext
Public massiv() As Date
в Модуле1 в Excel-е
...
Рейтинг: 0 / 0
06.06.2007, 11:15
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #34577201
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
/topic/338013&hl=
...
Рейтинг: 0 / 0
06.06.2007, 12:04
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #34577247
Фотография Дадахан
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дадахан
Участник
michael R/topic/338013&hl=
мдя.
klen_ но может быть всё-таки есть нормальный способ?
не знаю на сколько он нормальный но все же...
...
Рейтинг: 0 / 0
06.06.2007, 12:18
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #34577281
Фотография Дадахан
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дадахан
Участник
[quot Дадахан]не знаю на сколько он нормальный но все же.../quot]
тут глянул еще раз. сорри. не правильно понял
...
Рейтинг: 0 / 0
06.06.2007, 12:28
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #34577328
Фотография Дадахан
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дадахан
Участник
в таком случае действительно, самое простое -обработка ошибки
...
Рейтинг: 0 / 0
06.06.2007, 12:40
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #34577494
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
Попробуй эту фишку
но корректно работает с string

Dim massiv() As String

If Join(massiv) = Empty Then
MsgBox ""
End If
...
Рейтинг: 0 / 0
06.06.2007, 13:17
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #34578132
Диса
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диса
Участник
klen_пишу
Код: plaintext
if Ubound(massiv) =  0
выдаёт Subscript of range
Код: plaintext
if Len(massiv) =  0
сообщает Variable required

вот нашёл выход из ситуации

но может быть всё-таки есть нормальный способ?
функции IsEmpty IsNull, проверяют только переменные типа Variant
а у меня массив объявлен как
Код: plaintext
Public massiv() As Date
в Модуле1 в Excel-е

а ты попробуй так:)

Код: plaintext
if Ubound(massiv)-Lbound(massiv)=  0  Then
...
Рейтинг: 0 / 0
06.06.2007, 15:37
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #34578376
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Всех благодарю.
Видимо придётся писать с анализом на ошибку
Код: plaintext
1.
2.
3.
4.
5.
Dim ub As Integer
On Error Resume Next
ub = Ubound(massiv)
If Err Or ub =  0  Then
    'заполняю массив
End If
...
Рейтинг: 0 / 0
06.06.2007, 16:27
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #34578685
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
klen_Всех благодарю.
Видимо придётся писать с анализом на ошибку
Код: plaintext
1.
2.
3.
4.
5.
Dim ub As Integer
On Error Resume Next
ub = Ubound(massiv)
If Err Or ub =  0  Then
    'заполняю массив
End If


klen_, необязательно с анализом.

Этот подход должен работать с любыми нестроковыми массивами:

1. В модуль:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes As Long)
Public Declare Function VarPtrArray Lib "msvbvm60.DLL" Alias "VarPtr" (Ptr() As Any) As Long

Public Function ArrayHasElements(arrTest As Long) As Boolean
    Dim lResult As Long
    CopyMemory lResult, ByVal arrTest,  4  ' This is evil code
    ArrayHasElements = lResult
End Function

2. В форму, поставив заранее кнопку:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Command1_Click()
    Dim Result As Boolean
    Dim AnotherResult As Boolean
    Dim dtmArray() As Date
    Dim dtmAnotherArray() As Date

    ReDim dtmArray( 1 )

    dtmArray( 0 ) = CDate("05/07/2007")
    Result = ArrayHasElements(VarPtrArray(dtmArray))
    AnotherResult = ArrayHasElements(VarPtrArray(dtmAnotherArray))

    Debug.Print Result & " " & AnotherResult
    
End Sub

Ты увидишь, что это предотвратит ошибку 9, связанную с Ubound на пустых (неимеющих элементов) массивах.

Успехов
...
Рейтинг: 0 / 0
06.06.2007, 17:33
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #34579681
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Благодарю!
...
Рейтинг: 0 / 0
07.06.2007, 07:13
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #34580552
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
И что мудрить:
------------------------------------------
GetArrayDimensions - возвращает размерность массива или 0 если массив не инициализирован.

UBoundArray - возвращает кол-во элементов в указанной размерности массива или -1 если данная размерность не инициализирована.

То есть UBoundArray неинициализированного массива вернет -1.
------------------------------------------
Public Function UBoundArray(ArrayName As Variant, Optional Dimension As Integer = 1) As Long
    If Dimension < 1 Or Dimension > GetArrayDimensions(ArrayName) Then
        UBoundArray = -1
    Else
        UBoundArray = UBound(ArrayName, Dimension)
    End If
End Function

Public Function GetArrayDimensions(arr As Variant) As Integer
    Dim a As Long

    CopyMemory a, ByVal VarPtr(arr) + 8, 4
    CopyMemory a, ByVal a, 4
    If a Then CopyMemory GetArrayDimensions, ByVal a, 2
End Function
...
Рейтинг: 0 / 0
07.06.2007, 12:12
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #34580718
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Спасибо.
у меня = Макрос1(F2,G2,H2) со своим расчётом, он выполняется как пользовательская функция
в каждой ячейке колонки " ИТОГО ". То есть
чем меньше команд в макросе, тем быстрее Excel работает.
Поэтому я остановился на обработчике ошибок. Всего две команды.
Код: plaintext
1.
2.
Dim ub As Integer
ub = Ubound(massiv)
if Err Or ub =  0  Then заполняю массив
...
Рейтинг: 0 / 0
07.06.2007, 12:57
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #34584977
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
klen_Спасибо.
у меня = Макрос1(F2,G2,H2) со своим расчётом, он выполняется как пользовательская функция
в каждой ячейке колонки " ИТОГО ". То есть
чем меньше команд в макросе, тем быстрее Excel работает.
Поэтому я остановился на обработчике ошибок. Всего две команды.
Код: plaintext
1.
2.
Dim ub As Integer
ub = Ubound(massiv)
if Err Or ub =  0  Then заполняю массив


klen_,

Так ошибки не обрабатываются. В VB6 для этих целей используют конструкцию On Error.

Успехов
...
Рейтинг: 0 / 0
08.06.2007, 18:26
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Как проверить, что массив пустой?
    #39533814
EVA123456
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EVA123456
Гость
Введи переменную, например Arr=false. При заполнении массива присваивай Arr=true. При обращении к массиву сначала проверяй переменную.
...
Рейтинг: 0 / 0
10.10.2017, 08:56
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #39534371
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
EVA123456Введи переменную, например Arr=false. При заполнении массива присваивай Arr=true. При обращении к массиву сначала проверяй переменную.хоть вопрос уже десять лет как протух, отмечусь

есть такая недокументированная фича:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim arr() 

If (Not arr) = -1 Then
    Debug.Print "array has not been initialized"
Else
    Debug.Print "array has been initialized " & UBound(arr)
End If
...
Рейтинг: 0 / 0
11.10.2017, 00:03
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #39534441
ATM-TURBO 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ATM-TURBO 2
Гость
Antonariy,

Из-за которой потом вылезают баги при работе с FPU.
...
Рейтинг: 0 / 0
11.10.2017, 09:50
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #39534848
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
ATM-TURBO 2Antonariy,

Из-за которой потом вылезают баги при работе с FPU.например?
...
Рейтинг: 0 / 0
11.10.2017, 16:51
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #39534952
ATM-TURBO 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ATM-TURBO 2
Гость
Antonariy,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim arr()

If (Not arr) = -1 Then
    Debug.Print "array has not been initialized"
Else
    Debug.Print "array has been initialized " & UBound(arr)
End If

Debug.Print 2 / 5



Проблему решает мой Add-in. http://www.cyberforum.ru/blogs/354370/blog4409.html
...
Рейтинг: 0 / 0
11.10.2017, 18:18
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #39535073
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
makhaon
Участник
Чем больше смотрю на другие языки, тем больше нравится Дефли Жесть какая-то, конечно.
Length(Array) = 0.
Сорри за оффтоп.
...
Рейтинг: 0 / 0
11.10.2017, 23:01
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #39535265
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
ATM-TURBO 2Antonariy,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim arr()

If (Not arr) = -1 Then
    Debug.Print "array has not been initialized"
Else
    Debug.Print "array has been initialized " & UBound(arr)
End If

Debug.Print 2 / 5

Expression too comlpex

прикольно

а addin нафига? так второе деление работает:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim arr()

If (Not arr) = -1 Then
    Debug.Print "array has not been initialized"
Else
    Debug.Print "array has been initialized " & UBound(arr)
End If
On Error GoTo errh
Debug.Print 2 / 5
errh:
Debug.Print 2 / 5


и так:
Код: vbnet
1.
2.
3.
On Error Resume Next
Debug.Print 2 / 5
Debug.Print 2 / 5
...
Рейтинг: 0 / 0
12.10.2017, 11:29
| Ответить | Цитировать | Написать  
Как проверить, что массив пустой?
    #39535292
ATM-TURBO 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ATM-TURBO 2
Гость
Antonariy,

автора addin нафига? так второе деление работает:
Чтобы всегда работало.
...
Рейтинг: 0 / 0
12.10.2017, 12:11
| Ответить | Цитировать | Написать  
21 сообщений из 21, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как проверить, что массив пустой?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39535292&tid=2155201]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 41ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 65ms
get tp. blocked users:
 2ms
others: 288ms
total:  440ms
созд. / загр.: 440ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]