Имя: Пароль:
1C
1C 7.7
v7: Работа с текстом
0 hhhhhhhhhhhhhhhhh
 
01.12.11
15:03
Помогите пожалуйста! задача состоит в том, чтобы можно было меня параметры страници из текстового файла.
Текстовый файл:
Ориентация=1
Масштаб=100
РежимПечатиКопий=0
ПолеСлева=3
ПолеСправа=0
ПолеСверху=3
ПолеСнизу=0
КолонтитулСверху=0
КолонтитулСнизу=0
Автомасштаб=0
ФлагЧБПечати=0
ИмяПринтера="имя принтера"

Проедура:
...
...
Файл = СоздатьОбъект("Текст");
Файл.Открыть("D:\Параметры.txt");
Для к = 1 По Файл.КоличествоСтрок() Цикл
КонецЦикла;

Таб.ПараметрыСтраницы(Ориентация,Масштаб,РежимПечатиКопий,ПолеСлева,ПолеСправа,ПолеСверху,ПолеСнизу,КолонтитулСверху,КолонтитулСнизу,Автомасштаб,ФлагЧБПечати, "имя принтера");        
Таб.Напечатать(0);
1 zuza
 
01.12.11
15:05
(0)буквоед?
2 План счетов
 
01.12.11
15:05
Если К = 1 Тогда
Ориентация = Файл.ТекущаяСтрока();
ИначеЕсли К = 2 Тогда
.......
3 filh
 
01.12.11
15:08
(2) в отладчике будет Ориентация = "Ориентация=1"
шаблон поможет
4 hhhhhhhhhhhhhhhhh
 
01.12.11
15:10
zuza- не обедал еще.
Нужно еще же отсечь все, что находится до =. Как?
5 FN
 
01.12.11
15:14
(4) СтрПолучитьСтроку(Стрзаменить(ТвойТекст,"=",РазделительСтрок),2)
6 antoneus
 
01.12.11
15:15
ну типа

Прав(Ориентация, СтрДлина(Ориентация) - Найти(Ориентация, "="))
7 filh
 
01.12.11
15:29
типа того:

//======================================================================
Функция КомуЧто(Кому, Что)
   Кому = Что;
   Возврат "";
КонецФункции // КомуЧто()
//*******************************************
Процедура Сформировать()
   Перем Ориентация,Масштаб,РежимПечатиКопий,ПолеСлева,
         ПолеСправа,ПолеСверху,ПолеСнизу,КолонтитулСверху,
         КолонтитулСнизу,Автомасштаб,ФлагЧБПечати;
   Файл = СоздатьОбъект("Текст");
   Файл.Открыть("D:\Параметры.txt");
   Для к = 1 По Файл.КоличествоСтрок() Цикл
       стр = Файл.ПолучитьСтроку(к);
       Кому = СтрПолучитьСтроку(Стрзаменить(стр,"=",РазделительСтрок),1);
       Что  = СтрПолучитьСтроку(Стрзаменить(стр,"=",РазделительСтрок),2);
       Шаблон("[КомуЧто("+Кому+","+Что+")]");
   КонецЦикла;
   Сообщить(""+Ориентация+" "+Масштаб+" "+РежимПечатиКопий+" "+ПолеСлева+" "+
         ПолеСправа+" "+ПолеСверху+" "+ПолеСнизу+" "+КолонтитулСверху+" "+
         КолонтитулСнизу+" "+Автомасштаб+" "+ФлагЧБПечати);
КонецПроцедуры
8 hhhhhhhhhhhhhhhhh
 
01.12.11
16:02
Огромное спасибо за помощь. Все работает