Код

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

	сз = СоздатьОбъект("СписокЗначений");
	Попытка
		scriptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl");
		scriptCtrl.Language="vbscript";
		scriptCtrl.AddCode("
		|Function Get1CV77Titles()
		|	const HKEY_CURRENT_USER = &H80000001
		|	Set egProv"")
		|	strKeyPath = ""Software\1C\1Cv7\7.7\Titles""
		|	oReg.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValues
		|	strInfo=vbNullString
		|	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
		|");
		текст = СокрЛП(scriptCtrl.Run("Get1CV77Titles"));
	Исключение
		Сообщить("Ошибка: " + ОписаниеОшибки());
	КонецПопытки;

	Для инд = 1 по СтрКоличествоСтрок(текст) Цикл
		стрБазы = СтрПолучитьСтроку(Текст, инд);
		поз = Найти(стрБазы, СимволТабуляции);
		сз.ДобавитьЗначение(Лев(стрБазы, поз - 1), Прав(стрБазы, СтрДлина(стрБазы) - поз));
	КонецЦикла;
	сз.СортироватьПоПредставлению();
	имяБазы="";
	сз.ПолучитьЗначение(сз.НайтиЗначение(КаталогИБ()),имяБазы);
	Сообщить(имяБазы);

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