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

До тех пор, пока вы открываете тот же файл с одним и тем же именем указателя файла, в той же самой программе детали, вы можете вызывать сохраненное положение в пределах файла и продолжить чтение с того места, в котором вы его прекратили. Для продолжения этого примера, см. раздел "Пример кода для Recall File Position".

Вызов сохраненного положения указателя файла

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

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

File/RecallPosition, <fptrname>

<fptrname> / <имя указателя файла>

Это имя указателя файла, положение которого вызывается.

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

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

2.  Установите курсор на команду Recall File Position.

3.  Нажмите F9.

Пример кода для Recall File Position (вызов положения в пределах файла)

Этот пример открывает предварительно закрытый файл, использует прошлый указатель файла, и вызывает сохраненное положение сохраненного указателя файла. Затем от читает данные из этого положения. Этот код иллюстрирует использование команды FILE/RECALL_POSITION, и продолжает пример кода, приведенный в разделе "Пример кода для Save File Position".

COMMENT/OPER,The program will now recall the stored file position.

FPTR=FILE/OPEN,C1.INPUT,READ

FILE/REWIND,FPTR

COMMENT/OPER,To test, file has been rewound.

,The first line will be read in to test the rewind.

V3=FILE/READLINE,FPTR,{LINE}

COMMENT/OPER,The first line is:

,LINE

FILE/REWIND,FPTR

FILE/RECALL_POSITION,FPTR

COMMENT/OPER,Previously stored file position has been recalled.

,Data on the line at the stored position will now print.

V4=FILE/READLINE,FPTR,{STORED}

COMMENT/OPER,The text at the stored position is:

,STORED

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

Этот код похож на описанный в "Примере кода для Rewind to Start".

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

FILE/RECALL_POSITION,FPTR Эта строка вызывает сохраненное положение указателя файла для указателя, обозначенного как FPTR.

V4=FILE/READLINE,FPTR,{STORED} Эта строка считывает следующую строку после сохраненного положения указателя файла и присваивает ее определенной пользователем переменной STORED. Затем эта переменная печатается в следующем комментарии оператора.

Копирование файла

Пункт меню Utilities | FileI / O | FileCopy (утилиты | ввод/вывод файла | копирование файла) вставляет в окно Edit команду, которая при выполнении выполняет операцию копирования.

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

File/Copy,<srcfilename>,<destfilename>,<replacemode>

<srcfilename> / <имя исходного файла>

Это имя исходного файла (из которого выполняется копирование).

<destfilename> / <имя конечного файла>

Это имя файла результата (в который выполняется копирование).

<replacemode> / <режим замещения>

Это действие, выполняемое, если файл результата уже существует. Двумя режимами являются перезапись и неудача в случае, если файл результата уже существует.

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

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

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

3.  Нажмите F9.

Пример кода для File Copy (копирование файла)

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

C1=COMMENT/INPUT,Please type a file you want to copy.

,(Include full file path)

C2=COMMENT/INPUT,Please type a destination file name.

,(Include full file path)

V1=FILE/EXISTS,C1.INPUT

IF/V1<>0

COMMENT/OPER,File exists to copy. Copying commencing.