1С8 Пример. Получить параметры соединения Информационной Базы

1С8 Пример. Как Получить параметры соединения информационной базы.

Функция ПолучитьПараметрыСоединения()
	Структура = Новый Структура("Тип, Сервер, База, Файл, Строка");
	
	СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();
	Структура.Строка = СтрокаСоединения;
	
	СтрокаСоединения = СтрЗаменить(СтрокаСоединения, ";", Символы.ПС);
	
	Стр1 = СтрПолучитьСтроку(СтрокаСоединения, 1);
	Стр2 = СтрПолучитьСтроку(СтрокаСоединения, 2);
	
	Если Лев(Стр1, 4) = "Srvr" Тогда
		Структура.Тип = "Сервер";
		Структура.Сервер = Сред(Стр1, 7, СтрДлина(Стр1) - 7);
		Структура.База = Сред(СтрПолучитьСтроку(СтрокаСоединения, 2), 6, СтрДлина(Стр2) - 6);
	Иначе
		Структура.Тип = "Файл";
		Структура.Файл = Сред(Стр1, 6, СтрДлина(Стр1) - 6);
	КонецЕсли;	
	
	Возврат Структура;
КонецФункции	

ПолучитьПараметрыСоединения();
    




Рекламный блок:

Предлагаем решение Ваших задач 1С.

Внедрение 1С:

Доработка и сопровождение 1С:

Ориентировочная стоимость работ программиста 1С : 500 р. за 1 час работы.

Пишите: j008@j008.ru

Звоните: 8 916 710 83 51 Ольга