TEXT ... E N D T E X T 命 令

输出文本行 表达式和函数的结果与变量的内容

语 法

TEXT

TextLines

ENDTEXT

TextLines

指 定 传 送 到 当 前 输 出 设 备 的 文 本 TextLines 可 由 文 本 变 量 数 组 元 素表 达 式 函 数 或 它 们 的 任 意 组 合 构 成

只有在 SET TEXTMERGE 为 ON 并且被 SET TEXTMERGE DELIMITERS 指定的分

隔符包围时 TextLines 指定的表达式 函 数 变量和数组元素才能进行计算 如果SET TEXTMERGE 为 OFF 表达式 函数 变量和数组元素输出为与分隔符一起的原义字符

例如 SET TEXTMERGE 为 ON 并且文本行包含 <<DATE >> 时 输出今天的日期 如果 SET TEXTMERGE 为 OFF <<DATE >> 会原义输出

如果在 TEXT 和 ENDTEXT 中或者在 \ 或 \\ 后加上注释 则注释也被输出

说 明

结构化的程序命令将 TEXT 和 ENDTEXT 之间的文本行传送到 Visual FoxPro 主窗口 用户自定义窗口 打印机 文本文件或低级文件

TEXT 传送文本行到当前输出设备中 这个过程将一直继续下去 直到 ENDTEXT 语句或程序结束

默认情况下 , TEX T… ENDTEXT 的输出将传送到 Visual FoxPro 主窗口 或活动窗口中SET CONSOLE OFF 命令可以禁止输出到 Visual FoxPro 主窗口 或活动窗口 用 SET PRINTER 可将输出传送到打印机或文本文件中

TEX T… ENDTEXT 的输出也可以传送到用 FCREATE FOPEN 创建或打开的低级文件中 如 果 将 FCREATE 或 FOPEN 返回的文件句柄保存到 _TEXT 系统变量中 输出会直接传到相应的低级文件

下面的示例演示了如何使用 SET TEXTMERGE SET TEXTMERGE DELIMITERS

TEXT ... ENDTEXT, 和 the _TEXT 系统变量

创建低级文件 Names.txt 并在系统变量 _TEXT 中保存它的文件句柄 如果不能创建

Names.txt 则退出程序 打 开 customer 表 前 个合同的名称输出到 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 2

• '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

请 参 阅

FOPEN , _PRETEXT , SET TEXTMERGE , SET TEXTMERGE DELIMITERS , _TEXT