"Вот кусок из файла ExtForms\RP06Q2.GRP\PRB07.ERT:<br><br>============================================================================================<br>Процедура ФрмСписокСохрВариантов() <br> Перем Поз;<br> Перем НомСтр;<br> <br> СохрВарианты.УдалитьВсе();<br> <br> СохрДанные = СоздатьОбъект("СписокЗначений"); <br> ШаблонПоиска = Лев(Строка(Дата2), 2) + Сред(Строка(Дата2), 4, 2) + "01";<br> <br> НайденФайл = ФС.НайтиПервыйФайл(КаталогФормы + "\" + ?(СтрДлина(ШаблонПоиска) < 8, ШаблонПоиска + "*.rvs", ШаблонПоиска + ".rvs"));<br> Пока ПустаяСтрока(НайденФайл) = 0 Цикл<br> <br> ЗначениеИзФайла(КаталогФормы+ "\" + НайденФайл, СохрДанные);<br> <br> Если СохрДанные.РазмерСписка() > 0 Тогда <br> <br> Если НЕ(Периодичность = СохрДанные.Получить("Периодичность")) Тогда<br> НайденФайл = ФС.НайтиСледующийФайл();<br> Продолжить;<br> КонецЕсли;<br> <br> СтрСохрВарианта = СохрДанные.Получить("Вариант");<br> НомСохрВарианта = Сред(НайденФайл, СтрДлина(Найденфайл) - 5, 2); <br> <br> // Формируем список сохраненных вариантов <br> Если ВариантыОтчета.Принадлежит(НомСохрВарианта) = 0 Тогда<br> // Такого варианта нет в спике. Добавляем.<br> СохрВарианты.ДобавитьЗначение(НомСохрВарианта, СтрСохрВарианта); <br> КонецЕсли; <br> КонецЕсли;<br><br> НайденФайл = ФС.НайтиСледующийФайл(); <br> КонецЦикла; <br> <br> // Сортируем список вариантов по расширению.<br> Если СохрВарианты.РазмерСписка() > 0 Тогда<br> // Сортируем варианты по убыванию порядкового номера варианта,<br> // т.е. обратно порядку создания (последний вариант всегда наверху)<br> СохрВарианты.Сортировать(1); <br> <br> // Текущий вариант определяем как первый по порядку<br> Если ПустоеЗначение(НомерВариантаОтчета) = 1 Тогда<br> НомерВариантаОтчета = СохрВарианты.ПолучитьЗначение(СохрВарианты.РазмерСписка(), НазваниеВариантаОтчета); <br> КонецЕсли; <br> КонецЕсли; <br> <br>КонецПроцедуры // ФрмСписокСохрВариантов()<br>============================================================================================<br><br>Я правильно понял, что перечень вариантов заполнения формируется здесь?<br>Вот в этом куске:<br>----------------------------------------<br> НайденФайл = ФС.НайтиПервыйФайл(КаталогФормы + "\" + ?(СтрДлина(ШаблонПоиска) < 8, ШаблонПоиска + "*.rvs", ШаблонПоиска + ".rvs"));<br> Пока ПустаяСтрока(НайденФайл) = 0 Цикл<br> <br> ЗначениеИзФайла(КаталогФормы+ "\" + НайденФайл, СохрДанные);<br> <br> Если СохрДанные.РазмерСписка() > 0 Тогда <br> <br> Если НЕ(Периодичность = СохрДанные.Получить("Периодичность")) Тогда<br> НайденФайл = ФС.НайтиСледующийФайл();<br> Продолжить;<br> КонецЕсли;<br>----------------------------------------<br>проходятся три файла, но не один не подходит по параметру "Периодичность"...<br>Требуемое значение - 1, а как узнать, какое в файле???<br>во всех трёх файлах есть подстрока вида:<br>{{"N","0","0","0","0","0","2"},"Периодичность"}<br>это какое значение - 0 или 2?<br><br>(сорри, пробелы поел форум)"