Функция выделяет из имени файла его расширение

Код 1C v 8.х

 

// Функция выделяет из имени файла его расширение

//

// Параметры

//  ИмяФайла     – Строка, содержащая имя файла, неважно с именем каталога или без.

//

// Возвращаемое значение:

//   Строка – расширение файла.

//

Функция ПолучитьРасширениеФайла(ИмяФайла) Экспорт



	ПозицияПоследнейТочки = 0;

	РасширениеФайла = ИмяФайла;



	Пока 1 = 1 Цикл

	

		ПозицияПоследнейТочки = Найти(РасширениеФайла, ".");



		Если ПозицияПоследнейТочки = 0 Тогда



			Прервать;



		Иначе



			РасширениеФайла = Сред(РасширениеФайла, ПозицияПоследнейТочки + 1)



		КонецЕсли;



	КонецЦикла;



	Возврат ?(РасширениеФайла = ИмяФайла, "", РасширениеФайла);



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

Разместил: E_Migachev Версии: | 8.x | Дата: 17.03.2009 Прочитано: 30674

Возможно, вас также заинтересует

Похожие FAQ

1C и Google Maps 21
была поставлена задача отображения на географической карте медицинских учреждений. После обзора предлагаемых решений был выбран сервис google. Но так же подобного рода подход будет работать и с картами сервиса yandex. Во время решения задачи было реш

1C: Enterprise Development Tools 52
И вот случилось долгожданное: Вышел 1C: Enterprise Development Tools - это среда для разработки конфигурации в IDE Eclipse. С сайта 1С: « 1C:Enterprise Development Tools » – это инструмент нового поколения для разработчиков бизнес-приложений систем

1Cv8.1CD - Файл данных достиг максимального размера! 9
1С выдает предупреждение " Файл данных достиг максимального размера" . Подскажите из - за чего это и как можно решить ? Превышен размер файла, обычно это сообщение возникает, когда размер файла 1Cv8.1CD приближается к 10 гигабайтам или размер ка

Excel файл как Внешний источник данных 17
Подключимся и загрузим из файла Excel данные в таблицу значений 1С. Сделать теперь это очень просто. 1. В конфигурации добавляет новый объект метаданных типа " Внешние источники данных" и назовем его просто " Excel" . https://helpf.pro/uploads/img

Microsift Visual C++ Runtime Library Program ...1cv77s.exe abnormal program termination 0
При запуске 1С 7.7 выдает сообщение: Microsift Visual C++ Runtime Library Program C:Program Files1Cv77BIN1cv77s.exe abnormal program termination Вариант 1. Обычно это происходит, когда повреждается файл регистрации. Точнее, когда не дописывает

Посмотреть все результаты поиска похожих

Еще в этой же категории

Ключевые слова и Изображения

Комментарии

1nclude

19.03.2023 00:35

Комментарий: 1

Код 1C v 8.3

 Функция ПолучитьРасширениеФайла(ИмяФайла) Экспорт



   Если Не ТипЗнч(ИмяФайла) = Тип("Строка") Тогда

      Возврат "";

   КонецЕсли;



   МассивПодстрок = СтрРазделить(ИмяФайла, ".", Ложь);



   Если МассивПодстрок Количество() < 2 Тогда

      Возврат "";

   КонецЕсли;



   Возврат СтрШаблон(".%1", МассивПодстрок[МассивПодстрок.Количество() - 1]);



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

Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.