PPrint Наконец-то дошли руки до проекта, о котором я мечтал уже… — Дневник VBAшника

Дневник VBAшника@vban_diary · 238 subscribers Open in TelegramOpen

PPrint

Наконец-то дошли руки до проекта, о котором я мечтал уже давно.

Представляю простой, но мощный модуль, состоящий из одной функции — pprint. Можно забыть о надоедливых джойнах массивов перед выводом в окно Immediate и нудном просмотре словарей через Watch window.

Теперь всё стало проще:

Вывод словарей:

Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
d("Hello") = "World"

pprint d
' Результат: {"Hello": "World"}

Красивый вывод коллекций:

Dim c As Collection
Set c = New Collection

c.Add "Hello"
c.Add "World"

pprint c
' Результат: ("Hello", "World")

Удобный вывод массивов:

Dim a As Variant
a = Array(1, "Hello, World!", CreateObject("Scripting.Dictionary"))

pprint a
' Результат: [1, "Hello, World!", {}]

А еще:

Поддержка вывода объектов Range.

Любой другой объект выводится как <object 'ObjectName'>, включая пользовательские классы.

Хотите более информативный вывод ваших пользовательских объектов? Просто добавьте метод Repr__ в свой класс, и pprint отобразит его так, как вам нужно.

Подробности и примеры на GitHub.