/
MadDAD
/
TFS4OpenConf
Обзор
Документация
Войти
/
MadDAD
/
TFS4OpenConf
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
gcomp/scripts/code_beautifier/RunPerlScripts.vbs
27 строк
851 B
DmitryDreytser
Выгрузил исходники
01 фев 2017, 17:19
01 фев 2017, 17:19
b9402b1
Код
Авторство
О чём код?
$NAME ����������� �������� �������� Sub CodeBeautifier() Set Doc = CommonScripts.GetTextDocIfOpened(0) If Doc Is Nothing Then Exit Sub Set Pos = CommonScripts.GetDocumentPosition(Doc) Doc.Text = Scripts("CodeBeautifier").Beautify_OpenConf(Doc.Text) Pos.Restore End Sub ' ��������� ������������� ������� Private Sub Init() Set c = Nothing On Error Resume Next Set c = CreateObject("OpenConf.CommonServices") On Error GoTo 0 If c Is Nothing Then Message "�� ���� ������� ������ OpenConf.CommonServices", mRedErr Message "������ " & SelfScript.Name & " �� ��������", mInformation Scripts.UnLoad SelfScript.Name Exit Sub End If c.SetConfig(Configurator) SelfScript.AddNamedItem "CommonScripts", c, False End Sub Init ' ��� �������� ������� ��������� �������������