Собственно сабж.<br>Что-то я не догоняю...
Собственно сабж.<br>Что-то я не догоняю...
зачем?
"Чтобы редактировать, что было напихано туда процедурой СохранитьЗначение() и прочими в секции UserValuesProfile и т.д.<br>Пока только дошел до:<br>//На форму положить список значений СписЗнач<br>Процедура Сформировать()<br>Данные=СоздатьОбъект("Текст");<br>Данные.Открыть(КаталогПользователя()+"1cv7.cfg");<br>НачСпис=СоздатьОбъект("СписокЗначений");<br>Для Ном=3 По Данные.КоличествоСтрок() Цикл<br> ВрСтр=Данные.ПолучитьСтроку(Ном);<br> НачСпис.ИзСтрокиСРазделителями(Лев(ВрСтр,СтрДлина(ВрСтр)-1));//Отъели последнюю ","<br> Если НачСпис.ПолучитьЗначение(1)="UserValuesProfile" Тогда<br> ВрСтр=НачСпис.ПолучитьЗначение(2);<br> ВрСтр=Лев(ВрСтр,СтрДлина(ВрСтр)-7);//Откусили хвост "}}"}}} "<br> ВрСтр=Прав(ВрСтр,СтрДлина(ВрСтр)-2);//Откусили сначала "{{"<br> ТСим="""";<br> ТСтр="""";<br> Кол=0;<br> Для Ном=1 По СтрДлина(ВрСтр) Цикл<br> ТСим=Сред(ВрСтр,Ном,1);<br> Если ТСим="{" Тогда<br> Если Кол=0 Тогда<br> Кол=Кол+1;<br> ТСтр=ТСтр+ТСим;<br> Иначе<br> ТСтр=Лев(ТСтр,СтрДлина(ТСтр)-2);<br> СписЗнач.ДобавитьЗначение(ТСтр+" ");<br> ТСтр="""";<br> Кол=0;<br> КонецЕсли;<br> Иначе<br> ТСтр=ТСтр+ТСим;<br> КонецЕсли;<br> КонецЦикла;<br> КонецЕсли;<br>КонецЦикла;<br>КонецПроцедуры<br>"