Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проверка массива на пустоту / 13 сообщений из 13, страница 1 из 1
23.07.2009, 12:59
    #36105304
YUBA
YUBA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка массива на пустоту
Определен массив вида
Код: plaintext
dim MyArr() as UserType
Назовем это состояние пустым.
Как проверить, что массив находится в этом состоянии не нарываясь на ошибку?

И еще, существует-ли возможность после Redim MyArr(N) вернуть массив в исходное, пустое состояние?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2009, 13:05
    #36105321
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка массива на пустоту
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim arr() As String
Dim i As Integer

On Error Resume Next
i = UBound(arr)
If Err.Number <>  0  Then
Debug.Print "не инициализирован"
Else
Debug.Print "использовался"
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2009, 13:13
    #36105354
YUBA
YUBA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка массива на пустоту
Konst_One,
Да, именно так и делаю. Думал, что возможно есть прямой способ без
Код: plaintext
1.
On Error Resume Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2009, 13:14
    #36105359
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка массива на пустоту
Код: plaintext
Erase arr
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2009, 13:23
    #36105392
YUBA
YUBA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка массива на пустоту
Konst_One
Код: plaintext
Erase arr
Спасибо большое. Сейчас попробую.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2009, 16:45
    #36106021
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка массива на пустоту
Konst_One,

"Не нарываясь на ошибку..."

:0)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2009, 18:22
    #36106370
YUBA
YUBA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка массива на пустоту
VladConnKonst_One,
"Не нарываясь на ошибку..."
:0)имеется в виду некий штатный метод. :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2009, 18:43
    #36106426
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка массива на пустоту
YUBA,

Штатного метода не существует, есть только с нарыванием на ошибку. Единственное исключение, которое я знаю, имеется для числовых массивов. Строковые массивы тоже в принципе можно, но только трогая манифест, что никто делать скорее всего не станет. Для числовых же массивов такой "штатный" метод есть.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
    (Destination As Any, Source As Any, ByVal Length As Long)

Public Declare Function VarPtrArray Lib "msvbvm60.DLL" Alias "VarPtr" _
    (Ptr() As Any) As Long

Private lngMyLongArray() As Long

MsgBox ArrayHasElements(VarPtrArray(lngMyLongArray)) 

Public Function ArrayHasElements(arrTest As Long) As Boolean
    Dim lngResult As Long
    CopyMemory lngResult, ByVal arrTest,  4 
    ArrayHasElements = lngResult
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2009, 18:55
    #36106446
YUBA
YUBA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка массива на пустоту
VladConn, Плиз, посмотрите темку, м.б. чего скажете. :) Скользящий массив ]http://www.sql.ru/forum/actualthread.aspx?tid=682087
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2009, 19:03
    #36106458
YUBA
YUBA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка массива на пустоту
VladConnYUBA,

Штатного метода не существует, есть только с нарыванием на ошибку. Единственное исключение, которое я знаю, имеется для числовых массивов. Строковые массивы тоже в принципе можно, но только трогая манифест, что никто делать скорее всего не станет. Для числовых же массивов такой "штатный" метод есть.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
    (Destination As Any, Source As Any, ByVal Length As Long)

Public Declare Function VarPtrArray Lib "msvbvm60.DLL" Alias "VarPtr" _
    (Ptr() As Any) As Long

Private lngMyLongArray() As Long

MsgBox ArrayHasElements(VarPtrArray(lngMyLongArray)) 

Public Function ArrayHasElements(arrTest As Long) As Boolean
    Dim lngResult As Long
    CopyMemory lngResult, ByVal arrTest,  4 
    ArrayHasElements = lngResult
End Function

Да уж, лучше -On error.... :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2009, 19:05
    #36106461
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка массива на пустоту
VladConn,
YUBA,

проверка указателя на структуру SAFEARRAY действует на массив любого типа, не только численного:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Option Explicit

Private Declare Function ArrPtr Lib "msvbvm60" Alias "VarPtr" ( _
   pArr() As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
   Destination As Any, Source As Any, ByVal Length As Long)

Private Type POINTAPI
   x As Long
   y As Long
End Type

Private Sub Command1_Click()
 Dim MyArr() As POINTAPI
 
 CopyMemory psaMyArr, ByVal ArrPtr(MyArr),  4 
 Debug.Print psaMyArr 'выдаст 0
End Sub
YUBA,
Есть ещё (баго-?)фича, которая очень проста в применении, но недокументирована и вряд ли может быть рекомендована:
Код: plaintext
1.
2.
 Dim MyArr() As POINTAPI
 
 Debug.Print Not MyArr 'выдаст - 1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2009, 19:07
    #36106462
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка массива на пустоту
Да, забыл:
Код: plaintext
 Dim psaMyArr As Long
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2009, 22:11
    #36109809
AndrF
AndrF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка массива на пустоту
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проверка массива на пустоту / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 354ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2160727]:
 0ms
get settings:
 6ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 55ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 2ms
others: 193ms
total:  354ms
x
x
Закрыть


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