OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Вторник, 19 Март, 2024 14:57

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: Сохранение файла
СообщениеДобавлено: Четверг, 10 Декабрь, 2020 05:03 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 3774
Ответ для подписчика с YouTube

Код:
MODULE  ObxFileSave;

   IMPORT  Log := StdLog, Math,
      Converters, Files, Views, TextModels, TextViews, TextMappers;

   PROCEDURE Err (IN msg: ARRAY OF CHAR);
   BEGIN
      Log.String(msg); Log.Ln;
   END Err;
   
   PROCEDURE SaveUtf8 (t: TextViews.View; IN path, name: ARRAY OF CHAR);
   VAR conv: Converters.Converter; loc: Files.Locator; fname: Files.Name;
      res: INTEGER;
   BEGIN
      conv := Converters.list;      
      WHILE (conv # NIL) & (conv.exp # "HostTextConv.ExportUtf8") DO
         conv := conv.next
      END;
      IF conv # NIL THEN
         loc := Files.dir.This(path$);
         IF loc.res = 0 THEN
            fname := name$;
            Views.Register(t, Views.dontAsk, loc, fname, conv, res);
            IF res # 0 THEN
               Err("ошибка при сохранении файла")
            END
         ELSE
            Err("некорректный путь")
         END
      ELSE
         Err("не найден конвертер для utf8")
      END;
   END SaveUtf8;

   PROCEDURE DemoSave*;
   VAR text: TextModels.Model; f: TextMappers.Formatter;
   BEGIN
      text := TextModels.dir.New();
      f.ConnectTo(text);
      f.WriteString("число Пи");
      f.WriteLn;
      f.WriteReal(Math.Pi());
      f.WriteLn;
      SaveUtf8(TextViews.dir.New(text), "test", "fname.txt")
   END DemoSave;

END ObxFileSave.

ObxFileSave.DemoSave


Список доступных конвертеров вы можете найти в файле Config и поменять строковую константу HostTextConv.ExportUtf8 на ваше усмотрение.


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2024, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB