APPEND MEMO 命令

将文本文件的内容复制到备注字段中。
APPEND MEMO MemoFieldName FROM FileName[OVERWRITE] [AS nCodePage]
参数
MemoFieldName
指定备注字段名，文件内容将追加到此备注字段中。

FROM FileName
指定文本文件，其内容将复制到备注字段中。此参数必须包含完整的文本文件名，包括扩展名。

OVERWRITE
用文件的内容替换备注字段当前的内容。

AS nCodePage
指定复制到备注字段中的文本文件的代码页。Visual FoxPro 复制文本文件的内容，并在将数据复制到备注字段的过程中，自动将数据从指定代码页转换成备注字段所在表的代码页。如果包含备注段的表没有使用代码页标记，Visual FoxPro 自动将数据从指定代码页转换到当前 Visual FoxPro 代码页。

如果指定的 nCodePage 值无效，Visual FoxPro 将产生一条错误信息。您可以使用 GETCP() 函数显示“代码页”对话框，并从中指定要追加的表或文件的代码页。
如果忽略 AS nCodePage 子句，或者指定 nCodePage 值为零，将不转换文本文件的代码页。

备注
如果忽略参数 OVERWRITE，文本文件的全部内容将追加到当前记录的指定备注字段中。

示例
在下面的示例中，先将备注字段 notes 的内容复制到文件 test.txt 中，然后将 test.txt 的内容追加到备注字段，最后用 test.txt 的内容改写备注字段中的内容。
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE employee                     && 打开 Employee 表
WAIT WINDOW 'Employee notes 备注字段 - 按 ESC' NOWAIT
MODIFY MEMO notes NOEDIT         && 打开 notes 备注字段
COPY MEMO notes TO test.txt      && 从备注字段创建测试文件
WAIT WINDOW 'TEST.TXT 文本文件 - 按 ESC' NOWAIT
MODIFY FILE test.txt NOEDIT      && 打开文本文件
WAIT WINDOW 'Employee notes 现在添加了 - 按 ESC' NOWAIT
APPEND MEMO notes FROM test.txt  && 添加文本文件内容
MODIFY MEMO notes NOEDIT         && 再次显示备注字段
WAIT WINDOW '复盖 Employee notes- 按 ESC' NOWAIT
APPEND MEMO notes FROM test.txt OVERWRITE  && 替换
MODIFY MEMO notes NOEDIT NOWAIT
DELETE FILE test.txt

评论