Цей розділ знаходиться на стадії тестування!

Отримати ім'я файлу, шлях до файлу та розширення по шляху 1с

Отримати ім'я файлу, шлях до файлу та розширення по шляху 1с

Функція яка видає інформацію зі шляху файлу: директорія, назва файлу, розширення файлу.


    ПутьИИмя = "C:\dir\file.11.exe";
    
    Путь = "";
    Имя = "";
    РасширениеФайла = "";

    ПозСлэш = Найти(ПутьИИмя,"\");
    Пока ПозСлэш > 0 Цикл
        Путь = Путь + Сред(ПутьИИмя, 1, ПозСлэш);
        ПутьИИмя = Сред(ПутьИИмя, ПозСлэш + 1);
        ПозСлэш = Найти(ПутьИИмя, "\");
    КонецЦикла;
    
    ПозицияПоследнейТочки = 0;
    РасширениеФайла = ПутьИИмя;
    Пока 1 = 1 Цикл
        ПозицияПоследнейТочки = Найти(РасширениеФайла, ".");
        Если ПозицияПоследнейТочки = 0 Тогда
            Прервать;
        Иначе
            РасширениеФайла = Сред(РасширениеФайла, ПозицияПоследнейТочки + 1)
        КонецЕсли;
    КонецЦикла;
    
    Имя = ПутьИИмя;
    Сообщить(Путь);
    Сообщить(Имя);
    Сообщить(РасширениеФайла);



Теги:   


2023-03-13




Вибрати мову:
-  руский
-  Українська