v7: Я хочу вывести заголовок файла без расширения

1C 7.7

11.11.11

✎

11:21

Я написала обработку,которая загружает в список значений внешние обработки с каталога, все работает, только файлы добавляются в список вместе с расширениями как мне сделать так, чтобы добавлялись только заголовки

1 Godofsin

11.11.11

✎

11:23

Найти(), Лев()

2 antoneus

11.11.11

✎

11:24

Синтакс-помощник-Встроенный язык-Системные-Функции/процедуры-Строковые

3 ДенисЧ

11.11.11

✎

11:25

нет, чтобы efd-механизм использовать...

4 palpetrovich

11.11.11

✎

11:27

" обработку,которая загружает в список значений внешние обработки" - очень нужная обработка, срочно выкладыай для оборзения :)

5 ЮлияКорж

11.11.11

✎

11:28

/Автор Корж Юлия Владимировна
//11.11.2011 09:06:37
Перем Файл,Каталог;
Процедура ПриОткрытии()
Перем заголовок;
Каталог = КаталогИБ()+"ExtForms_AЕС\";
ФГ = СоздатьОбъект("ФС");
Файл=ФГ.НайтиПервыйФайл(Каталог+"*.ert");
Пока ПустаяСтрока(Файл) = 0 Цикл
Отчеты_АСУП.ДобавитьЗначение(Файл);
Файл = ФГ.НайтиСледующийФайл();
КонецЦикла;
КонецПроцедуры
///////////////////////////////////////////////////////////
Функция ТекущийОтчет()
Если Отчеты_АСУП.ТекущаяСтрока() > 0 Тогда
Возврат Отчеты_АСУП.ПолучитьЗначение(Отчеты_АСУП.ТекущаяСтрока());
Иначе
Возврат "";
КонецЕсли;
КонецФункции
///////////////////////////////////////////////////////////
// ===============================
Процедура Выполнить()
Перем Заголовок;
Если Отчеты_АСУП.ТекущаяСтрока()=0 Тогда
Возврат;
КонецЕсли;
Расширение = ВРег(Прав(ТекущийОтчет(), 3));
Отчеты_АСУП.ПолучитьЗначение(Отчеты_АСУП.ТекущаяСтрока(), Заголовок);
Если Расширение = "ERT" Тогда
ОткрытьФорму("Отчет",,Каталог+Отчеты_АСУП.ПолучитьЗначение(Отчеты_АСУП.ТекущаяСтрока()));
КонецЕсли;
КонецПроцедуры

6 Godofsin

11.11.11

✎

11:32

поз = Найти(Файл,".");
НужИмя = Лев(Файл, поз - 1);
Отчеты_АСУП.ДобавитьЗначение(НужИмя);

7 ЮлияКорж

11.11.11

✎

11:33

Я дама не жадная, только и вы мне помогайте, а я вам, что знаю помогу

8 ДенисЧ

11.11.11