Без рубрики

твсРаботаСФайлами модуль 1с8

Функция ПолучитьРасширениеФайла(стрИмяФайла) Экспорт стрРасширениеФайла = “”; ПозицияТочки = СтрДлина(стрИмяФайла); Пока ПозицияТочки >= 1 Цикл Если Сред(стрИмяФайла, ПозицияТочки, 1) = “.” Тогда стрРасширениеФайла = Сред(стрИмяФайла, ПозицияТочки […]