PDA

Просмотр полной версии : Вытащить имя файла из строки, содержащей путь к данному файлу



LelPalna
10.01.2014, 15:33
Добрый день!
Подскажите, пожалуйста!
Доработанная 1С:Бухгалтерия 2.0
В одном из реквизитов справочника хранится путь к файлу. Например, C:\Files\1C\2013111517245900.xml
Нужно "вытащить" имя файла: 2013111517245900.xml
Длина имени файла разная, количество папок тоже может быть разной

newmetoda
10.01.2014, 18:52
Добрый день!
Подскажите, пожалуйста!
Доработанная 1С:Бухгалтерия 2.0
В одном из реквизитов справочника хранится путь к файлу. Например, C:\Files\1C\2013111517245900.xml
Нужно "вытащить" имя файла: 2013111517245900.xml
Длина имени файла разная, количество папок тоже может быть разной

если строка

Строка="C:\Files\1C\2013111517245900.xml";

Пока не Найти(Строка,"\")=0 Цикл

Строка = Сред(Строка,Найти(Строка,"\")+1);

КонецЦикла;

а если объект типа файл то

Свойства:

Имя (Name)
ИмяБезРасширения (BaseName)
ПолноеИмя (FullName)
Путь (Path)
Расширение (Extension)

Методы:

ПолучитьВремяИзменения (GetModificationTime)
ПолучитьНевидимость (GetHidden)
ПолучитьТолькоЧтение (GetReadOnly)
ПолучитьУниверсальноеВрем яИзменения (GetModificationUniversalTime)
Размер (Size)
Существует (Exist)
УстановитьВремяИзменения (SetModificationTime)
УстановитьНевидимость (SetHidden)
УстановитьТолькоЧтение (SetReadOnly)
УстановитьУниверсальноеВр емяИзменения (SetModificationUniversalTime)
ЭтоКаталог (IsDirectory)
ЭтоФайл (IsFile)

Конструкторы:

По имени файла

Описание:

Используется для доступа к параметрам файлов или каталогов. Необходимо отметить, что данный объект не предназначен для чтения и записи из файлов.

Доступность:

Тонкий клиент, веб-клиент, сервер, толстый клиент, внешнее соединение.
Пример:

ИмяФайла = "C:\Test\readme.txt";
ВыбФайл = Новый Файл(ИмяФайла);
Если ВыбФайл.Существует() Тогда
Стр = "Результат выполнения:"+Символы.ПС+
+"Файл: "+ВыбФайл.ПолноеИмя+Символы. ПС+
+"Имя: "+ ВыбФайл.Имя+Символы.ПС+
+"Имя без расширения: "+ВыбФайл.ИмяБезРасширения+� �имволы.ПС+
+"Расширение: "+ВыбФайл.Расширение+Символ� �.ПС+
+"Путь: "+ВыбФайл.Путь+Символы.ПС+
+"Размер: "+ВыбФайл.Размер()+Символы.ПС +
+"Это файл: "+ВыбФайл.ЭтоФайл()+Символы.П С+
+"Время изменения: "+ВыбФайл.ПолучитьВремяИзме нения()+Символы.ПС+
+"Только чтение: "+ВыбФайл.ПолучитьТолькоЧте ние()+Символы.ПС+
+"Невидимость: "+ВыбФайл.ПолучитьНевидимос ть();
Сообщить(Стр);
Иначе
Предупреждение("Файл не найден!");
КонецЕсли;

//Результат выполнения:
//Файл: C:\Test\readme.txt
//Имя: readme.txt
//Имя без расширения: readme
//Расширение: .txt
//Путь: C:\Test//Размер: 916
//Это файл: истина
//Время изменения: 31.10.2000 12:42:04
//Только чтение: истина
//Невидимость: ложь

LelPalna
13.01.2014, 16:43
СПАСИБО!