Пример 1

Создайте новый файл во временной папке системы. Имя временной папки отличается для других платформ. Команда fopen с опцией TempFile создает файл во временной папке любой системы (если такая папка существует):

a := 3:
b := 5:
fid := fopen(TempFile, Write, Text):

Используйте команду write, чтобы сохранить значения a и b во временном файле:

write(fid, a, b):

Используйте fname, чтобы возвратить имя временного файла, который вы создали:

file := fname(fid):

После чтения файла восстанавливаются значения a и b:

delete a, b:
read(file):
a, b

Также используйте fopen, чтобы открыть файл и считать его содержимое:

delete a, b:
n := fopen(file):
read(n):
fclose(n):
a, b

delete a, b, READPATH, n:

Пример 2

Можно явным образом задать папку и имена файлов. Следующий пример только работает над системами как UNIX. Чтобы заставить его работать над другими операционными системами, измените пути соответственно. Во-первых, используйте write, чтобы сохранить значения в файле “testfile.mb” в папке “/tmp”:

a := 3:
b := 5:
write("/tmp/testfile.mb", a, b):

Теперь, задайте “/tmp” как поисковую папку и обеспечьте путь относительно него. Обратите внимание на то, что разделитель пути “/” вставляется read:

delete a, b:
READPATH := "/tmp":
read("testfile.mb"):
a, b

Пример 3

Команда read оценивает все операторы в файле, который она читает с максимальной глубиной замены, заданной LEVEL. Например, создайте и считайте файл, который задает значение переменной a при помощи другой переменной b. Используйте команду fopen с опцией TempFile, чтобы создать новый файл во временной папке системы:

fid := fopen(TempFile, Write, Text):

Запишите следующие операторы в файл:

fprint(Unquoted, fid, "a := b^2:  b := 5: c := a/3: delete a, b:"):

Используйте fname, чтобы возвратить имя временного файла, который вы создали. Используйте fclose, чтобы закрыть файл:

file := fname(fid):
fclose(fid)

Считайте файл. Команда read оценивает операторы в файле рекурсивно:

read(file):
c

Чтобы подавить рекурсивные оценки, измените максимальную глубину замены на 1:

delete c:
LEVEL := 1:
read(file):
c

Восстановите значение по умолчанию LEVEL для дальнейших вычислений:

delete LEVEL

Пример 4

Чтобы задать кодирование, чтобы считать данные, используйте Encoding. Опция Encoding применяется только к текстовым файлам, которые открыты с помощью имени файла и не дескриптора файла. Откройте файл и напишите оператор "str = abcäöü" в кодировании "UTF-8":

fprint(Unquoted, Text, Encoding="UTF-8",
                       "read_test",
                       "str := \"abcäöü\"")

Задайте кодирование, чтобы считать файл. read возвращает правильный выходной параметр:

read("read_test",Encoding="UTF-8"):

"abcäöü"

Если вы не задаете кодирование, системное кодирование по умолчанию используется. Таким образом ваш вывод может отличаться от показанного затем. Символы, нераспознанные системным кодированием по умолчанию, заменяются символом замены по умолчанию для того кодирования:

read("read_test"):

"abc������"

Возвращаемые значения

Возвращаемое значение последнего оператора файла.