Интерактивное графическое программное обеспечение PC-DMIS (Глава 25: Использование ввода/вывода файла), страница 8

C1=COMMENT/INPUT,Type the label of the feature.

,to use.

C2=COMMENT/INPUT,Type the name of the file to write

,to (include the complete path).

FPTR=FILE/OPEN,C2.INPUT,APPEND

ASSIGN/FEATNAME = C1.INPUT

ASSIGN/ALLVALS = FEATNAME.X + "," + FEATNAME.Y + "," + FEATNAME.Z

COMMENT/OPER,"Text to write is: " + ALLVALS

FILE/WRITELINE,FPTR,ALLVALS

FILE/CLOSE,FPTR

Пояснение кода

Некоторые части этого кода похожи на описанные в "Примере кода для Read Character" или в "Примере кода для Read Line".

Здесь приводятся пояснения кода, встречающегося только в этом примере.

FPTR=FILE/OPEN,C2.INPUT,APPEND Эта строка открывает файл, указанный в комментарии C2, для добавления, и присваивает его указателю файла FTPR. Если в место этого, вы измените APPEND (присоединить) на WRITE (записать),  то существующее содержимое файла данных будет переписано.

ASSIGN/FEATNAME = C1.INPUT Эта строка присваивает последовательность символов метки геометрического элемента из C1.INPUT определяемой пользователем переменной, FEATNAME.

ASSIGN/ALLVALS=FEATNAME.X+","+FEATNAME.Y+","+ FEATNAME.Z Эта строка придает определяемой пользователем переменной ALLVALS значение FEATNAME.X,FEATNAME.Y,FEATNAME.Z, другими словами, теперь она содержит значения X, Y и Z метки геометрического элемента, введенной во входной комментарий C1.

FILE/WRITELINE,FPTR,ALLVALS Эта строка записывает значения, содержащиеся в ALLVALS, в файл, указанный указателем файла FTPR.

Пункт меню Utilities | File I / O | Writing Commands | Write Block (утилиты | ввод/вывод файла | команды записи | запись блока) вставляет в окно Edit команду, которая при выполнении выводит блок текста в файл на диске. Используйте синтаксис выражения для вывода переменных и информации программы детали в файл. В отличие от команды Write Line, команда Write Block не добавляет символ возврата каретки в конце.

Синтаксис этой команды в окне Edit:

File/WriteBlock,<fptrname>,<expr>

<fptrname> / <имя указателя файла>	Это имя ссылки на файл, определенное при открытии файла.
<expr> / <выражение>	Это текст, записываемый в файл. В этом поле можно использовать выражения.

Для открытия диалогового окна, ассоциированного с этой командой ввода/вывода файла:

1.  Откройте окно Edit.

2.  Установите курсор на команду Write Block.

3.  Нажмите F9.

Пример кода для Write Block (запись блока)

Следующий код записывает то, что пользователь вводит во входной комментарий, добавляя двоеточие для использования в качестве разделителя.

C1=COMMENT/INPUT,Type any string. PC-DMIS will append a ,colon (for delimiter purposes) and write the string to ,a file of your choice

C2=COMMENT/INPUT,Type the name of the file to write

,to (include the complete path).

FPTR=FILE/OPEN,C2.INPUT,APPEND

ASSIGN/WRITETHIS = C1.INPUT + ":"

COMMENT/OPER,"Text to write is: " + WRITETHIS

FILE/WRITELINE,FPTR,WRITETHIS

FILE/CLOSE,FPTR

Пояснение кода

Некоторые части этого кода похожи на описанные в "Примере кода для Read Character" или в "Примере кода для Read Line".

Здесь приводятся пояснения кода, встречающегося только в этом примере.

FPTR=FILE/OPEN,C2.INPUT,APPEND Эта строка открывает файл, определенный в комментарии C2, для добавления и присваивает его указателю файла FTPR.

ASSIGN/WRITETHIS = C1.INPUT + ":" Эта строка добавляет двоеточие к тексту, содержащемуся в C1.INPUT и присваивает новую последовательность символов определяемой пользователем переменной, WRITETHIS.

FILE/WRITELINE,FPTR,WRITETHIS Эта строка записывает значения, содержащиеся в WRITETHIS, в файл, определенный указателем файла FTPR. Позднее вы можете считать текст из файла, используя двоеточие в качестве разделителя.

Пункт меню Utilities | File I / O | Position Commands | Rewind To Start (утилиты | ввод/вывод файла | команды положения | перемотать на начало) вставляет в окно Edit команду, которая устанавливает указатель файла на начало файла.