append memo 命令示例

在下面的示例中,先将备注字段 notes 的内容复制到文件 test.txt 中,然后将 test.txt 的内容追加到备注字段,最后用 test.txt 的内容改写备注字段中的内容。

close databases
open database (home( ) + 'samples\data\testdata')
use employee && 打开 employee 表
wait window 'employee notes memo field - press esc' nowait
modify memo notes noedit && 打开 notes 备注字段
copy memo notes to test.txt && 由备注字段建立 test 文件
wait window 'test.txt text file - press esc' nowait
modify file test.txt noedit && 打开文本文件
wait window 'employee notes now appended - press esc' nowait
append memo notes from test.txt && 添加文本文件的内容
modify memo notes noedit && 再次显示备注字段
wait window 'overwrite employee notes- press esc' nowait

append memo notes from test.txt overwrite && 代替 notes
modify memo notes noedit nowait
delete file test.txt