Как заменить VBA именованные константы?

Автор eeigor, 16 марта 2022, 22:41

0 Пользователи и 1 гость просматривают эту тему.

eeigor

Подскажите, как присвоить значения (специальные символы) следующим константам без использования режима Compatible:
Option Compatible
   Const FF = vbFormFeed
   Const LF = vbLf
   Const CR = vbCr
   Const HT = vbTab
   Const VT = vbVerticalTab
   Const CRLF = vbCrLf
Причём: vbNewLine
   \x0D\x0A (13 10)  -  CRLF (for Windows)
   \x0A (10)  -  LF (for other systems)
Если нельзя присвоить неотображаемые коды константам, тогда, возможно, надо использовать обычные переменные. Или как?

См. Miscellaneous VBA Named Constants
Ubuntu 18.04 LTS • LibreOffice 7.5.1.2 Community

economist

Делаю обычными переменными:
vbNewLine = CHR(13) & CHR(10)
Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...

sokol92

#2
Можно использовать Global функции вместо констант (см. библиотеку приложения "Access2Base",  функция vbNewLine).
Владимир.

eeigor

#3
Владимир, спасибо. Вопрос был задан наудачу. Полагал свой вопрос даже "не умным". Однако нет: вопрос по делу. О существовании таких функций трудно было даже предположить. Обязательно разберусь и воспользуюсь этим приёмом.
Модуль Access2Base.acConstants, line 372-378: ответ в точности на поставленный вопрос.
:beer:
Ubuntu 18.04 LTS • LibreOffice 7.5.1.2 Community