Как записать в текстовый файл в 1С 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 |
&НаКлиенте Процедура ЗаписьТекстовогоФайла(Команда) Katalog = КаталогДокументов() + "\KatalogDop"; СоздатьКаталог(Katalog); FileText = Новый ТекстовыйДокумент; // Устанавливаем содержимое файла. FileText.УстановитьТекст(" |Пример текста |Ещё пример"); // Очищаем содержимое файла. FileText.Очистить(); // Добавляем первую ... FileText.ДобавитьСтроку("Stroka 1"); // ... и вторую строку файла. FileText.ДобавитьСтроку("Stroka 2"); // Меняем первую строку на "Замена" FileText.ЗаменитьСтроку( 1, // номер строки в файле, нумеруется с 1 "Замена" ); // Вставляем новую строку сразу после первой, // то есть на место второй. FileText.ВставитьСтроку( 2, // номер строки, на место которой вставляем новую "Пример" ); // Удаляем вторую строку ("Пример") FileText.УдалитьСтроку(2); // Записываем файл на диск. // Если такой файл уже существует - он будет перезаписан. FileText.Записать( Katalog + "\ТекстДок.txt", // путь для сохранения КодировкаТекста.UTF8, // кодировка Символы.ВК + Символы.ПС // разделитель строк ); // Открываем созданный файл в блокноте. ЗапуститьПриложение(Katalog + "\ТекстДок.txt"); КонецПроцедуры |
Как прочитать текстовый файл в 1С 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
&НаКлиенте Процедура ЧтениеТекстовогоФайла(Команда) ОчиститьСообщения(); Katalog = КаталогДокументов() + "\KatalogDop"; СоздатьКаталог(Katalog); PutKFailu = Katalog + "\ ТекстДок.txt"; // Создаем случайный текстовый файл. Служебный.СоздатьПроизвольныйFileText(PutKFailu); FileText = Новый ТекстовыйДокумент; FileText.Прочитать(PutKFailu, КодировкаТекста.UTF8, Символы.ВК + Символы.ПС); // Выводим весь текст целиком. Сообщить(FileText.ПолучитьТекст()); // Выводим текст по строкам. Для Индекс = 1 По FileText.КоличествоСтрок() Цикл Сообщить(FileText.ПолучитьСтроку(Индекс)); КонецЦикла; КонецПроцедуры |
Как использовать текстовый макет для формирования печатной формы в 1С 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 |
&НаКлиенте Процедура ВыводимТекстовыйМакет (Команда) ОчиститьСообщения(); // Вызываем функцию, которая сформирует на сервере // печатную форму и вернёт её обратно на клиент. НашаПечатнаяФормаИзТекстовогоДокумента = СформироватьПечатнуюФормуПростая(); // Выводим её пользователю, а он уже отправит её на печать. НашаПечатнаяФормаИзТекстовогоДокумента.Показать("Договор N15"); КонецПроцедуры &НаСервере Функция СформироватьПечатнуюФормуПростая() НашаПечатнаяФормаИзТекстовогоДокумента = Новый ТекстовыйДокумент; Макет = Обработки.НашаОбработка.ПолучитьМакет("НашТекстовыйМакет"); // Получаем область и макета по имени. Шапка = Макет.ПолучитьОбласть("Шапка"); // Заполняем её параметры. Шапка.Параметры.Дата = ТекущаяДата(); Шапка.Параметры.Номер = 1; // Выводим её в документ. НашаПечатнаяФормаИзТекстовогоДокумента.Вывести(Шапка); // Заголовок табличной части. ТабличнаяЧастьЗаголовок = Макет.ПолучитьОбласть("ТабличнаяЧастьЗаголовок"); НашаПечатнаяФормаИзТекстовогоДокумента.Вывести(ТабличнаяЧастьЗаголовок); // Обычно в цикле выводятся строки табличной части. ТабличнаяЧастьСтрока = Макет.ПолучитьОбласть("ТабличнаяЧастьСтрока"); // Строка 1 ТабличнаяЧастьСтрока.Параметры.Товары = "Лук"; ТабличнаяЧастьСтрока.Параметры.Количество = 10; НашаПечатнаяФормаИзТекстовогоДокумента.Вывести(ТабличнаяЧастьСтрока); // Строка 2 ТабличнаяЧастьСтрока.Параметры.Товары = "Чеснок"; ТабличнаяЧастьСтрока.Параметры.Количество = 5; НашаПечатнаяФормаИзТекстовогоДокумента.Вывести(ТабличнаяЧастьСтрока); // Завершаем табличную часть подвалом. ТабличнаяЧастьСтрока = Макет.ПолучитьОбласть("ТабличнаяЧастьПодвал"); ТабличнаяЧастьСтрока.Параметры.ИтогоКоличество = 15; НашаПечатнаяФормаИзТекстовогоДокумента.Вывести(ТабличнаяЧастьСтрока); // Возвращаем печатную форму обратно на клиент. Возврат НашаПечатнаяФормаИзТекстовогоДокумента; КонецФункции |
Как использовать параметры полей при оформлении текстового макета в 1С 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 |
&НаКлиенте Процедура ВыводимТекстовыйМакетСложный(Команда) ОчиститьСообщения(); // Рассмотрим тот же случай, что и выше. // Нам требуется сделать печатную форму, в которой // в шапке будет выводиться номер и дата документа, // а в табличной части: список и количество, // заказанных товаров. // Вызываем функцию, которая сформирует на сервере // печатную форму и вернёт её обратно на клиент. НашаПечатнаяФормаИзТекстовогоДокумента = СформироватьПечатнуюФормуПосложнее(); // Выводим её пользователю, а он уже отправит её на печать. НашаПечатнаяФормаИзТекстовогоДокумента.Показать("Договор N16"); КонецПроцедуры &НаСервере Функция ФормируемПечатнуюФормуСложную() НашаПечатнаяФормаИзТекстовогоДокумента = Новый ТекстовыйДокумент; Макет = Обработки.НашаОбработка.ПолучитьМакет("ТекстовыйМакетСложный"); // Получаем область и макета по имени. Шапка = Макет.ПолучитьОбласть("Шапка"); // Заполняем её параметры. Шапка.Параметры.Дата = ТекущаяДата(); Шапка.Параметры.Номер = 2; // Выводим её в документ. НашаПечатнаяФормаИзТекстовогоДокумента.Вывести(Шапка); // Заголовок табличной части. ТабличнаяЧастьЗаголовок = Макет.ПолучитьОбласть("ТабличнаяЧастьЗаголовок"); НашаПечатнаяФормаИзТекстовогоДокумента.Вывести(ТабличнаяЧастьЗаголовок); // Обычно в цикле выводятся строки табличной части. ТабличнаяЧастьСтрока = Макет.ПолучитьОбласть("ТабличнаяЧастьСтрока"); // Строка 1 ТабличнаяЧастьСтрока.Параметры.Товары = "Длинное название товара. Несколько строк"; ТабличнаяЧастьСтрока.Параметры.Количество = 700.56645; НашаПечатнаяФормаИзТекстовогоДокумента.Вывести(ТабличнаяЧастьСтрока); // Строка 2 ТабличнаяЧастьСтрока.Параметры.Товары = "Короткое название товара. Одна строка."; ТабличнаяЧастьСтрока.Параметры.Количество = 70.36343; НашаПечатнаяФормаИзТекстовогоДокумента.Вывести(ТабличнаяЧастьСтрока); // Завершаем табличную часть подвалом. ТабличнаяЧастьСтрока = Макет.ПолучитьОбласть("ТабличнаяЧастьПодвал"); ТабличнаяЧастьСтрока.Параметры.ИтогоКоличество = 245.147427; НашаПечатнаяФормаИзТекстовогоДокумента.Вывести(ТабличнаяЧастьСтрока); // Возвращаем печатную форму обратно на клиент. Возврат НашаПечатнаяФормаИзТекстовогоДокумента; КонецФункции |