// Выводит данные ДереваЗначений в ТекстовыйДокумент, пригодный к рассмотрению в отладчике, окне сообщений и показу.
//
// Параметры:
//    рВетка - дерево значений, подлежащее выводу. Может иметь почти любую глубину иерархии, количество и тип колонок. Если хватит
//        объявленных позиционных строк-заполнителей, всё поместится. Если иерархия слишком глубока, строки просто надо нарастить;
//    рТекст - на входе должен быть равен Неопределено; на выходе по окончании работы содержит результатный текстовый документ;
//    рПараметры - структура дополнительных настроек, допустимые ключи:
//        Колонки - структура колонок, которые подлежат выводу. Если пуста или имеет тип, отличный от структуры, выводятся все колонки;
//           если в ключах структуры указаны имена колонок, будут выведены только они. В значениях структуры можно передать строковое
//           представление формата, согласно которому должны будут форматироваться выводимые значения. По умолчанию формата нет;
//        ПоказыватьУровни - булево, управляет выводом №№ уровней (метод Уровень()), по умолчанию выключено;
//        ШагОтступа - число, определяющее шаг в символах, используемый для показа псевдографики иерархии веток в дереве.
//
&НаСервереБезКонтекста
Процедура ВывестиДеревоЗначенийВТекст(Знач рВетка,рТекст,Знач рПараметры=Неопределено)
Попытка
    Если рТекст=Неопределено Тогда // первая итерация, шапочный вызов исходной части
        //---------------------------------------------------------------------------------------------------------------------------
        // Разбираем входные данные
        Если ТипЗнч(рВетка)<>Тип("ДеревоЗначений") Тогда Возврат КонецЕсли;
        Если ТипЗнч(рПараметры)<>Тип("Структура") Тогда рПараметры=Новый Структура КонецЕсли;
        стрКолонок=?(рПараметры.Свойство("Колонки"),рПараметры.Колонки,Неопределено);
        Если ТипЗнч(стрКолонок)<>Тип("Структура") Тогда стрКолонок=Новый Структура КонецЕсли;
        рПоказыватьУровни=?(рПараметры.Свойство("ПоказыватьУровни"),рПараметры.ПоказыватьУровни,Ложь); // затратное дело, кстати
        рШагОтступа=?(рПараметры.Свойство("ШагОтступа"),рПараметры.ШагОтступа,2); // для отображения отступа в колонке иерархии


        //---------------------------------------------------------------------------------------------------------------------------
        // Определяем максимальное количество уровней
        // Также можно получить максимальный уровень, "плоско" перебрав все строки (например, получив их через НайтиСтроки)
        // и в цикле для каждой вызывая Уровень() и определяя максимум.
        // Вариант через СКД и служебное поле "Уровень" ни на одной известной мне платформе не работоспособен (нехватка памяти).
        //
        //
        //рДеревоДляТеста=КакНибудьСкопироватьДерево(рВетка);
        //рДеревоДляТеста.Колонки.Вставить(0,"_Level",Новый ОписаниеТипов("Булево")); // самый экономный вариант, с сохранением иерархии
        //мНенужных=Новый Массив;
        //Для й=1 По рДеревоДляТеста.Колонки.Количество()-1 Цикл
        //  мНенужных.Добавить(рДеревоДляТеста.Колонки[й]);
        //КонецЦикла;
        //Для каждого кол Из мНенужных Цикл
        //  рДеревоДляТеста.Колонки.Удалить(кол);
        //КонецЦикла;
        //
        рДеревоДляТеста=рВетка; // пока сериализуем прямо всё дерево (неоптимально, но...)
        рЗапись=Новый ЗаписьXML;
        рЗапись.УстановитьСтроку();
        СериализаторXDTO.ЗаписатьXML(рЗапись,рДеревоДляТеста);
        стро=рЗапись.Закрыть();
        //
        стро=СтрЗаменить(стро,"xmlns=","xmlns:myns1C="); // иначе не будет работать XPath
        //
        рЧтение=Новый ЧтениеXML;
        рЧтение.УстановитьСтроку(стро);
        постр=Новый ПостроительDOM;
        рДокументДОМ=постр.Прочитать(рЧтение);


        рВыражение="/ValueTree/row"; максКолвоУровней=1;
        рРазыменователь=Новый РазыменовательПространствИменDOM(рДокументДОМ);
        Пока Истина Цикл
            #Если Клиент Тогда
                ОбработкаПрерыванияПользователя();
            #КонецЕсли
            рРезультат=рДокументДОМ.ВычислитьВыражениеXPath(рВыражение,рДокументДОМ,рРазыменователь,ТипРезультатаDOMXPath.Любой);
            Если рРезультат.ПолучитьСледующий()=Неопределено Тогда Прервать КонецЕсли;
            рВыражение=рВыражение+"/row";
            максКолвоУровней=максКолвоУровней+1;
        КонецЦикла;
        максКолвоУровней=максКолвоУровней-1; // можно и так: СтрЧислоВхождений(рВыражение,"/row")-1;


        //---------------------------------------------------------------------------------------------------------------------------
        // готовим исходный макет вывода
        строПробелы="                                                                                                                                                                                                                 ";
        строРазделители="===============================================================================================";
        строОтступы="___________________________________________________________________________________________"; // тут нужны чуть для другого
        //
        секШапка1="|[_HCS"+Лев(строПробелы,максКолвоУровней*рШагОтступа)+"]|"; // HierarchyColumnShow
        секГорРазделитель1="|"+Лев(строОтступы,максКолвоУровней*рШагОтступа+6)+"|"; // здесь именно Отступы!
        рШиринаКолонкиИерархии=СтрДлина(секШапка1)-2;
        строПолейШапки="#Поле _HCS
        |   #Выравнивание Центр";
        строПолейЗаписи="";
        //
        Если рПоказыватьУровни Тогда
            секШапка1=секШапка1+"[_Level]|";
            секГорРазделитель1=секГорРазделитель1+Лев(строРазделители,8)+"|";
            строПолейШапки=строПолейШапки+"
            |#Поле _Level
            |   #Выравнивание Центр";
            строПолейЗаписи="#Поле _Level
            |   #Выравнивание Центр
            |   #Забивать Истина";
        КонецЕсли;
        //
        мИменКолонок=Новый Массив;
        Для каждого кол Из рВетка.Колонки Цикл
            Если стрКолонок.Количество()<>0 и не стрКолонок.Свойство(кол.Имя) Тогда Продолжить КонецЕсли; // чётко указаны конкретные колонки
            рДлинаИмениКолонки=СтрДлина(кол.Имя);
            рНужнаяШирина=Макс(?(кол.Ширина<3,10,кол.Ширина),рДлинаИмениКолонки);
            // к сожалению, ключевое слово "#Поля" неприменимо - платформа падает - поэтому делаем всё сами
            секШапка1=секШапка1+"["+кол.Имя+Лев(строПробелы,рНужнаяШирина-рДлинаИмениКолонки)+"]|";
            секГорРазделитель1=секГорРазделитель1+Лев(строРазделители,рНужнаяШирина+1)+"=|";
            строПолейШапки=строПолейШапки+"
            |#Поле "+кол.Имя+"
            |   #Выравнивание Центр";
            рОписТипов=кол.ТипЗначения;
            Если рОписТипов.Типы().Количество()=1 и рОписТипов.СодержитТип(Тип("Булево")) Тогда
                рВыравнивание="Центр";
            ИначеЕсли рОписТипов.СодержитТип(Тип("Число")) Тогда
                рВыравнивание="Право";
            ИначеЕсли рОписТипов.СодержитТип(Тип("Строка")) и рОписТипов.КвалификаторыСтроки.Длина=0 Тогда
                рВыравнивание="ПоШирине";
            Иначе
                рВыравнивание="Лево";
            КонецЕсли;
            строПолейЗаписи=строПолейЗаписи+?(ПустаяСтрока(строПолейЗаписи),"",Символы.ПС)+"#Поле "+кол.Имя+"
            |   #Выравнивание "+рВыравнивание;
            Попытка
                Если ЗначениеЗаполнено(стрКолонок[кол.Имя]) Тогда // указан формат, уточняющий показ колонки
                    строПолейЗаписи=строПолейЗаписи+"
                    |   #Формат """+СокрЛП(стрКолонок[кол.Имя])+"""";
                КонецЕсли;
            Исключение
            КонецПопытки;
            мИменКолонок.Добавить(кол.Имя);
        КонецЦикла;
        секШапка2=СтрЗаменить(СтрЗаменить(секШапка1,"[","<"),"]",">");
        секЗапись1=секШапка1; секЗапись2=секШапка2; // пусть они по дизайну пока не отличаются
        секГорРазделитель2=СтрЗаменить(СтрЗаменить(секГорРазделитель1,"=","-"),"|","+");
        // обработаем нормальное обрамление шапки колонки иерархии
        секГорРазделитель1=СтрЗаменить(секГорРазделитель1,"_","=");
        секГорРазделитель2=СтрЗаменить(секГорРазделитель2,"_"," ");
        //
        тМакет=Новый ТекстовыйДокумент;
        тМакет.ДобавитьСтроку("#Область Шапка");
        тМакет.ДобавитьСтроку(строПолейШапки);
        тМакет.ДобавитьСтроку(секГорРазделитель1);
        тМакет.ДобавитьСтроку(секШапка1);
        тМакет.ДобавитьСтроку(секШапка2);
        тМакет.ДобавитьСтроку(секГорРазделитель1);
        тМакет.ДобавитьСтроку("#КонецОбласти");
        тМакет.ДобавитьСтроку("");
        тМакет.ДобавитьСтроку("#Область Запись");
        тМакет.ДобавитьСтроку(строПолейЗаписи);
        тМакет.ДобавитьСтроку(секЗапись1);
        тМакет.ДобавитьСтроку(секЗапись2);
        тМакет.ДобавитьСтроку(секГорРазделитель2);
        тМакет.ДобавитьСтроку("#КонецОбласти");
        рПараметры.Вставить("ИсходныйМакет",тМакет); // пусть будет


        //---------------------------------------------------------------------------------------------------------------------------
        // Запускаем вывод в итоговый документ
        рТекст=Новый ТекстовыйДокумент;
        сек=тМакет.ПолучитьОбласть("Шапка");
        сек.Параметры._HCS="Иерархия";
        Для каждого имякол Из мИменКолонок Цикл
            кол=рВетка.Колонки[имякол];
            сек.Параметры[кол.Имя]=?(ПустаяСтрока(кол.Заголовок),кол.Имя,кол.Заголовок);
        КонецЦикла;
        рТекст.Вывести(сек);
        //
        пар=Новый Структура;
        пар.Вставить("МассивИмёнКолонок",мИменКолонок);
        пар.Вставить("ТекущаяСекция",тМакет.ПолучитьОбласть("Запись"));
        пар.Вставить("ШиринаКолонкиИерархии",рШиринаКолонкиИерархии);
        пар.Вставить("ПоказыватьУровни",рПоказыватьУровни);
        пар.Вставить("Отступ",0);
        пар.Вставить("ШагОтступа",рШагОтступа);
        ВывестиДеревоЗначенийВТекст(рВетка,рТекст,пар);


    Иначе
        // очередная итерация, вывод в текстовый документ
        мИменКолонок=рПараметры.МассивИмёнКолонок;
        рСекция=рПараметры.ТекущаяСекция;
        рОтступ=рПараметры.Отступ;
        рШиринаКолонкиИерархии=рПараметры.ШиринаКолонкиИерархии;
        рПоказыватьУровни=рПараметры.ПоказыватьУровни;
        //
        строОтступы="_________________________________________________________________________________________________________";
        строПробелы="                                                                                                                                                                                                                 ";
        //
        пар=Новый Структура;
        пар.Вставить("МассивИмёнКолонок",мИменКолонок);
        пар.Вставить("ТекущаяСекция",рПараметры.ТекущаяСекция);
        пар.Вставить("ШиринаКолонкиИерархии",рШиринаКолонкиИерархии);
        пар.Вставить("ПоказыватьУровни",рПоказыватьУровни);
        пар.Вставить("ШагОтступа",рПараметры.ШагОтступа);
        пар.Вставить("Отступ",рОтступ+рПараметры.ШагОтступа);
        //
        Для каждого рПодветка Из рВетка.Строки Цикл
            рСекция.Параметры._HCS=Лев(строПробелы,рОтступ)+"\"+Лев(строОтступы,рШиринаКолонкиИерархии-рОтступ-1);
            Если рПоказыватьУровни Тогда
                рСекция.Параметры._Level=рПодветка.Уровень();
            КонецЕсли;
            Для каждого имякол Из мИменКолонок Цикл
                рСекция.Параметры[имякол]=рПодветка[имякол];
            КонецЦикла;
            рТекст.Вывести(рСекция);
            ВывестиДеревоЗначенийВТекст(рПодветка,рТекст,пар)
        КонецЦикла;
        //
    КонецЕсли;
Исключение
    Сообщить("ВывестиДеревоЗначенийВТекст, ошибка: "+ОписаниеОшибки(),СтатусСообщения.ОченьВажное);
КонецПопытки;
КонецПроцедуры   

 &НаСервере
//Текст - содержание текстового файла
//Разделитель - символ разделителя
//ЕстьЗакрывающийСимвол - последнее значение заканчивается разделителем
Функция ПреобразоватьТекстВТЗ(Текст,Разделитель,ЕстьЗакрывающийСимвол)
	
	ТаблицаЗначений = Новый ТаблицаЗначений;
	
	МаксимальноеКвоРазделителей = 0;
	Для НомерСтроки=1 по Текст.КоличествоСтрок() Цикл
		Стр = Текст.ПолучитьСтроку(НомерСтроки);
		КвоРазделителей = СтрЧислоВхождений(Стр,Разделитель);
		Если  КвоРазделителей > МаксимальноеКвоРазделителей Тогда
	          МаксимальноеКвоРазделителей = КвоРазделителей;
		КонецЕсли;	  
	КонецЦикла;	
	
	КвоКолонок = ?(ЕстьЗакрывающийСимвол = Истина,МаксимальноеКвоРазделителей,МаксимальноеКвоРазделителей+1);
	Ном = 0;
	Пока Ном < КвоКолонок Цикл
		 Ном = Ном+1;
		 ИмяКолонки = "Колонка"+Ном;
		 ТаблицаЗначений.Колонки.Добавить(ИмяКолонки);
	КонецЦикла;
	
	Для НомерСтроки=1 по Текст.КоличествоСтрок() Цикл
		
		Стр = Текст.ПолучитьСтроку(НомерСтроки);
		НоваяСтрока = ТаблицаЗначений.Добавить();
		
		Ном = 0;
		Пока Найти(Стр,Разделитель) > 0 Цикл
			Ном = Ном+1;
			ПозицияРазделителя = Найти(Стр,Разделитель);
			//получим значение
			ТекЗначение = ЛЕВ(Стр,ПозицияРазделителя - 1);
			Стр = Прав(Стр,СтрДлина(Стр) - ПозицияРазделителя);
			
			//теперь запишем значения
			ИмяКолонки = "Колонка"+Ном;
			НоваяСтрока[ИмяКолонки] = ТекЗначение;
		КонецЦикла;
		
		Если ЕстьЗакрывающийСимвол = Ложь Тогда
			ИмяКолонки = "Колонка"+(Ном+1);
			НоваяСтрока[ИмяКолонки] = Стр;
		КонецЕсли;
		
	КонецЦикла;
	
	Возврат  ТаблицаЗначений;
	
КонецФункции
   

 &НаСервере
//Текст - содержание текстового файла
//Разделитель - символ разделителя
//ЕстьЗакрывающийСимвол - последнее значение заканчивается разделителем
Функция ПреобразоватьТекстВТЗ(Текст,Разделитель,ЕстьЗакрывающийСимвол)
	
	ТаблицаЗначений = Новый ТаблицаЗначений;
	
	МаксимальноеКвоРазделителей = 0;
	Для НомерСтроки=1 по Текст.КоличествоСтрок() Цикл
		Стр = Текст.ПолучитьСтроку(НомерСтроки);
		КвоРазделителей = СтрЧислоВхождений(Стр,Разделитель);
		Если  КвоРазделителей > МаксимальноеКвоРазделителей Тогда
	          МаксимальноеКвоРазделителей = КвоРазделителей;
		КонецЕсли;	  
	КонецЦикла;	
	
	КвоКолонок = ?(ЕстьЗакрывающийСимвол = Истина,МаксимальноеКвоРазделителей,МаксимальноеКвоРазделителей+1);
	Ном = 0;
	Пока Ном < КвоКолонок Цикл
		 Ном = Ном+1;
		 ИмяКолонки = "Колонка"+Ном;
		 ТаблицаЗначений.Колонки.Добавить(ИмяКолонки);
	КонецЦикла;
	
	Для НомерСтроки=1 по Текст.КоличествоСтрок() Цикл
		
		Стр = Текст.ПолучитьСтроку(НомерСтроки);
		НоваяСтрока = ТаблицаЗначений.Добавить();
		
		Ном = 0;
		Пока Найти(Стр,Разделитель) > 0 Цикл
			Ном = Ном+1;
			ПозицияРазделителя = Найти(Стр,Разделитель);
			//получим значение
			ТекЗначение = ЛЕВ(Стр,ПозицияРазделителя - 1);
			Стр = Прав(Стр,СтрДлина(Стр) - ПозицияРазделителя);
			
			//теперь запишем значения
			ИмяКолонки = "Колонка"+Ном;
			НоваяСтрока[ИмяКолонки] = ТекЗначение;
		КонецЦикла;
		
		Если ЕстьЗакрывающийСимвол = Ложь Тогда
			ИмяКолонки = "Колонка"+(Ном+1);
			НоваяСтрока[ИмяКолонки] = Стр;
		КонецЕсли;
		
	КонецЦикла;
	
	Возврат  ТаблицаЗначений;
	
КонецФункции
   

 RegExp = Новый COMОбъект("VBScript.RegExp");
        
RegExp.IgnoreCase = Ложь; //Игнорировать регистр
RegExp.Global = Истина; //Поиск всех вхождений шаблона
RegExp.MultiLine = Истина; //Многострочный режим
          
RegExp.Pattern = "Windows[\w\s\d]*([A-Z1-9]{5}-[A-Z1-9]{5}-[A-Z1-9]{5}-[A-Z1-9]{5}-[A-Z1-9]{5})"; //Ищем ключ Windows

Matches=RegExp.Execute("строка поиска");
ЧислоВхождений=Matches.Count();
Если ЧислоВхождений>0 Тогда
  Для к = 0 По ЧислоВхождений-1 Цикл
       Match = Matches.Item(к);
       SubMatches = Match.SubMatches;
               Ключ=SubMatches.Item(0);
  КонецЦикла;
КонецЕсли;   

 RegExp = Новый COMОбъект("VBScript.RegExp");
    Результат = Новый Массив();
    
    RegExp.IgnoreCase = Ложь; //Игнорировать регистр  
    RegExp.Global = Истина; //Поиск всех вхождений шаблона  
    RegExp.MultiLine = Ложь; //Многострочный режим  
    
    RegExp.Pattern = "(?:^|;)(\""(?:[^\""]+|\""\"")*\""|[^;]*)"; //вот наш супер шаблон  
    //RegExp.Pattern = ";|;|;|;|;;|;|;|;|;|;|;|;|;;|;|;"; //вот наш супер шаблон  
    Matches=RegExp.Execute(Стр);
    ЧислоВхождений=Matches.Count();
    //Сообщить(Стр,СтатусСообщения.Важное); 
    Если ЧислоВхождений>0 Тогда 
        Для к = 0 По ЧислоВхождений-1 Цикл
            Match = Matches.Item(к);
            
            SubMatches = Match.SubMatches;
            ЧислоПодвыражений=SubMatches.Count();
            Для н = 0 По ЧислоПодвыражений-1 Цикл
                SubMatch=SubMatches.Item(н);
                Если SubMatch="" Тогда
                    //Продолжить; 
                КонецЕсли;    
                Результат.Добавить(SubMatch);
                //Сообщить("Подстрока: "+SubMatch); 
            КонецЦикла;    
        КонецЦикла;
    Иначе
        //Сообщить("Вхождений шаблона не найдено"); 
    КонецЕсли;
    Возврат Результат;
   

 RegExp = Новый COMОбъект("VBScript.RegExp");   

 ///////////////////////////////////////////////////////////////////////
//Поиск вхождений подстроки
Процедура RegExp_Exec()
    
    //Для 1С 7.7:
    Истина=-1;
    Ложь=0;
    RegExp = CreateObject("VBScript.RegExp");
    
    RegExp.IgnoreCase = Ложь; //Игнорировать регистр
    RegExp.Global = Истина; //Поиск всех вхождений шаблона
    RegExp.MultiLine = Ложь; //Многострочный режим
    
    RegExp.Pattern = "<[^>]*>"; //Ищем теги HTML
    Matches=RegExp.Execute("Это <hr> строка <br> с тегами HTML");
    ЧислоВхождений=Matches.Count();
    Если ЧислоВхождений>0 Тогда 
        Для к = 0 По ЧислоВхождений-1 Цикл
            Match = Matches.Item(к);
            Сообщить("Найден тег:"+ Match.Value);
        КонецЦикла;
    Иначе
        Сообщить("Вхождений шаблона не найдено");
    КонецЕсли;
    //Выдаст в окно сообщений:    
    //Найден тег:<hr>
    //Найден тег:<br>    
КонецПроцедуры

 ///////////////////////////////////////////////////////////////////////
//Поиск вхождений подстроки с использованием подвыражений
Процедура RegExp_Exec1()
    
    //Для 1С 7.7:
    Истина=-1;
    Ложь=0;
    RegExp = CreateObject("VBScript.RegExp");
    
    RegExp.IgnoreCase = Ложь; //Игнорировать регистр
    RegExp.Global = Истина; //Поиск всех вхождений шаблона
    RegExp.MultiLine = Ложь; //Многострочный режим
    
    RegExp.Pattern = "([^<]*)(<[^>]*>)([^<]*)"; //Ищем теги HTML, а также текст до и после тега
    Matches=RegExp.Execute("  <tr><td id=aaa>Дятел <td> долбит <td> сосну </tr>");
    ЧислоВхождений=Matches.Count();
    Если ЧислоВхождений>0 Тогда 
        Для к = 0 По ЧислоВхождений-1 Цикл
            Match = Matches.Item(к);
            
            SubMatches = Match.SubMatches;
            ЧислоПодвыражений=SubMatches.Count();
            Для н = 0 По ЧислоПодвыражений-1 Цикл
                SubMatch=SubMatches.Item(н);
                Если SubMatch="" Тогда
                    Продолжить;
                КонецЕсли;    
                
                Сообщить("Подстрока: "+SubMatch);
            КонецЦикла;    
        КонецЦикла;
    Иначе
        Сообщить("Вхождений шаблона не найдено");
    КонецЕсли;
КонецПроцедуры

//Выводит в окно сообщений:
//Подстрока:   
//Подстрока: <tr>
//Подстрока: <td id=aaa>
//Подстрока: Дятел 
//Подстрока: <td>
//Подстрока:  долбит 
//Подстрока: <td>
//Подстрока:  сосну 
//Подстрока: </tr>

 ///////////////////////////////////////////////////////////////////////
//Проверка подстроки
Процедура RegExp_Test()
    RegExp = CreateObject("VBScript.RegExp");
    RegExp.Pattern =  "^\d+$"; //Шаблон, который соответствует целому числу
    стр="12345";//Строка, которую тестируем
    Если RegExp.Test(стр)=0 Тогда
        Сообщить("Это не целое число");
    Иначе
        Сообщить("Это целое число");
    КонецЕсли;
    //Выдаст в окно сообщений:    
    //"Это целое число"
КонецПроцедуры

 ///////////////////////////////////////////////////////////////////////
//Замена текста в подстроке
Процедура RegExp_Replace()
    
    //Строка, где мы будем производить замены
    стр="Дятел долбил сосну";
    
    Истина=-1;
    Ложь=0;
    RegExp = CreateObject("VBScript.RegExp");
    
    RegExp.IgnoreCase = Истина; //Игнорировать регистр
    RegExp.Global = Истина; //Поиск всех вхождений шаблона
    RegExp.MultiLine = Истина; //Многострочный режим
    
    
    RegExp.Pattern = "(долбил)"; 
    
    стр=RegExp.Replace(стр, "про$1"); 
    Сообщить(стр);
    //Выдаст в окно сообщений:    
    //"Дятел продолбил сосну"
КонецПроцедуры

 // Удаление каталога и всех вложенных в него каталогов и файлов
Попытка
    УдалитьФайлы("C:\temp\Works"); 
Исключение
    Сообщить(ОписаниеОшибки());
КонецПопытки;   

  // Удалим в каталоге все файлы CSV
Попытка
		    УдалитьФайлы(КаталогВыгрузкиДанных, "*.csv"); 
		Исключение
			#Если Клиент Тогда
				Сообщить(ОписаниеОшибки());
			#КонецЕсли
    	КонецПопытки;
   

  ФС.УдалитьКаталог(Стр);
 //или 
 ФС.УдалитьФайл(Стр);

 // пример привел  smaharbA
//Данный пример не работает, если в папке есть файлы с атрибутами только для чтения и системные
Функция Рекурсия(Знач Путь,Сп)
    Перем А;
    ФСО=СоздатьОбъект("ФС");
    Стр=ФСО.НайтиПервыйФайл(Путь+"\*.*");
    Пока ПустоеЗначение(Стр)=0 Цикл
        Если (Стр<>"..") и (Стр<>".") Тогда
            Представление="";
            Для к=1 По СтрЧислоВхождений(Путь+"\"+Стр,"\") Цикл
                Представление=Представление+"\";
            КонецЦикла;
            Сп.ДобавитьЗначение(Путь+"\"+Стр,Представление+Стр);
            ФСО.АтрибутыФайла(Путь+"\"+Стр,,А);
            Если Сред(А,4,1)="1" Тогда
                Рекурсия(Путь+"\"+Стр,Сп);
            КонецЕсли;
        КонецЕсли;
        Стр=ФСО.НайтиСледующийФайл();
    КонецЦикла;
КонецФункции    // Рекурсия 
//******************************************* 
Процедура Сформировать()
    Перем Каталог,А;
    Если ФС.ВыбратьКаталог(Каталог,"")=0 Тогда
        Возврат;
    КонецЕсли;
    Сп=СоздатьОбъект("СписокЗначений");
    Рекурсия(Каталог,Сп);
    Сп.СортироватьПоПредставлению(0);
    Для к=1 По Сп.РазмерСписка() Цикл
        Стр=Сп.ПолучитьЗначение(к);
        ФС.АтрибутыФайла(Стр,,А);
        Если Сред(А,4,1)="1" Тогда
            ФС.УдалитьКаталог(Стр);
        Иначе
            ФС.УдалитьФайл(Стр);
        КонецЕсли;
    КонецЦикла;
    ФС.УстТекКаталог(Каталог+"\..\");
    ФС.УдалитьКаталог(Каталог);
КонецПроцедуры