- Добавил функцию "ПутьККонфигу1С" (#117)

* - Добавил функцию "ПутьККонфигу1С"

* - Исправил ошибки и недочеты

* - Исправил опечатку

Author: johnnyshut

src/v8runner.os

@@ -1599,6 +1599,49 @@
 
 КонецФункции
 
+// Функция - Возвращает путь к каталогу с конфигурационными файлами 1С 
+//
+// Параметры:
+//  ПутьКПлатформе1С     - Строка - Полный путь к платформе 1С, 
+//                 					например, C:\Program Files\1cv8\8.3.17.1386\bin\1cv8.exe
+//  ПутьКОбщимНастройкам - Булево - Если требуется получить путь к каталогу с общими настройками - Истина.
+//									Если путь к каталогу определенной версии - Ложь, по умолчанию - Истина.	
+//
+// Возвращаемое значение:
+//   Строка - Полный пути к каталогу содержащему конфигурационные файлы платформы, например, C:\Program Files\1cv8\conf
+//
+Функция КаталогКонфигурационныхФайлов1С(Знач ПутьКПлатформе1С = "", Знач ПутьКОбщимНастройкам = Истина) Экспорт
+	
+	Лог.Отладка("КаталогКонфигурационныхФайлов1С: Путь платформы 1С <"+ ПутьКПлатформе1С + ">");
+	Если ПутьКПлатформе1С = "" Тогда
+		ПутьКПлатформе1С = ПутьКПлатформе1С();
+		Лог.Отладка("КаталогКонфигурационныхФайлов1С: вычислили Путь платформы 1С <"+ ПутьКПлатформе1С + ">");
+	КонецЕсли;
+
+	КаталогНаДиске = Новый Файл(ПутьКПлатформе1С);
+	Если Не КаталогНаДиске.Существует() Тогда
+		ВызватьИсключение "Не существует установленной платформы 1С по пути: " + ПутьКПлатформе1С;
+	КонецЕсли;	
+
+	ВерсияПлатформы = "";
+	ШаблонВерсии = Новый РегулярноеВыражение("8(\.\d+){3}");
+	ВсеСовпадения = ШаблонВерсии.НайтиСовпадения(ПутьКПлатформе1С);
+	Если ВсеСовпадения.Количество() <> 0 Тогда
+		ВерсияПлатформы = ВсеСовпадения[ВсеСовпадения.Количество()-1].Значение;
+	КонецЕсли;
+
+	ВидПути = ?(ПутьКОбщимНастройкам, "(Общий)", "(Для текущей версии)");
+	Если ПутьКОбщимНастройкам Тогда
+		КаталогКонфигурационныхФайлов1С = СтрЗаменить(ПутьКПлатформе1С, "\" + ВерсияПлатформы + "\bin\1cv8.exe", "\conf");
+	Иначе
+		КаталогКонфигурационныхФайлов1С = СтрЗаменить(ПутьКПлатформе1С, "\1cv8.exe", "\conf");
+	КонецЕсли;	
+	Лог.Отладка("КаталогКонфигурационныхФайлов1С: получили путь конфигурационных файлов 1С " + ВидПути + " <" + КаталогКонфигурационныхФайлов1С + ">");
+
+	Возврат КаталогКонфигурационныхФайлов1С;
+
+КонецФункции
+
 //  Установка файла для вывода служебных сообщений. Если задан параметр ОчищатьФайл=Ложь, файл не очищается.
 //
 // Параметры: