Получить уникальный идентификатор из "Объект не найден...."

Готовые тексты модулей и решений
Ответить
Аватара пользователя
admin
Администратор
Сообщения: 72
Зарегистрирован: 06 июл 2017 09:26

Получить уникальный идентификатор из "Объект не найден...."

Сообщение admin » 09 авг 2019 14:33

Код: Выделить всё

Функция ПолучитьGUIDпоОбъектНеНайден(ГУИДУдОбъкта)
    	ГУИДУдОбъктаСтр = СтрЗаменить(ГУИДУдОбъкта,"<Объект не найден> (","");
     	ГУИДУдОбъктаСтр = СтрЗаменить(ГУИДУдОбъктаСтр,")","");
       	ГУИДУдОбъктаСтр = СтрЗаменить(ГУИДУдОбъктаСтр,"0x","");
    	ГУИДУдОбъктаСтр = Сред(ГУИДУдОбъктаСтр, Найти(ГУИДУдОбъктаСтр,":")+1, СтрДлина(ГУИДУдОбъктаСтр));
    	ГУИД = Сред(ГУИДУдОбъктаСтр,25,8)+"-"+Сред(ГУИДУдОбъктаСтр,21,4)+"-"+Сред(ГУИДУдОбъктаСтр,17,4)+"-"+Сред(ГУИДУдОбъктаСтр,1,4)+"-"+Сред(ГУИДУдОбъктаСтр,5,12);
		Возврат ГУИД;
КонецФункции
вызов:

Код: Выделить всё

ГУИДУдОбъкта="Объект не найдегн бла бла бла"//тут строка
ПолучитьGUIDпоОбъектНеНайден(ГУИДУдОбъкта)

p.s. код честно украден с ресурсов интернета, протестирован. Если это ваш код, и я задел каким-то образом ваши профессиональные чувства, то вы можете написать в спортлото и пожаловаться.

Ответить

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 0 гостей