1С 8.3 БСП ПолучитьРасширениеИмениФайла
Данные > 1С 8.3 БСП > Файлы (в работе)
Перейти в раздел примеры кода 1С 8.3:
1С 8.3 БСП ПолучитьРасширениеИмениФайла. Выделяет из имени файла его расширение (набор символов после последней точки).
Примера кода от rayastar
Результат = ОбщегоНазначенияКлиентСервер.ПолучитьРасширениеИмениФайла(ИмяФайла);
//
Функция ТипСодержимогоПоИмениФайла(ИмяФайла) Экспорт
РасширениеИмениФайла = ОбщегоНазначенияКлиентСервер.ПолучитьРасширениеИмениФайла(ИмяФайла);
Если НРег(РасширениеИмениФайла) = "xml" Тогда
Возврат Перечисления.ТипыСодержимогоФайловОбменаСБанками.xml;
ИначеЕсли НРег(РасширениеИмениФайла) = "html" Тогда
Возврат Перечисления.ТипыСодержимогоФайловОбменаСБанками.html;
Иначе
Возврат Перечисления.ТипыСодержимогоФайловОбменаСБанками.Неизвестный;
КонецЕсли;
КонецФункции
//
Функция ТипСодержимогоПоИмениФайла(ИмяФайла) Экспорт
РасширениеИмениФайла = ОбщегоНазначенияКлиентСервер.ПолучитьРасширениеИмениФайла(ИмяФайла);
Если НРег(РасширениеИмениФайла) = "xml" Тогда
Возврат Перечисления.ТипыСодержимогоФайловОбменаСБанками.xml;
ИначеЕсли НРег(РасширениеИмениФайла) = "html" Тогда
Возврат Перечисления.ТипыСодержимогоФайловОбменаСБанками.html;
Иначе
Возврат Перечисления.ТипыСодержимогоФайловОбменаСБанками.Неизвестный;
КонецЕсли;
КонецФункции
// Автор библиотеки: ООО "1С-Софт". Все права защищены © 2021
// Типовая конфигурация Библиотека стандартных подсистем (далее - БСП)
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник