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，文本檔案的全部內容將追加到當前記錄的指定備註欄位中。
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
