v7: Работа с текстом

1C 7.7

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

Огромное спасибо за помощь. Все работает