Для каждого ТекСтрока Из КоллекцияСтрок Цикл

// код обработки

КонецЦикла;   

 Пока л < КолСтрок Цикл

	// код обработки, например л=л+1;

КонецЦикла;   

 Для л=0 по КолСтрок Цикл

// код обработки, например л=л+1;

КонецЦикла   

 ~НачалоЦикла:

Если л <> КоличествоИтераций Тогда 

// код обработки, например л=л+1;

	Перейти ~НачалоЦикла;

КонецЕсли;   

 &НаКлиенте

Процедура ВыполнитьКод(Команда)

 

    /// Как организовать цикл в 1с 8.3, 8.2

 

    // Для Цикл

    Для Счетчик = 1 По 5 Цикл

        Сообщить(Счетчик); // 1 2 3 4 5

    КонецЦикла;

 

    // Для Каждого Цикл

 

    Дни = Новый Массив();

    Дни.Добавить("Понедельник");

    Дни.Добавить("Вторник");

    Дни.Добавить("Среда");

 

    Для Каждого Элемент Из Дни Цикл

        Сообщить(Элемент); // Понедельник Вторник Среда

    КонецЦикла;

 

    // Пока Цикл

    Счетчик = 0;

    Пока Счетчик < Дни.Количество() Цикл        

        Сообщить(Дни[Счетчик]); // Понедельник Вторник Среда

        Счетчик = Счетчик + 1;     

    КонецЦикла;     

 

    /// Как организовать обратный цикл в 1с 8.3, 8.2     

 

    Счетчик = Дни.Количество() - 1;     

    Пока Счетчик >= 0 Цикл

        Сообщить(Дни[Счетчик]); // Среда Вторник Понедельник

        Счетчик = Счетчик - 1;

    КонецЦикла;

 

    /// Как прервать цикл в 1с 8.3, 8.2

 

    Для Счетчик = 1 По 5 Цикл

        Если Счетчик > 2 Тогда

            Прервать;

        КонецЕсли;

        Сообщить(Счетчик); // 1 2

    КонецЦикла;

 

    /// Как принудительно продолжить цикл в 1с 8.3, 8.2

 

    Для Счетчик = 1 По 5 Цикл

        Если Счетчик <> 3 Тогда

            Продолжить;

        КонецЕсли;

 

        Сообщить(Счетчик); // 3

    КонецЦикла;   

 

КонецПроцедуры

   

 Для н = 0 по КоличествоИтераций Цикл

КакиеТоДействия();

КонецЦикла;   

 Для Каждого ЭлементКоллекции из Коллекция Цикл

КакиеТоДействия();

КонецЦикла;   

 Пока н <> КоличествоИтераций Цикл

КакиеТоДействия();

н = н + 1;

КонецЦикла;   

 ~НачалоЦикла:

Если н <> КоличествоИтераций Тогда

КакиеТоДействия();

н = н + 1;

Перейти ~НачалоЦикла;

КонецЕсли;   

 Процедура РекурсивныйЦикл(н, КоличествоИтераций)

КакиеТоДействия();

Если н <> КоличествоИтераций Тогда

РекурсивныйЦикл(н+1, КоличествоИтераций);

КонецЕсли;

КонецПроцедуры   

 ПриемникТестовогоЗначения = ТестовыйМассив.Получить(н);   

 ПриемникТестовогоЗначения = Элем;   

 ПриемникТестовогоЗначения = ТестовыйМассив.Получить(н);   

 // Удаление каталога и всех вложенных в него каталогов и файлов

Попытка

    УдалитьФайлы("C:\temp\Works"); 

Исключение

    Сообщить(ОписаниеОшибки());

КонецПопытки;   

  // Удалим в каталоге все файлы CSV

Попытка

		    УдалитьФайлы(КаталогВыгрузкиДанных, "*.csv"); 

		Исключение

			#Если Клиент Тогда

				Сообщить(ОписаниеОшибки());

			#КонецЕсли

    	КонецПопытки;

   

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

 //или 

 ФС.УдалитьФайл(Стр);

 // пример привел  smaharbA

//Данный пример не работает, если в папке есть файлы с атрибутами только для чтения и системные

Функция Рекурсия(Знач Путь,Сп)

    Перем А;

    ФСО=СоздатьОбъект("ФС");

    Стр=ФСО.НайтиПервыйФайл(Путь+"\*.*");

    Пока ПустоеЗначение(Стр)=0 Цикл

        Если (Стр<>"..") и (Стр<>".") Тогда

            Представление="";

            Для к=1 По СтрЧислоВхождений(Путь+"\"+Стр,"\") Цикл

                Представление=Представление+"\";

            КонецЦикла;

            Сп.ДобавитьЗначение(Путь+"\"+Стр,Представление+Стр);

            ФСО.АтрибутыФайла(Путь+"\"+Стр,,А);

            Если Сред(А,4,1)="1" Тогда

                Рекурсия(Путь+"\"+Стр,Сп);

            КонецЕсли;

        КонецЕсли;

        Стр=ФСО.НайтиСледующийФайл();

    КонецЦикла;

КонецФункции    // Рекурсия 

//******************************************* 

Процедура Сформировать()

    Перем Каталог,А;

    Если ФС.ВыбратьКаталог(Каталог,"")=0 Тогда

        Возврат;

    КонецЕсли;

    Сп=СоздатьОбъект("СписокЗначений");

    Рекурсия(Каталог,Сп);

    Сп.СортироватьПоПредставлению(0);

    Для к=1 По Сп.РазмерСписка() Цикл

        Стр=Сп.ПолучитьЗначение(к);

        ФС.АтрибутыФайла(Стр,,А);

        Если Сред(А,4,1)="1" Тогда

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

        Иначе

            ФС.УдалитьФайл(Стр);

        КонецЕсли;

    КонецЦикла;

    ФС.УстТекКаталог(Каталог+"\..\");

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

КонецПроцедуры