Копирует содержимое текстового файла в 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