Команда APPEND MEMO

Копирует содержимое текстового файла в memo-поле.

Синтаксис:

APPEND MEMO MemoFieldName FROM FileName
[OVERWRITE] [AS nCodePage]

Параметры:
MemoFieldName
Задает имя memo-поля, в которое добавляется данный файл.
FROM FileName
Задает текстовый файл, содержимое которого копируется в memo-поле. Необходимо указать имя файла полностью, вместе с расширением.
OVERWRITE
Замещает текущее содержимое memo-поля содержимым файла.
AS nCodePage
Задает кодовую страницу текстового файла, копируемого в memo-поле. Visual FoxPro в процессе копирования данных автоматически преобразует их из заданной кодовой страницы в кодовую страницу таблицы, содержащей memo-поле. Если таблица, содержащая memo-поле, не помечена кодовой страницей, Visual FoxPro автоматически преобразует данные из заданной кодовой страницы в текущую кодовую страницу Visual FoxPro.
Если заданная кодовая страница (аргумент nCodePage) не поддерживается, Visual FoxPro генерирует сообщение об ошибке. Выдав функцию GETCP() для кодовой страницы nCodePage, вы отобразите диалоговое окно Code Page, позволяющее задать кодовую страницу для присоединяемой таблицы или файла.
Если предложение AS nCodePage опущено или значение nCodePage равно 0, преобразование кодовой страницы для данного текстового файла не производится.

Комментарии:
Содержимое текстового файла добавляется целиком к содержимому заданного memo-поля в текущей записи, если перезапись опущена.

Пример:

* В следующем примере содержимое memo-поля notes копируется в файл
* TEST.TXT. Затем содержимое файла TEST.TXT присоединяется к
* содержимому memo-поля. Наконец, содержимое файла TEST.TXT
* замещает текущее содержимое memo-поля.
CLOSE DATABASES
OPEN DATABASE (HOME( ) + 'samples\data\testdata')
USE employee	&& Open Employee table
WAIT WINDOW 'Employee notes memo field - press ESC' NOWAIT
MODIFY MEMO notes NOEDIT	&& Open the notes memo field
COPY MEMO notes TO test.txt		&& Create test file from memo field
WAIT WINDOW 'TEST.TXT text file - press ESC' NOWAIT
MODIFY FILE test.txt NOEDIT		&& Open the text file
WAIT WINDOW 'Employee notes now appended - press ESC' NOWAIT
APPEND MEMO notes FROM test.txt	&& Add contents of text file
MODIFY MEMO notes NOEDIT	&& Display memo field again
WAIT WINDOW 'Overwrite Employee notes- press ESC' NOWAIT
APPEND MEMO notes FROM test.txt OVERWRITE	&& Replace notes
MODIFY MEMO notes NOEDIT NOWAIT
DELETE FILE test.txt

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.