FOXPRO中常用命令与函数

考纲所列在FOXPRO程序中经常使用的命令（乐老师整理）CLOSE ALL功能：关闭所有文件，选择1号工作区为当前工作区。<内存变量名>＝<表达式>功能：将表达式的值赋给指定的内存变量。若该内存变量不存在，则自动创建。SELECT O功能：选择当前未使用的最低编号的工作区为当前工作区。SELECT <数据表名>功能：当指定的数据表已在某工作区打开后，指定该数据表所在的工作区为当前工作区。USE <数据表名>功能：在当前工作区中打开指定的数据表，将记录指针指向首记录；若该数据表有对应的结构复合索引文件，则自动打开它。COPY STRU TO <新数据表文件名> [FIELDS <字段名表>]功能：把当前表的结构复制到新表，记录不复制；<字段名表>指定了新表的字段，其中可含其它工区中表的字段；若不写FIELDS <字段名表>，则把当前表的全部字段复制到新表。1D2.DBFD3.DBF，结构与D2D1D2D3个表文件.CLOSEUSECOPYSELEALLD2STRUOTOD3&&1&&打开数据表D2&&将表D2的结构复制到表D3&&选择一个未使用的工作区为当前工作区USED1SELEOUSED3INDEX ON <关健表达式> TAG <索引标识符> [DESCENDING]功能：对当前表按<关健表达式>建立结构复合索引。结构复合索引文件的主名与表名相同，扩展名默认为DESCENDINGDESCENDINGSET ORDER TO TAG <主索引标识符>功能：在结构复合索引文件打开后，指定主索引。在列数据表记录时，Foxpro录。即使结构复合索引文件只含一个索引，也必须用该命令来指定主索引。例2 数据表D1.DBF包括两个字段：SPDM(商品代码)和KCL(库存量)。D1排，然后将商品代码设为主索引。USE D1INDE ON SPDM TAG SPDM &&生成结构复合索引文件D1.CDX，其中包括索引INDE ON KCL TAG KCL DESC &&在D1.CDX中添加索引KCLSET ORDER TO TAG SPDM &&SPDMGO<记录号>功能：将记录指针移到指定的记录。GO BOTTOM/TOPTOP录或首记录。SKIP [<数值表达式>]功能：以当前记录为起点，将记录指针向表尾方向(若数值表达式的值为正)或向表首方向(若数值表达式的值为负)移动指定的记录数；若无<数值表达式>，表示指针向表尾方向移一条记录。 LOCATE [<范围>] FOR <条件[CONTINUE]FOUND(FOUND(.F.ALL。CONTINUELOCATEINSERT [BEFORE] BLANKBEFOREBEFORE入。例3在D1.DBF中商品代码为“008”的记录前插入一条空白记录。USE D1LOCA FOR SPDM＝"008" &&SPDM“008”1INSE BEFO BLAN &&在当前记录前插入一条空白记录APPEND BLANK功能：在当前表的尾部追加一条空白记录REPLACE[<范围>]<字段名1> WITH <表达式1>[，<字段名WITH <表达式2>„„] [FOR <条件>]功能：对指定范围内满足条件的记录，用表达式的值替换字段原来的值。若无FOR<条件>，范围缺省指FOR<条件>，范围缺省为ALLFoxproREPL<内存变量>＝<表达式>。例4.在D1.DBF的尾部添加一条记录，将首记录的商品代码存入新记录的商品代码字段。USE D1 &&D1，记录指针指向首记录MSPDM＝SPDM &&将首记录的商品代码存入内存变量MSPDMAPPE BLANK &&D1表末尾添加一条空白记录，记录指针指向该空白记录REPL SPDM WITH MSPDM &&SPDMMSPDMDELETE [<范围>] [FOR <条件>]功能：对指定范围内满足条件的记录标上删除标记。若无FOR<条件>，范围缺省指当前记录，若有FOR<条件>，范围缺省为ALL。RECALL [<范围>] [FOR <条件>]功能：对指定范围内满足条件的记录撤消删除标记。若无FOR<条件>，范围缺省指当前记录，若有FOR<条件>，范围缺省为ALL。PACK功能：物理删除所有带删除标记的记录。例5.在D1中，把所有库存量为0的前一个记录永久删除掉(假定第1个记录的库存量不会是CLOSE ALLUSE D1DO WHILE NOT EOF() &&进入循环条件是记录指针未指到数据表末尾IF KCL＝O &&KCL0SKIP -1 &&则：(1)将记录指针移到前一条记DELE && (2)标上删除标记SKIP && (3KCL0ENDIFSKIPENDDOPACK &&物理删除所有带删除标记的记录COUNT [<范围>] TO <内存变量> [FOR <条件>]功能：统计当前表中指定范围内满足条件的记录个数，<范围>缺省为ALL，计数结果赋给指定的内存变量例6.将D1.DBF中库存量大于800的商品数赋给变量MSPSUSE D1COUNT TO MSPS FOR KCL＞800SUM [<范围>] <数值表达式表>TO<内存变量表> [FOR<条件>]功能：在当前表中对<数值表达式表>中的各数值表达式累加求和，这里的数值表达式可以是数值型字段，也可以是包含数值型字段的表达式，求和的结果依次赋给指定的各内存变量。范围缺省为ALL。例7.将D1.DBF中库存总数量赋给变量MKCZLUSE D1SUM KCL TO MKCZLAVERAGE [<范围>]<数值表达式表>TO<内存变量表>[FOR<条件>]功能：在当前表中对<数值表达式表>中的各数值表达式求平均值，这里的数值表达式可以是数值型字段，也可以是包含数值型字段的表达式，求得的平均值依次赋给指定的各内存变量。范围缺省为ALL。考纲所列的函数和运算符ABS(数值表达式)作用：返回所指定数值表达式值的绝对值。INT(数值表达式）作用：返回所指定数值表达式值的整数部分例：？INT（ABS（-3.9）显示结果33．ROUND（1,作用：对数值表达式的值进行四舍五入，数值表达式2的值为保留的小数位数例：？ROUND（1.865,2）显示结果1.87?ROUND(78.48，0)显示结果78?ROUND(45.67,-1)显示结果50 (对个位四舍五入，保留到十位4．SQRT（数值表达式）作用：返回所指定数值表达式值的算术平方根例：？SQRT（49）显示结果7MOD（1，2）1222例：？MOD（15，6）显示结果3？MOD（16，-5）显示结果–4 (16/-5有两个解，第一个解是：商-4，余数-4；第二个解是：商-3，余为1，根据上述定义，应取第一个解。)VAL（字串表达式）例：X=’100’Y=’200’?VAL(X)+VAL(Y)显示结果300？X+Y显示结果1002007．ALLTRIM（字串表达式）作用：返回删除左空格和右空格的字串LTRIM（字串表达式）作用：返回删除左空格的字串RTRIM（字串表达式）作用：返回删除右空格的字串X=“□□□□AB□CD□□”？ALLT（X）显示结果：AB□CD？LTRIM（X）显示结果：AB□CD□□？RTRIM（X）显示结果：□□□□AB□CD10．UPPER（字串表达式）作用：返回由大写字母组成的字串LOWER（字串表达式）作用：返回由小写字母组成的字串STR（1，2，3）123为保留的小数位数。例：PI=3.1415929?STR(PI,5,3)显示结果3.142 (对第4位小数四舍五入)13．SUBSTR（字串表达式，数值表达式1，数值表达式作用：返回所指定字串中的子串，该子串在原字串中的起始位置由数值表达式1的值决定，子串的长度由数值表达式2的值决定。例：？SUBS“COMPUTER显示结果：MPUTNAME=“王志平”？SUBS（NAME，1，2）显示结果：王{date}作用：定义一个日期型常量，考核环境下采用年/月/日结构，即{YY/MM/DD}或{YYYY/MM/DD}。DTOC（日期表达式）作用：将所指定的日期表达式的值转换成字符串返回，格式为“YY/MM/DD例：？DTOC（{1999/08/07}）显示结果：99-08-07DTOS（日期表达式）作用：将所指定的日期表达式的值转换成字符串返回，格式为“YYYYMMDD？DTOS（{2000/08/07}）显示结果：2000080717．DATE（）作用：返回当前系统日期（日期型数据YY-MM-DD1（99624）？DTOS（DATE（）显示结果2：？SUBS（DTOC（{99/06/24}，4，2）显示结果：063（200087）？DATE（）显示结果：00-08-07？DTOS（DATE（）显示结果：CTOD（字串表达式）例：？CTOD“99/06/21）显示结果：99/06/211>$2>作用：$为运算符，若字串1是字串2的子串，则运算结果为.T.，否则运算结果为.F.例：？‘ABC’$ ‘123ABCXYZ’显示结果：.T.?‘ABC’$‘abcA 显示结果：.F.AT（<1>，<2>）12（数值0例：？AT（’CD’,’ABCDEF’）显示结果：3？AT（’cd’,‘ABCDEF’）显示结果：021．FOUND（）作用：在记录定位时若找到满足条件的记录，则FOUND（）的值为.T.，若没找到，则FOUND（）的值为.F.。EOF（）作用：在记录指针指到库文件的末尾（即最后一条记录的下一条假想的记录EOF（）的值