Встраиваем VBA в... VB6 0_o

[Antonariy]

Казалось бы, зачем нужен этот нонсенс? Оказывается, для рефакторинга. Иногда нужно привести большое количество однообразного, но четко структурированного кода, к другому виду, а ручная верстка грозит многочасовым интеллектуальным копипейстом.

Можно закрыть проект, считать файл в строку, сделать все что нужно, записать обратно, открыть проект... Слишком много действий, да и процедуры парсинга расползаются по проектам, папкам, концы иногда теряются. Гораздо удобнее выполнять эти процедуры не отходя от кассы, прямо в ide. Для этого нужна среда исполнения и доступ к объектам VB Extensibility текущего IDE. Доступ элементарно предоставляется через AddIn, а в качестве среды можно использовать даже VBScript, но VBA по очевидным причинам лучше. С каждым VB-проектом сопостовляется VBA-проект, который хранится в базе. Можно совершенно не париться о сохранности сервисных процедур.

Итак, это AddIn, в списке аддинов представлен под названием Refactor, для работы требует VBA 6.3. Исходники прилагаются.
В VBA-проекте присутствует объект VBProject (тип Refactor.RFProject), почти полностью повторяющий VBE.VBProject, из него открывается путь ко всем остальным потрохам VBE.

[alibek]

Классно
Жаль, что я не смогу его затестить, как и IE VBE, но очень полезная задумка.

[Antonariy]

Почему не сможешь?

[alibek]

VBA нет

[Antonariy]

Тынц, 16.7 мб.
Надеюсь это законно.

Кстати, обновил архив, там был глюк из-за которого не загружался сохраненный VBA-проект.

[Хакер]

Ошибка
AddinInstance_OnConnection - ActiveX component can't create object

ADDED:
Как выяснилось, Add-in ищет APC и не находит его. Что за APC то?

[Antonariy]

Это и есть VBA 6.3.
Могу еще выложить 6.2, 11 мб.

[Хакер]

Установил.
lProjects_ItemAdded - Не поддерживается

[Antonariy]

Это почему-то происходит под отладчиком, скомпилированный exe работает нормально.

[Хакер]

В списке эддинов нет никакого рефактора. В первый раз был, кстати.

[Antonariy]

Закрой все экземпляры VB, открой проект Refactor, если он есть в меню аддинов, выгрузи, закрой и снова открой проект и скомпилируй. Все восстановится.

[Хакер]

Неуспеваю отписываться.

Помогло перекомпилирование в другую папку с другим именем.
Собственно, смысл эддина до меня ещё пока плохо доходит. Но вот то, что в эддине продемонстрированна возможность подключения VBA к своему проекту - это, безусловно, здорово. Для одного из своих проектов мне пришлось делать байткодную виртуальную машину, собственный VB-подобный ВУЯП, компилитор этого языка в байткод, IDE для этого языка. Я потратил на это невообразимое количество времени. А так, думается мне, можно было бы прикрутить VBA.

[Antonariy]

Смысл продемонстрирован в мультике

[jangle]

У VBA только один недостаток, для его использования в своих проектах, необходимо купить лицензию у Майкрософт. Причем стоимость лицензии на VBA, хранится в строжайшей тайне, как самой Майкрософт, так и покупателем. Если судить о том, кто реально использует VBA в коммерческих проектах - Autodesk, Adobe, SAP и т.д. Это монстры IT - индустрии, и скорее всего реальная стоимость лицензии - сотни тысяч, если не миллионы долларов США

[Хакер]

Antonariy
Ну и раскраска. Глаза не устают?

Смысл, как я понял, в том, что VBA проект, коннектящийся к VB-проекту позволяет автоматизировать изменения в коде VB-проекта?

[Antonariy]

jangle
Не совсем все плохо. Платное лицензирование требуется только если ты собираешься продавать продукт с vba. Если это персональная или внутренняя корпоративная или некоммерческая разработка, то платить не надо.

А еще мне кажется, что можно обойти и коммерческое лицензирование. Если есть возможность сделать в приложении использование VBA опциональным, то лучше так сделать. Распространять дистрибутив VBA вообще ничто не мешает (см redist.txt), а решение устанавливать VBA или нет оставить целиком на откуп пользователю, предварительно открестившись от всех прав на него и повторив положения MS про персональное использование. "А еще наша программа может использовать VBA, если он у вас есть" - формулировка очень сомнительная, да и юрист из меня аховый.

Хакер
Почему-то код в стандартной расцветке воспринимается хуже

Ага. И не только в коде.

[Antonariy]

Для одного из своих проектов мне пришлось делать байткодную виртуальную машину, собственный VB-подобный ВУЯП, компилитор этого языка в байткод, IDE для этого языка.

А для чего это было нужно, если не секрет? Может хватило бы возможностей ScriptControl'а? А в качестве IDE - Notepad++ Дешево и сердито

[Хакер]

Antonariy
IDE для создания тестирующего ПО.

СкрипКонтрол он по определению - СкриптКонтрол. Работает медлено, ограничен, нет тебе ни типов, ни исключений, нельзя вызывать многие API-функции (структур нет? указателей нет?) и т.д. и т.п.

Дешево и сердито

Но несолидно. Это главное.

[Antonariy]

Хм, для тестирования ПО по-моему достаточно скриптовой скорости (большую часть времени скрипт будет ждать ответа от ПО), а API и т.п. можно было бы юзать через объекты самого IDE.

Но несолидно.

Ну, насчет Notepad++ согласен, но SC достаточно солиден. Под ним IE скрипты гоняет. Не через ocx конечно, но юзает те же интерфейсы, что и ocx.

[Хакер]

А если нужно создать какое-то ну очень уж интерактивное ТПО? Например с трёхмерными летающими вариантами ответа, испускающими зелёный туман (я конечно утрирую). Всё-таки надо было обогнать всех конкурентов.

Да и к тому же. Как ты вот это превратишь в VBScript?

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

Dim File1 As IXTRStorageFile
Dim File2 As IXTRStorageFile
Dim LSRegion As IXTRStorageDataChunk
Dim LSSection As IXTProjSection

Set File1 = New CFile("Local@XenTester:\file1.dat", xcAccessFull)
Set File2 = New CFile("Local@XenTester:\file2.dat", xcAccessFull)

Set LSRegion = _
    File1.FileMgr.GetStorageRegion(File1.RData.RVA, _
                                   File1.RData.RVA + File1.RData.ChunkSize - 1)
Set LSSection = XTRuntime.Internal.XTProject.GetSection(XTSECTIONID_LOCALSTORAGE)

XTRuntime.Internal.XTRDebug_XCodeLockSection(LSSection, XTLOCK_DEFAULT And Not XTLOCK_IO)
With LSSection
    .EnterIOTransaction()
    LSRegion.IncreaseLinkCounter()
    .FreePool(File2.FileMgr.GetStoragePool())
    LSRegion.LockBoundary()
    File2.FileMgr.SetStoragePool(LSRegion.RVA, LSRegion.Size)
    LSRegion.UnlockBoundary()
   
    .CommitIOTransaction()
End With
Set File1 = Nothing ' Закрываем один из файлов прежде чем заблокировать секцию
                    ' т.к. не две региона не могут быть промапплены на одну и ту
                    ' же память.
XTRuntime.Internal.XTRDebug_XCodeLockSection(LSSection, XTLOCK_DEFAULT)


[Antonariy]

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

'от балды
Const xcAccessFull = 1
Const XTSECTIONID_LOCALSTORAGE = 2
Const XTLOCK_DEFAULT = 3
Const XTLOCK_IO = 4

Dim File1
Dim File2
Dim LSRegion
Dim LSSection

'Допустим XTRuntime - объект ide, переданный скрипту
Set File1 = XTRuntime.NewCFile("Local@XenTester:\file1.dat", xcAccessFull)
Set File2 = XTRuntime.NewCFile("Local@XenTester:\file2.dat", xcAccessFull)

Set LSRegion = _
    File1.FileMgr.GetStorageRegion(File1.RData.RVA, _
                                   File1.RData.RVA + File1.RData.ChunkSize - 1)
Set LSSection = XTRuntime.Internal.XTProject.GetSection(XTSECTIONID_LOCALSTORAGE)

Call XTRuntime.Internal.XTRDebug_XCodeLockSection(LSSection, XTLOCK_DEFAULT And Not XTLOCK_IO)
With LSSection
    .EnterIOTransaction
    LSRegion.IncreaseLinkCounter
    .FreePool (File2.FileMgr.GetStoragePool())
    LSRegion.LockBoundary
    Call File2.FileMgr.SetStoragePool(LSRegion.RVA, LSRegion.Size)
    LSRegion.UnlockBoundary
   
    .CommitIOTransaction
End With
Set File1 = Nothing

Call XTRuntime.Internal.XTRDebug_XCodeLockSection(LSSection, XTLOCK_DEFAULT)

[Хакер]

Antonariy
Твой код не будет работать.

Ну, начнём с того, что RData - это свойство интерфейса IXTRStorageFile.

У тебя File1 As object, и всё гоняется через позднее связывание. Через IDispatch т.е. Таким образом доступ к левым интерфейсам, которые объект поддерживает ты не получишь.

[Antonariy]

Насчет левых интерфейсов ты прав. В принципе можно возвращать указатели на них явно через дополнительные свойства основного класса, который возвращает NewCFile, но это уже не то, теряется смысл интерфейсов...

[Antonariy]

Мелкие обновления:
1) Добавлено сохранение VBA-проекта при нажатии на дискетку.
2) Добавлено свойство RFProject.VBhWnd, возвращающее дексриптор IDE VB, в котором открыт проект.
3) Добавлено глобальное свойство VBAhWnd, возвращающее дексриптор IDE VBА.
4) Добавлено глобальное свойство hWnd4Modal, которое устанавливает дексриптор окна, по отношению к которому VBA-формы будут отображаться модально. Выбор, собственно, небольшой. Это может быть только hWnd любого top-level окна в адресном пространстве VB. То есть как самого VB, так и (предположительно) любой формы, что он может отобразить при запуске, а так же VBAhWnd.