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

FILE/COPY,C1.INPUT,C2.INPUT,FAIL_IF_DEST_EXISTS

V2=FILE/EXISTS,C2.INPUT

IF/V2==0

COMMENT/OPER,"File doesn't exist at: " + C2.INPUT

,Copy ending.

PROGRAM/END

END_IF/

ELSE/

COMMENT/OPER,File copy successful.

PROGRAM/END

END_ELSE/

END_IF/

COMMENT/OPER,File to copy doesn't exist.

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

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

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

C1=COMMENT/INPUT Эта строка берет полный путь копируемого файла и помещает его в переменную C1.INPUT.

C2=COMMENT/INPUT Эта строка берет полный путь файла результата и помещает его в переменную C2.INPUT.

FILE/COPY,C1.INPUT,C2.INPUT,FAIL_IF_DEST_EXISTS Эта строка копирует оригинальный файл в файл результата. Эта команда имеет три параметра.

·  Параметр – C1.INPUT. Это полный путь копируемого файла.

·  Параметр 2 – C2.INPUT, или полный путь файла результата.

·  Параметр 3, в этом случае, прерывает процедуру FILE/COPY, если оказывается, что имеется файл с тем же называнием в той же папке. Вы можете настроить этот параметр так, чтобы выполнялась перезапись файла с тем же самым именем.

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

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

File/Move,<oldfilename>,<newfilename>

<oldfilename> / <старое имя файла>	Это положение и имя файла
<newfilename> / <новое имя файла>	Это новое положение и имя файла

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

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

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

3.  Нажмите F9.

Пример кода для File Move

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

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

,(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 move. File move commencing.

FILE/MOVE,C1.INPUT,C2.INPUT

V2=FILE/EXISTS,C2.INPUT

IF/V2==0

COMMENT/OPER,"File doesn't exist at: " + C2.INPUT

,The MOVE didn't function properly.

PROGRAM/END

END_IF/

ELSE/

COMMENT/OPER,File MOVE successful.

PROGRAM/END

END_ELSE/

END_IF/

COMMENT/OPER,Original file doesn't exist. Try again.

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

Многое в этом коде похоже на код, описанный в разделах "Пример кода для File".

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

FILE/MOVE,C1.INPUT,C2.INPUT Эта строка копирует оригинальный файл в файл результата. Команда имеет два параметра.

·  Параметр 1 – C1.INPUT. Это полный путь к перемещаемому файлу.

·  Параметр 2 – C2.INPUT, или полный путь к файлу результата.

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

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

File/Delete,<filename>

<filename> / <имя файла>

Это имя удаляемого файла.

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

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

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

3.  Нажмите F9.

Пример кода для File Delete (удаление файла)

Следующий код запрашивает имя файла и затем удаляет этот файл.

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

,(Include full file path)

V1=FILE/EXISTS,C1.INPUT

IF/V1<>0

COMMENT/OPER,File exists. Ready to delete.

FILE/DELETE,C1.INPUT

V2=FILE/EXISTS,

IF/V2==0

COMMENT/OPER,File deleted successfully

PROGRAM/END

END_IF/

ELSE/

COMMENT/OPER,File still exists

PROGRAM/END

END_ELSE/

END_IF/

COMMENT/OPER,File doesn't exist to delete. Choose a file that exists.