//Пример показывает как из 1С вызывается MS Word, вставляется макрос и запускается!

//Макрос пишет на листе Добрый день!, https://helpf.pro и сохраняет файл в D:/primer.doc 



ПримерМакроса = "Sub VBAprimer()

|S_election.TypeText Text:=""Добрый день!""

|Application.Keyboard (1033)

|S_election.TypeText Text:="": https://helpf.pro""

|S_election.TypeParagraph

|S_election.MoveUp Unit:=wdLine, Count:=2

|S_election.EndKey Unit:=wdLine, Extend:=wdExtend

|S_election.Style = ActiveDocument.Styles(""Заголовок 1"")

|S_election.MoveDown Unit:=wdLine, Count:=1

|S_election.HomeKey Unit:=wdLine

|S_election.EndKey Unit:=wdLine, Extend:=wdExtend

|S_election.Style = ActiveDocument.Styles(""Заголовок 2"")

|ActiveDocument.SaveAs FileName:=""D:/primer.doc"", FileFormat:= _

|    wdFormatDocument, LockComments:=False, Password:="""", AddToRecentFiles:= _

|    True, WritePassword:="""", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _

|    False, SaveNativePictureFormat:=False, SaveFormsData:=False, _

|    SaveAsAOCELetter:=False

|End Sub";



// Создание объекта

Word = Новый COMОбъект("Word.Application");

Word.Documents.Add();

//VBComponents = Word.VBE.ActiveVBProject.VBComponents;

VBComponents = Word.ActiveDocument.VBProject.VBComponents;

Count = VBComponents.Count();

VBComponents.Add(1);

VBComponents.Item(Count + 1).CodeModule.I_nsertLines(1, ПримерМакроса);

Word.Application.Run(VBAprimer");

Word.Quit();

Word = Неопределено;    

  // Если не будет работать - возможно установлен высокий уровень безопасности. Понизьте до среднего ...

Процедура Сформировать()

     Попытка     

          W=СоздатьОбъект("Word.Application"); 

     Исключение

          Возврат;

     КонецПопытки;

     W.Documents.Add();

     i = W.VBE.ActiveVBProject.VBComponents.Count();

     W.VBE.ActiveVBProject.VBComponents.Add (1);

     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (1, "Sub Golif()");

     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (2, "MsgBox " + """" + "Работает" + """");

     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (3, "End Sub");

     W.Application.Run ("Golif");

     W="";

КонецПроцедуры

 

        USE tempdb

        GO

        EXEC sp_helpfile

        GO

   

 

        USE master

        GO

        A_lter DATABASE tempdb 

        MODIFY FILE (NAME = tempdev, FILENAME = 'D:\NewCat\tempdb.mdf')

        GO

        A_lter DATABASE  tempdb 

        MODIFY FILE (NAME = templog, FILENAME = 'D:\NewCat\templog.ldf')

        GO

   

 Запрос = Новый Запрос();

Запрос.УстановитьПараметр("ДатаНач",НачалоДня(ДатаНач));

Запрос.УстановитьПараметр("ДатаКон",КонецДня(ДатаКон));

Запрос.УстановитьПараметр("Организация",Организация);

Запрос.Текст = "ВЫБРАТЬ

|	ПоступлениеТоваровУслугТовары.Номенклатура КАК Номенклатура,

|	ПоступлениеТоваровУслугТовары.Количество КАК Количество,

|	ПоступлениеТоваровУслугТовары.Цена КАК Цена,

|	ПоступлениеТоваровУслугТовары.Ссылка.Номер КАК Номер,

|	ПоступлениеТоваровУслугТовары.Ссылка.Дата КАК Дата,

|	ПоступлениеТоваровУслугТовары.Ссылка.Контрагент КАК Контрагент,

|	ПоступлениеТоваровУслугТовары.Номенклатура.Код КАК НоменклатураКод,

|	ПоступлениеТоваровУслугТовары.Номенклатура.Артикул КАК НоменклатураАртикул

|ИЗ

|	Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслугТовары

|ГДЕ

|	ПоступлениеТоваровУслугТовары.Ссылка.Дата МЕЖДУ &ДатаНач И &ДатаКон

|	И ПоступлениеТоваровУслугТовары.Ссылка.Организация = &Организация

|	

|УПОРЯДОЧИТЬ ПО	

|	Контрагент,

|	Номер,

|	Дата,

|	НоменклатураКод,

|	Номенклатура,

|	НоменклатураАртикул,

|	Количество,

|	Цена";	

Результат = Запрос.Выполнить().Выбрать();	

Текст = Новый ЗаписьТекста("c:\vigruz.txt", КодировкаТекста.ANSI);

РезультатДок = Запрос.Выполнить().Выбрать();	

Пока РезультатДок.Следующий() Цикл		

	ОбработкаПрерыванияПользователя();

	// В качестве разделителей необходимо использовать Символы. ВК (CR),ВТаб (VTab),НПП (NBSp),ПС (LF),ПФ (FF),Таб (Tab)

	

	//Если нам нужна строка вида " helpf.pro    07.08.2009   13 " в качестве разделителя используется табуляция

	//то пишем так:

	Текст.ЗаписатьСтроку(Строка(РезультатДок.Контрагент)+Символы.Таб+Строка(Формат((РезультатДок.Дата),"ДЛФ=D"))+Символы.Таб+Строка(РезультатДок.Номер));	

	// При загрузке строку можно будет разложить в массив для дальнейшей работы, РазложитьСтрокуВМассивПодстрок( ТекСтр, Символы.Таб). Ссылка на функцию ниже



	//Если нужен вид 

	// helpf.pro 

	// 07.08.2009

	// 13 

	// здесь в качестве разделителя используется перевод каретки (следующая строка), то пишем

	Текст.ЗаписатьСтроку(РезультатДок.Контрагент);

	Текст.ЗаписатьСтроку(Символы.ПС);	

	Текст.ЗаписатьСтроку(Формат((РезультатДок.Дата),"ДЛФ=D"));      

	Текст.ЗаписатьСтроку(Символы.ПС);	

	Текст.ЗаписатьСтроку(РезультатДок.Номер);          

	

КонецЦикла;		

Текст.Закрыть();   

 // Параметры:

//		ИНН - строка - проверяемый индивидуальный номер налогоплательщика,

//		ВладелецИНН - ПеречислениеСсылка.ЮрФизЛицо - тип владельца ИНН: физлицо или юрлицо

Функция ИННСоответствуетТребованиям(Знач ИНН, ВладелецИНН) Экспорт



	ИНН = СокрЛП(ИНН);

	ДлинаИНН =  СтрДлина(ИНН);



	Если НЕ ТолькоЦифрыВСтроке(ИНН) Тогда

		Возврат Ложь;

	КонецЕсли;



	Если ДлинаИНН = 10  и ВладелецИНН = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда



		КонтрольнаяСумма = 0;



		Для Н = 1 По 9 Цикл



			Если 	  Н = 1 Тогда

				Множитель = 2;

			ИначеЕсли Н = 2 Тогда

				Множитель = 4;

			ИначеЕсли Н = 3 Тогда

				Множитель = 10;

			ИначеЕсли Н = 4 Тогда

				Множитель = 3;

			ИначеЕсли Н = 5 Тогда

				Множитель = 5;

			ИначеЕсли Н = 6 Тогда

				Множитель = 9;

			ИначеЕсли Н = 7 Тогда

				Множитель = 4;

			ИначеЕсли Н = 8 Тогда

				Множитель = 6;

			ИначеЕсли Н = 9 Тогда

				Множитель = 8;

			КонецЕсли; 

			

			Цифра = Число(Сред(ИНН,Н,1));

			КонтрольнаяСумма = КонтрольнаяСумма + Цифра * Множитель;

			

		КонецЦикла; 

		

		КонтрольныйРазряд = (КонтрольнаяСумма %11) %10;

		

		Если КонтрольныйРазряд <> Число(Сред(ИНН,10,1)) Тогда

			Возврат Ложь;

		КонецЕсли; 

		

	ИначеЕсли ДлинаИНН =12 и ВладелецИНН = Перечисления.ЮрФизЛицо.ФизЛицо Тогда

		

		КонтрольнаяСумма11 = 0;

		КонтрольнаяСумма12 = 0;

		

		Для Н=1 По 11 Цикл

			

			// Расчет множителя для 11-го и 12-го разрядов

			Если Н = 1 Тогда

				Множитель11 = 7;

				Множитель12 = 3;

			ИначеЕсли Н = 2 Тогда

				Множитель11 = 2;

				Множитель12 = 7;

			ИначеЕсли Н = 3 Тогда

				Множитель11 = 4;

				Множитель12 = 2;

			ИначеЕсли Н = 4 Тогда

				Множитель11 = 10;

				Множитель12 = 4;

			ИначеЕсли Н = 5 Тогда

				Множитель11 = 3;

				Множитель12 = 10;

			ИначеЕсли Н = 6 Тогда

				Множитель11 = 5;

				Множитель12 = 3;

			ИначеЕсли Н = 7 Тогда

				Множитель11 = 9;

				Множитель12 = 5;

			ИначеЕсли Н = 8 Тогда

				Множитель11 = 4;

				Множитель12 = 9;

			ИначеЕсли Н = 9 Тогда

				Множитель11 = 6;

				Множитель12 = 4;

			ИначеЕсли Н = 10 Тогда

				Множитель11 = 8;

				Множитель12 = 6;

			ИначеЕсли Н = 11 Тогда

				Множитель11 = 0;

				Множитель12 = 8;

			КонецЕсли; 

			

			Цифра = Число(Сред(ИНН,Н,1));

			КонтрольнаяСумма11 = КонтрольнаяСумма11 + Цифра * Множитель11;

			КонтрольнаяСумма12 = КонтрольнаяСумма12 + Цифра * Множитель12;

			

		КонецЦикла; 

		

		КонтрольныйРазряд11 = (КонтрольнаяСумма11 %11) %10;

		КонтрольныйРазряд12 = (КонтрольнаяСумма12 %11) %10;

		

		Если КонтрольныйРазряд11 <> Число(Сред(ИНН,11,1))

			ИЛИ КонтрольныйРазряд12 <> Число(Сред(ИНН,12,1)) Тогда

			Возврат Ложь;

		КонецЕсли; 

		

	Иначе		

		Возврат Ложь;		

	КонецЕсли; 	

	Возврат Истина;	

КонецФункции   

 // заполним список пользователей 

    FSO=createobject("Scripting.FileSystemObject");

    WshShell = CreateObject("WScript.Shell");

    Txt=FSO.OpenTextFile(КаталогИБ()+"usrdef\users.usr");

    LineUser="";

    ChI=0;

    Пока Txt.AtEndOfStream=0 Цикл

        Chi=Chi+1;

        Buf=Txt.Read(1);

        Если КодСимв(Buf)>31 Тогда

            LineUser=LineUser+Buf;

        КонецЕсли;

    КонецЦикла;

    LineBof="{"+chr(34)+"Container.Contents"+chr(34)+",";

    LineUser=Сред(LineUser,Найти(LineUser,LineBof)+23);

    LineUser=Сред(LineUser,1,Найти(LineUser,"}}"));

    //Сп=СоздатьОбъект("СписокЗначений"); 

    LineUser=СтрЗаменить(LineUser,РазделительСтрок," ");

    LineUser=СтрЗаменить(LineUser,"},{",РазделительСтрок);

    Для к=1 По СтрКоличествоСтрок(LineUser) Цикл

        а=СтрЗаменить(СтрПолучитьСтроку(LineUser,к),Симв(34),"");

        а=СтрЗаменить(СтрПолучитьСтроку(LineUser,к),"}","");

        а=Сред(а,19);

        а=Сред(а,Найти(а,",")+1);

        а=Сред(а,1,Найти(а,",")-1);  

        а=СтрЗаменить(а,"""",""); // уберем кавычки 

        списПользователи.Установить(а,а);

    КонецЦикла;     

    списПользователи.ТекущаяСтрока(1);

    // Список Пользователей заполнен

 

Функция ПолучимСписокБаз1СИзФайла(Версия)

	// Функция получения списка баз 1С 8.0 8.1 8.2 E_Migachev

	// Возвращает Таблицу Значений содержащую Название, СтрокаСоединения с базами 1С

	

	// Для начала получим программным путем полный путь к папке Application Data 

	// Способ из https://helpf.pro/faq/view/271.html

	App = Новый COMОбъект("Shell.Application");

	AppData=App.Namespace(26).Self.Path;

	ТЗБаз=Новый ТаблицаЗначений;

	ТЗБаз.Колонки.Добавить("Название",,"Название",25);

	ТЗБаз.Колонки.Добавить("СтрокаСоединения",,"СтрокаСоединения",30);

	Если Версия = "v80" Тогда		

		СписокБаз=AppData+"\1C\1Cv8\v8ib.lst";

	ИначеЕсли Версия = "v81" Тогда

		СписокБаз=AppData+"\1C\1Cv81\ibases.v8i";

	ИначеЕсли Версия = "v82" Тогда

		СписокБаз=AppData+"\1C\1CEStart\ibases.v8i";

	КонецЕсли;

	Сообщить("Файл со списком баз: "+Строка(СписокБаз));

	//Открываем файл в кодировке UTF8

	ФайлБаз= Новый ЧтениеТекста;

	ФайлБаз.Открыть(СписокБаз, КодировкаТекста.UTF8);

	Стр = ФайлБаз.ПрочитатьСтроку();

	Пока НЕ Стр = Неопределено Цикл

		Если СтрДлина(СокрЛП(Стр)) Тогда

			ТекущаяСтрока = СокрЛП(Стр);

			

			Если Лев(ТекущаяСтрока, 1) = "[" Тогда

				НоваяСтрока = ТЗБаз.Добавить();

				НоваяСтрока.Название = ТекущаяСтрока;

			КонецЕсли;

			

			Если Лев(ТекущаяСтрока, 8) = "Connect=" Тогда

				Попытка					

					НоваяСтрока.СтрокаСоединения = Прав(ТекущаяСтрока, СтрДлина(ТекущаяСтрока)-8);

				Исключение

					// Это группа

					НоваяСтрока.СтрокаСоединения = "";

				КонецПопытки;				

			КонецЕсли;     						

		КонецЕсли;

		Стр = ФайлБаз.ПрочитатьСтроку();

	КонецЦикла;

	//Удалим из ТЗ строки с пустой Строкой Соединения, т.к это группы, а они нам не нужны

	ПустыеСтроки = ТЗБаз.НайтиСтроки(Новый Структура("СтрокаСоединения",));

	Для каждого СтрокаТаблицы Из ПустыеСтроки Цикл

		ТЗБаз.Удалить(СтрокаТаблицы)

	КонецЦикла;

	Возврат ТЗБаз;

КонецФункции



Процедура ПолучимИзФайла(Кнопка)

	ТЗБаз = ПолучимСписокБаз1СИзФайла(Кнопка.Имя);

	//Выведем список баз из ТЗ в табличное поле

	Список=ТЗБаз;

	ЭлементыФормы.Список.СоздатьКолонки();

КонецПроцедуры	

   

  Выборка = ПользователиИнформационнойБазы.ПолучитьПользователей(); 

Для Каждого ЭлементМассива Из Выборка Цикл 

	ИмяПользователя = ЭлементМассива.Имя; 

	ПолноеИмяПользователя = ЭлементМассива.ПолноеИмя; 

	ЕстьПароль = ЭлементМассива.ПарольУстановлен; 

	Роли = ЭлементМассива.Роли; 

	

	Для Каждого Роль Из Роли Цикл 

		ИмяРоли = Роль.Имя; 

	КонецЦикла; 

КонецЦикла;

   

 //  Функция возвращает список зарегистрированных для выбранной

//  базы пользователей. Если пользователи не определены, список

//  будет пуст.

//

функция сзПолучитьПользователей(стрПутьКБазе)

    // Создаем список значений для возврата

    Ответ = создатьобъект("СписокЗначений");

    // Формируем полное имя файла, в котором 1С

    // хранит информацию о пользователях базы.

    стрИмяФайла = стрПутьКБазе + "\UsrDEF\Users.USR";

    // Проверим его наличие.

    если фс.СуществуетФайл(стрИмяФайла) > 0 тогда

        // Создаем объект FSO для работы с файлами.

        обФСО = создатьобъект("Scripting.FileSystemObject");

        // Открываем файл пользователей как текстовый.

        тхтФайл = обФСО.OpenTextFile(стрИмяФайла);

        // Инициализация первоначальных переменных

        // Загружаем в буфер(тестовую строку) информацию из файла.

        стрБуфер = "";

        чисПозиция = 0;

        // Перебеирать файл придеться посимвольно, так как 1С не совсеми

        // символами может работать коректно если они находяться в строке.

        пока тхтФайл.AtEndOfStream = 0 цикл

            // Получаем очередную позицию в файле.

            чисПозиция = чисПозиция + 1;

            // Получаем символ из данной позиции.

            стрСимв = тхтФайл.Read(1);

            // Если код символа больше 31

            если кодсимв(стрСимв) > 31 тогда

                // Тогда добавляем его к буферу.

                стрБуфер = стрБуфер + стрСимв;

            конецесли;

        конеццикла;

        // После формирования буфера начнем искать пользователей в нем.

        // Признаком для пользователя будет строка '{"UserItemType","Page.'

        стрПоиска = "{""UserItemType"",""Page.";

        // Получаем позицию первого пользователя.

        чисПозиция = найти(стрБуфер, стрПоиска);

        // Проверяем если в буфере нужная нам строка

        если чисПозиция > 0 тогда

            // Если есть, вырезаем из строки ненужную информацию.

            стрБуфер = сред(стрБуфер, чисПозиция);

            // Позиция после отрезания становиться в единицу

            чисПозиция = 1;

        конецесли;

        // В цикле получаем информацию о пользователях БД

        пока чисПозиция > 0 цикл

            // Удаляем из буфера 'мусор'

            стрБуфер = сред(стрБуфер, чисПозиция + 22);

            // Находим признак начала информации об имени пользователя.

            чисСмещение = найти(стрБуфер, """,""") + 3;

            // Перемещаем начало буфера на начало информации об имени пользователя

            стрБуфер = сред(стрБуфер, чисСмещение);

            // Получаем имя пользователя

            стрИмяПользователя = лев(стрБуфер, найти(стрБуфер, """,""") - 1);

            // Добовляем имя к нашему списку.

            Ответ.ДобавитьЗначение(стрИмяПользователя);

            // Получаем очередную позицию информации о пользователе

            чисПозиция = найти(стрБуфер, стрПоиска);

        конеццикла;

    конецесли;

    // Возращаем полученный список значений содержащий в себе список пользователей базы

    возврат Ответ;

конецфункции

 

//Таб - ТабличныйДокумент

//ИмяФайла – путь для сохранения файла PDF  (например «D:\Torg12.pdf»)

Процедура СоздатьФайлПДФ(Таб, ИмяФайла)



Попытка

ПДФПринтер = Новый ComObject(«Bullzip.PDFPrinterSettings»);

ПДФПринтер.SetValue(«output», ИмяФайла);

ПДФПринтер.SetValue(«ShowSaveAS», «never»);

ПДФПринтер.SetValue(«ShowProgress», «no»);

ПДФПринтер.SetValue(«ShowProgressFinished», «no»);

ПДФПринтер.SetValue(«ShowSettings», «never»);

ПДФПринтер.SetValue(«ShowPDF», «no»);

ПДФПринтер.SetValue(«ConfirmOverwrite»,»no»);

ПДФПринтер.WriteSettings();

Таб.Автомасштаб = Истина;

Таб.ИмяПринтера = «Bullzip PDF Printer»;Таб.Напечатать(Истина);

PDFФайл = Новый Файл(ИмяФайла);



Пока НЕ PDFФайл.Существует() Цикл

ОбработкаПрерыванияПользователя();

КонецЦикла;



Исключение



Сообщить(ОписаниеОшибки());

Сообщить(«Скорее всего необходимо установить или переустановить «»Bullzip PDF Printer»);

КонецПопытки;

//устанавливаем принтер по умолчанию

Таб.ИмяПринтера = ПолучитьПринтерПоУмолчанию();

КонецПроцедуры   

 //получаем принтер по умолчанию

Функция ПолучитьПринтерПоУмолчанию()



Скрипт = Новый ComObject(«MSScriptControl.ScriptControl»);

Скрипт.Language = «vbscript»;

Скрипт.AddCode(»

|Function GetDefaultPrinter()

|GetDefaultPrinter=vbNullString

|Set objWMIService=GetObject(«»winmgmts:»" _

|& «»{impersonationLevel=impersonate}!\\.\root\cimv2″»)

|Set colInstalledPrinters=objWMIService.ExecQuery _

|(«»S_elect * from Win32_Printer»")

|For Each objPrinter in colInstalledPrinters

|If objPrinter.Attributes and 4 Then

|GetDefaultPrinter=objPrinter.Name

|Exit For

|End If

|Next

|End Function»);

Возврат СокрЛП(Скрипт.run(«GetDefaultPrinter»));

КонецФункции   

 Если (ПустоеЗначение(Док.Контрагент) = 0) и (Док.Контрагент.Выбран() = 0)  Тогда

    Сообщить("В документе " + Док + " в реквизите Контрагент битая ссылка");

КонецЕсли;

  Процедура ВводНового(Копирование) 

 

//E_Migachev автоматический расчет следующего номера             

//Выберем документы в обратном порядке

ДокНачислениеОтпуска = СоздатьОбъект("Документ.НачислениеОтпуска"); 

ДокНачислениеОтпуска.ОбратныйПорядок(1);

ДокНачислениеОтпуска.ВыбратьДокументы(НачКвартала(РабочаяДата()-15),КонКвартала(РабочаяДата()+27));

ДокНачислениеОтпуска.ПолучитьДокумент();  

//Получим последний числовой номер

новномдк=Строка(число(Сред(ДокНачислениеОтпуска.НомерДок,3,7)));

стрдлинаномдк=СтрДлина(Строка(СокрЛП(Сред(ДокНачислениеОтпуска.НомерДок,3,7))));

новномдк=Число(новномдк)+1; 

иткол=стрдлинаномдк-СтрДлина(новномдк); 

префиксдк="ОТ";

если иткол>0 тогда 

	для н=1 по иткол цикл

		префиксдк=префиксдк+строка(0);		

	конеццикла;

конецесли;	

докном=префиксдк+новномдк;   

//Если документ исправление то нужен префикс И

Если Исправление=1 Тогда 

	знтри=Прав(ДокНачислениеОтпуска.НомерДок,3);

	Если Строка(Лев(знтри,1))="И" Тогда

		чзнтри=Число(Прав(знтри,2));

		чзнтри=чзнтри+1;

	Иначе

		чзнтри=1;

	КонецЕсли;     

	Если СтрДлина(чзнтри)=1 Тогда

	докном=докном+"-И0"+Строка(чзнтри);	

	Иначе

	докном=докном+"-И"+Строка(чзнтри);	

	КонецЕсли;

КонецЕсли;    

//Присвоим новый номер

НомерДок=докном; //E_Migachev автоматич расчет номера

 

 глСправка("ИмяЗакладки",Способ,ФайлаСправки)

 //****************************************** 

 // Параметры:

//    Топик (Строка) - имя раздела справки

//    Способ (Число) - способ вызова окна

//справки 1- нормальное, 2 - tooltips

//    ФайлСправки (Строка) - имя файла справки

// Описание: вызывает окно справки Windows с

//выбранным топиком

//

Процедура глСправка(Топик,Способ = 1,ФайлСправки = "MainHelp") экспорт

        ЗапуститьПриложение("winhlp32.exe" + ?(Способ = 2," -p "," ") + "-i " + Сокрп(Топик) + " " + КаталогИБ() + "/Help/" + ?(Способ = 2,"Topics.hlp",СокрЛП(ФайлСправки) + ".hlp"));

КонецПроцедуры

 // Процедура получает из реестра список зарегистрированных ИБ 7.7

Процедура ПолучитьСписокИБ() 

	Попытка

		ScrptCtrl=Новый COMObject("MSScriptControl.ScriptControl");

		ScrptCtrl.Language="vbscript";

		ScrptCtrl.AddCode("

		|Function Get1CV77Titles()

		|	const HKEY_CURRENT_USER = &H80000001

		|	Set oReg=GetObject(""winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv"")

		|	strKeyPath = ""Software\1C\1Cv7\7.7\Titles""

		|	oReg.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValues

		|	strInfo=vbNullString

		|   Get1CV77Titles = strInfo

		|	On Error Resume Next

		|	For i = LBound(arrValues) To UBound(arrValues)

		|		call oReg.GetStringValue(HKEY_CURRENT_USER,strKeyPath,arrValues(i),Value)

		|		strInfo=strInfo & arrValues(i) & vbTab & Value & vbCrLf

		|	Next		

		| 	Get1CV77Titles = strInfo

		|End Function

		|");

		Текст=СокрЛП(ScrptCtrl.Run("Get1CV77Titles"));

	Исключение

		Сообщить(ОписаниеОшибки());

		Возврат;

	КонецПопытки;

	

	ТаблицаПути.Очистить();

	

	Если НЕ ЗначениеЗаполнено(Текст) Тогда

		Возврат;

	КонецЕсли;

		

	Для Ном=1 По СтрЧислоСтрок(Текст) Цикл

		СтрБазы=СтрПолучитьСтроку(Текст,Ном);

		Разд=Найти(СтрБазы,Символы.Таб);

		Путь=Лев(СтрБазы,Разд-1);

		Название=Прав(СтрБазы,СтрДлина(СтрБазы)-Разд);

		

		НоваяСтрока = ТаблицаПути.Добавить();

		НоваяСтрока.Имя = Название;

		НоваяСтрока.Путь = Путь;

	КонецЦикла;

	

	ТаблицаПути.Сортировать("Имя");



КонецПроцедуры //ПолучитьСписокИБ

 

функция сзПолучитьСписокБаз()

    попытка

        // Создаем объект Microsoft Script Control.

        олеСкрипт = создатьобъект("MSScriptControl.ScriptControl");

        // Устанавливаем в качестве языка для выполнения сценариев Visual Basic

        олеСкрипт.Language = "VBScript";

        // Формируем код на VB.

        // В принципе он все делает. Создает объект

        // Windows Management Instrumentation и уже через него

        // получает значение ключи реестра преобразовывая данные

        // в строку.

        стрКод =

        "function strGetListBase()

        |  const RootKey = &H80000001

        |  set Reg = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_

        |                      ""\root\default:StdRegProv"")

        |  PathKey = ""Software\1C\1Cv7\7.7\Titles""

        |  Reg.EnumValues RootKey, PathKey, Arr

        |  Answer = ""{""""СписокЗначений"""",{""

        |  for x = LBound(Arr) to UBound(Arr)

        |    call Reg.GetStringValue(RootKey, PathKey, Arr(x), Value)

        |    Answer = Answer & ""{{""""Строка"""","""""" &_

        |             Arr(x) & """"""},"""""" & replace(Value, """""""", """""""""""") &_

        |             """""",""""0""""}""

        |    if x <> UBound(Arr) then Answer = Answer & "",""

        |  next

        |  Answer = Answer & ""}}""

        |  strGetListBase = Answer

        |end function";

        // Добавляем наш код.

        олеСкрипт.AddCode(стрКод);

        // Вызываем его на выполнение, и пытаемся из полученного результата

        // сформировать список значений.

        Ответ = значениеизстроки(олеСкрипт.Run("strGetListBase"));

        // Отсортируем список по Представлению баз

        Ответ.СортироватьПоПредставлению();

    исключение

        // Если произошла ошибка. Значит вернем "Error".

        Ответ = "Error";

    конецпопытки;

    возврат Ответ;

конецфункции

 

Функция глРазложить(Знач Стр, Разделитель = ",") Экспорт

	СЗ = СоздатьОбъект("СписокЗначений");

	Если Разделитель = " " Тогда

		Стр = СокрЛП(Стр);

		Пока 1=1 Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				СЗ.ДобавитьЗначение(Стр);

				Возврат СЗ;

			КонецЕсли;

			СЗ.ДобавитьЗначение(Лев(Стр,Поз-1));

			Стр = СокрЛ(Сред(Стр,Поз));

		КонецЦикла;

	Иначе

		ДлинаРазделителя = СтрДлина(Разделитель);

		Пока 1=1 Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				СЗ.ДобавитьЗначение(Стр);

				Возврат СЗ;

			КонецЕсли;

			СЗ.ДобавитьЗначение(Лев(Стр,Поз-1));

			Стр = Сред(Стр,Поз+ДлинаРазделителя);

		КонецЦикла;

	КонецЕсли;

КонецФункции

 

Функция глРазложить(Знач Стр, Разделитель = ",") Экспорт

	СЗ = Новый СписокЗначений;

	Если Разделитель = " " Тогда

		Стр = СокрЛП(Стр);

		Пока 1=1 Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				СЗ.Добавить(Стр);

				Возврат СЗ;

			КонецЕсли;

			СЗ.Добавить(Лев(Стр,Поз-1));

			Стр = СокрЛ(Сред(Стр,Поз));

		КонецЦикла;

	Иначе

		ДлинаРазделителя = СтрДлина(Разделитель);

		Пока 1=1 Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				СЗ.Добавить(Стр);

				Возврат СЗ;

			КонецЕсли;

			СЗ.Добавить(Лев(Стр,Поз-1));

			Стр = Сред(Стр,Поз+ДлинаРазделителя);

		КонецЦикла;

	КонецЕсли;

КонецФункции