1С 7.x : Как определить каталог базы, путь к базе? КаталогИБ()

 //Получить представление информационной базы для отображения пользователю.

// Пример возвращаемого результата:

// - для ИБ в файлом режиме: \\FileServer\1c_ib\

// - для ИБ в серверном режиме: ServerName:1111 / information_base_name

Функция ПолучитьПредставлениеИнформационнойБазы() Экспорт

	Если ПустаяСтрока(СтрокаСоединенияИнформационнойБазы) Тогда

		СтрокаСоединенияИнформационнойБазы =  СтрокаСоединенияИнформационнойБазы();

	КонецЕсли;

	ЭтоФайловаяИБ = Найти(Врег(СтрокаСоединенияИнформационнойБазы), "FILE=") = 1;

	Если ЭтоФайловаяИБ Тогда

		ПутьКБД = Сред(СтрокаСоединенияСБД, 6, СтрДлина(СтрокаСоединенияСБД) - 6);

		ФайловаяБД = Истина;

	Иначе

		// надо к имени сервера прибавить имя пути информационной базы

		ПозицияПоиска = Найти(Врег(СтрокаСоединенияСБД), "SRVR=");

		

		Если ПозицияПоиска <> 1 Тогда

			Возврат Неопределено;

		КонецЕсли;

		

		ПозицияТочкиСЗапятой = Найти(СтрокаСоединенияСБД, ";");

		НачальнаяПозицияКопирования = 6 + 1;

		КонечнаяПозицияКопирования = ПозицияТочкиСЗапятой - 2; 

		

		ИмяСервера = Сред(СтрокаСоединенияСБД, НачальнаяПозицияКопирования, КонечнаяПозицияКопирования - НачальнаяПозицияКопирования + 1);

		

		СтрокаСоединенияСБД = Сред(СтрокаСоединенияСБД, ПозицияТочкиСЗапятой + 1);

		

		// позиция имени сервера

		ПозицияПоиска = Найти(Врег(СтрокаСоединенияСБД), "REF=");

		

		Если ПозицияПоиска <> 1 Тогда

			Возврат Неопределено;

		КонецЕсли;

		

		НачальнаяПозицияКопирования = 6;

		ПозицияТочкиСЗапятой = Найти(СтрокаСоединенияСБД, ";");

		КонечнаяПозицияКопирования = ПозицияТочкиСЗапятой - 2; 

		

		ИмяИБНаСервере = Сред(СтрокаСоединенияСБД, НачальнаяПозицияКопирования, КонечнаяПозицияКопирования - НачальнаяПозицияКопирования + 1);

		

		ПутьКБД = ИмяСервера + "/ " + ИмяИБНаСервере;

		ФайловаяБД = Ложь;

	КонецЕсли;

	Возврат ПутьКБД;

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

 

Функция КаталогИБ()

	СтрокаСоединенияСБД = СтрокаСоединенияИнформационнойБазы();

	// в зависимости от того файловый это вариант БД или нет,  по-разному отображается путь в БД 

	ПозицияПоиска = Найти(Врег(СтрокаСоединенияСБД), "FILE=");

	Если ПозицияПоиска = 1 тогда

		// Файловая	

		Возврат Сред(СтрокаСоединенияСБД,7,СтрДлина(СтрокаСоединенияСБД)-8)+"\";

	Иначе 

		// Серверная - Используем КаталогВременныхФайлов() 

		Возврат КаталогВременныхФайлов();

	КонецЕсли;

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

 

КаталогВременныхФайлов();	//Возвращает что-то типо: C:\Documents and Settings\E.S.Migachev\Local Settings\Temp\

КаталогПрограммы();	//Возвращает что-то типо: C:\Program Files\1cv81\bin\

   

 

//Встроенная КаталогИБ() - Возвращает имя каталога базы данных.

КаталогИБ(); //Возвращает что-то типо: C:\Basa1C\buh\