append from array示例

下面的示例将复制备注字段 notes的内容到名为test.txt 的文件中。 test.txt 则被追加到备注字段的内容中。最后， test.txt 的内容替换了备注字段的现有内容。

close databases

open database (home(2) + '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 && 打开 text文件

wait window 'employee notes now appended - press esc' nowait

append memo notes from test.txt  && 将text 文件的内容加入

modify memo notes noedit  && 再次显示备注字段

wait window 'overwrite employee notes- press esc' nowait