Воскресенье, 05.05.2024
В помощь 1С программисту
Главная | Регистрация | ВходПриветствую Вас Гость | RSS
Меню сайта
Статистика



Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа

Создать текстовый файл


Все очень просто - создаем объект

Текст=СоздатьОбъект("Текст");

Вносим данные как в обычную строковую переменную:

Текст.ДобавитьСтроку(СокрЛП(Док)+" создан "+Док.ДатаДок+" пользователем "+СокрЛП(Док.Автор)+"!");
Текст.ДобавитьСтроку(?(Док.Проведен()=0,"Не п","П")+"роведен!");

Если мне не изменяет склероз - длина строки неограниченная, метод "ДобавитьСтроку()" добавляет новую строку, т.е. в конец предыдущей строки, если такая была, автоматически добавляются символы "конец строки" и "перевод каретки".
После того как были внесены все данные, файл записываем:

Текст.Записать("c:\work\text.txt");


Считать данные из текстового файла

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

Преобразовать из windows-1251 в UTF-8

ADODBStream = CreateObject("ADODB.Stream");
ADODBStream.Type = 2;
ADODBStream.Charset = "windows-1251";
ADODBStream.Open();
ADODBStream.LoadFromFile(ИмяФайлаПолнВИН);
Text = ADODBStream.ReadText();
ADODBStream.Close();
ADODBStream.Charset = "UTF-8";
ADODBStream.Open();
ADODBStream.WriteText(Text);
ADODBStream.SaveToFile(ИмяФайлаПолнУТФ, 2);
ADODBStream.Close();


var container = document.getElementById('nativeroll_video_cont'); if (container) { var parent = container.parentElement; if (parent) { const wrapper = document.createElement('div'); wrapper.classList.add('js-teasers-wrapper'); parent.insertBefore(wrapper, container.nextSibling); } }
Поиск
Друзья сайта
  • Доска бесплатных объявлений
  • Как я отдохнул в Крыму
  • Официальный блог
  • Программы для всех
  • FAQ по системе
  • Инструкции для uCoz
  • Спортклуб киокушинкай карате
    		•
    Copyright MyCorp © 2024
    Сделать бесплатный сайт с uCoz