1С 7.x : Прогресс бар в строке состояния

 //Пример процедуры обработки таблицы значений ТЗ

//Размер прогрессора задан в 20 символов (5%)

Процедура ОБработкаДанных()

    РазмерИндикатора = ТЗ.КоличествоСтрок();

    Индикатор = "";

    Для А = 1 По 20 Цикл

        Индикатор = Индикатор + "    ";

    КонецЦикла;        

    Счетчик = 0;

    //Текст обработки строк ТЗ

    ТЗ.ВыбратьСтроки();

    Пока ТЗ.ПолуичтьСтроку() = 1 Цикл

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

        //Обработка строки

        Показатель = Цел(Счетчик/РазмерИндикатора * 100);

        Если Цел(Показатель/5) = Показатель/5 Тогда

            Индикатор = "";

            Для А = 1 По 20 Цикл

                Индикатор = Индикатор + ?(А<=Показатель/5,Симв(127),"    ");  

            КонецЦикла;        

            Состояние(Индикатор + "| Анализ адресов; " + Показатель + "%");

        КонецЕсли;

    КонецЦикла;

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

 // ПрогрессБар в строке состояния. Маленький, шустренький

Процедура глПрогрессор(Сообщение,Всего,Текущ) Экспорт

Если Всего>0 Тогда

 Процент=Цел(Текущ/Всего * 100);

 Если Процент > Цел((Текущ-1)/Всего * 100) Тогда

   Состояние(Сообщение + ": "+Формат(Процент,"Ч(0)2")+"% "+СтрЗаменить(Формат("","С"+Мин(99,Процент))," ","l")+СтрЗаменить(Формат("","С"+Мин(99,99-Процент))," ","'")+"l");

 КонецЕсли;

КонецЕсли;

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



// Вот пример использования:

Для ин=1 По 100000 Цикл

  глПрогрессор("Тест",100000,ин);

КонецЦикла;