Как справится с ошибкой несотвествия типов

[Vova_2581]

Здравствуйте, уважаемые профессионалы!
Столкнулся с такой проблемой. Основная суть...
Использую стандартную функцию VB для чтения всех ключей реестра в один массив GetAllSettings – она, насколько Вы знаете, работает по стандартному для этих функций адресу реестра: HKEY_CURRENT_USER\Software\VB and VBA Program Settings
Так вот... читаю Help и делаю, как там написано...

Код: Выделить всё

Dim MySettings As Variant, intSettings As Integer
MySettings = GetAllSettings(appname:=App.Title, section:="Startup") 
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
MsgBox MySettings(intSettings, 0) & "  " & MySettings(intSettings, 1)
Next intSettings


Работает прекрасно, но(!)... проблема в том, что в реестре по этому адресу, может ничего и не быть, то есть – пусто. И когда я пытаюсь выполнить проверку того, что возвращает GetAllSettings, тут возникает проблема несоответсвия типов, поскольку - MySettings As Variant.

То есть, когда в реестре по этому адресу есть информация, то все работает и данные считываются, а вот когда по этому адресу ничего нет (ни одного ключа!), то возникает ошибка. Пытаюсь делать...

Код: Выделить всё

If MySettings = 0 Then Exit Sub
...
If MySettings = "" Then Exit Sub
...
If CStr(MySettings) = ""  Then Exit Sub

Все ровно ошибка несоответсвия типов... хоть разбейся! Или здесь...
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)

Или при проверке...
If CStr(MySettings) = "" Then Exit Sub

Как с этим справиться???

[alibek]

Функция GetAllSettings возвращает неинициализированную переменную типа Variant, если приложение или раздел, указанные аргументами appname и section, не существует.

Is Null

[Хакер]

Is Null

Нет, оператор Is применим только к объектным ссылкам.
Либо в паре с Nothing — reference Is Nothing
Либо в связке с TypeOf — TypeOf reference is classname

Для проверки Variant-переменных на предмет того, что они содержат специальное значение Null, надо использовать либо IsNull(v), либо VarType(v)=vbNull.

Но к GetAllSettings это не относится, потому что в случае отсутствия ключей она возвращает не Null, а Empty.

Соответственно, делать надо либо так:

Код: Выделить всё

If IsEmpty(MySettings) Then
    ' Нет ключей
Else
    ' Есть ключи
End If

либо так:

Код: Выделить всё

If VarType(MySettings)=vbEmpty Then
    ' Нет ключей
Else
    ' Есть ключи
End If

а лучше так:

Код: Выделить всё

If IsEmpty(MySettings) Then
    ' Нет ключей
Else
    Debug.Assert VarType(MySettings) = (vbArray or vbString)
    ' Работает с массивом ключей
End If

[Vova_2581]

Is Null

Действительно компилятор писал, что нужен объект.

Я пробовал и так...
If MySettings Is Null Then Exit Sub
If MySettings Is Empty Then Exit Sub
и так...
If TypeName(MySettings) = vbString Then Exit Sub
Но все бестолку.

Хакер
Спасибо за содержательный ответ. Но, если так можно, то я решил проблему через обработчика ошибок вот так...

Код: Выделить всё

On Error GoTo Err_Analis

Dim MySettings As Variant, intSettings As Integer
MySettings = GetAllSettings(appname:=App.Title, section:="Startup")
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
MsgBox MySettings(intSettings, 0) & "  " & MySettings(intSettings, 1)
Next intSettings

Exit Sub

Err_Analis:
If Err = 13 Then Exit Sub

Так тоже работает.

Попробовал вот так...
If IsEmpty(MySettings) Then Exit Sub
Работает!

БОЛЬШОЕ СПАСИБО, Хакер!

[Хакер]

Где отступы?

И в целом, код устроен так, его не волнует, по какой причине не получилось обработать пачку с настройками. Ни сообщений об ошибках, ни какой-либо другой обработки. Молчаливый выход из процедуры. Не надо так писать.

[Vova_2581]

Молчаливый выход из процедуры. Не надо так писать.

А обработка и не нужна. В контексте самой программы, нужно просто проверить - есть данные или их нет, если нет, то просто выход и все.