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

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

Параметры

MemoFieldName

Определяет имя memo-поля, в конец которого добавляется файл.
FROM FileName

Определяет текстовый файл, содержание которого копируется в memo-поле. Вы должны указать полное имя текстового файла, включая его расширение.
OVERWRITE

Заменяет текущее содержание memo-поля содержанием файла.
AS nCodePage

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

Замечания

Текстовый файл полностью добавляется в конец содержания указанного memo-поля текущей записи, если опущено overwrite.

Пример

В следующем примере, содержание memo-поля notes копируются в файл Test.txt. Затем Test.txt добавляется к содержанию memo-поля. Наконец, содержание Test.txt заменяет текущее содержание memo-поля.

Copy Code 
CLOSE DATABASES
OPEN DATABASE (HOME(2) + '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

See Also