Создать текстовый файл
Все очень просто - создаем объект
Текст=СоздатьОбъект("Текст");
Вносим данные как в обычную строковую переменную:
Текст.ДобавитьСтроку(СокрЛП(Док)+" создан "+Док.ДатаДок+" пользователем "+СокрЛП(Док.Автор)+"!");
Текст.ДобавитьСтроку(?(Док.Проведен()=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); } }