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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Vova_2581
Постоялец
Постоялец
 
Сообщения: 362
Зарегистрирован: 10.01.2010 (Вс) 18:08

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

Сообщение Vova_2581 » 10.07.2020 (Пт) 11:25

Здравствуйте, уважаемые профессионалы!
Столкнулся с такой проблемой. Основная суть...
Использую стандартную функцию 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
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

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

Сообщение alibek » 11.07.2020 (Сб) 0:10

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


Is Null
Lasciate ogni speranza, voi ch'entrate.

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16473
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

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

Сообщение Хакер » 12.07.2020 (Вс) 7:12

alibek писал(а):Is Null

Нет, оператор Is применим только к объектным ссылкам.
Либо в паре с Nothingreference Is Nothing
Либо в связке с TypeOfTypeOf 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
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Vova_2581
Постоялец
Постоялец
 
Сообщения: 362
Зарегистрирован: 10.01.2010 (Вс) 18:08

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

Сообщение Vova_2581 » 12.07.2020 (Вс) 10:01

alibek писал(а):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
Работает!

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

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16473
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

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

Сообщение Хакер » 12.07.2020 (Вс) 14:36

Где отступы?

И в целом, код устроен так, его не волнует, по какой причине не получилось обработать пачку с настройками. Ни сообщений об ошибках, ни какой-либо другой обработки. Молчаливый выход из процедуры. Не надо так писать.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Vova_2581
Постоялец
Постоялец
 
Сообщения: 362
Зарегистрирован: 10.01.2010 (Вс) 18:08

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

Сообщение Vova_2581 » 13.07.2020 (Пн) 9:54

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

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


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 16

    TopList