|
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
|
Огромное спасибо за помощь. Все работает
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |