TEXT ... ENDTEXT 命令示例

下面的示例演示了如何使用 SET TEXTMERGE，SET TEXTMERGE DELIMITERS，TEXT…END TEXT 和 _TEXT 系统内存变量。首先创建一个名为 NAMES.TXT 的低级文件，将其句柄存入 _TEXT 系统内存变量中。如果不能创建文件 NAMES.TXT，程序将退出。然后打开 customer 表，把最前面的 10 个客户名输出到 NAMES.TXT 文件中，文本和函数的结果也输出到文本文件中。用 MODIFY FILE 命令打开包含客户姓名的文本文件。

CLEAR
CLOSE DATABASES
SET TALK OFF
SET TEXTMERGE ON && 允许嵌入表达式和函数
STORE FCREATE('names.txt') TO _TEXT &&创建低级文件
IF _TEXT = -1 &&若不能创建低级文件，则退出程序
WAIT WINDOW 'Cannot create an output file; press a key to exit'
CANCEL
ENDIF

CLOSE DATABASES
OPEN DATABASE (HOME( ) + 'samples\data\testdata')
USE customer && 打开“Customer”表

TEXT
CONTACT NAMES
<<DATE( )>> <<TIME( )>>
ENDTEXT
WAIT WINDOW 'Press a key to generate the first ten names'
SCAN NEXT 10
TEXT
<<contact>>
ENDTEXT
ENDSCAN
CLOSE ALL && 关闭文本文件和表

MODIFY FILE names.txt
ERASE names.txt