VF程序设计基础.ppt
第2章 Visual FoxPro 程序设计基础,程序设计基础,常量与变量,表达式,1、常量,数值型货币型：前置的$字符型：定界符有3种：单撇号、双撇号和方括号日期型：一对花括号 日期时间型逻辑型：只有“真”和“假”,字段变量内存变量,简单内存变量,数组,内存变量常用命令：赋值、显示、清除,类型,2、变量,数值表达式字符表达式日期和时间表达式：6种格式运算关系表达式逻辑表达式,函数,2.3 常用函数 为了增强系统的功能和方便用户使用，VFP提供了很多内部函数，每个函数实现某项功能或完成某种运算。函数调用形式函数名（参数表）,常用函数类型,数值运算函数字符处理函数日期时间函数测试函数数据类型转换函数,2.3.1数值运算函数1.求绝对值函数 格式：ABS()SIGN()功能：ABS（）求数值型表达式的绝对值 SIGN（）返回数值表达式的符号，结果为正、负和零时，函数值为1、-1、0,例：store 10 to x?ABS(5-x),ABS(x-5),SIGN(5-X),SIGN(x-5)结果：5 5-1 1,例：store 100 to x?SQRT(x)结果：10,2.求平方根函数 格式：SQRT()功能：求数值型表达式的算术平方根 注：数值型表达式不能为负数,3.函数 格式：PI()功能：返回圆周率的近似值,4.求整函数 格式：INT()功能：INT()返回数值型表达式的整数部分,例：x=123.72?INT(x)结果：123,例：?ROUND(3.1415*3,2),ROUND(156.78,-1)结果：9.42 160,5.四舍五入函数 格式：ROUND(,)功能：对求值，并保留位小数若数值表达式2大于等于0，表示要保留的小数位数；若数值表达式2小于0，则的整数部分从小数点向左的第N位四舍五入。,6.求余函数格式：MOD,功能：求除以的余数余数的正负和除数相同；如果被除数和除数同号，函数值为两数相除的余数；异号则为相除的余数再加上除数的值。,例：?MOD(25,7),MOD(25,-7),MOD(-25,7),MOD(-25,-7)结果：4-3 3-4,2.3.2字符处理函数1.求字符串长度函数 格式：LEN(字符型表达式)功能：求字符串的长度，即所包含的字符个数。若是空串，则长度为0。函数值为数值型。,例：x=中文 Visual FoxPro6.0?len(x),2.大小写字母转函数,格式：LOWER()UPPER()功能：LOWER将字符串中的大写字母转换成小写。UPPER将字符串中的小写字母转换成大写。例：yn=y?UPPER(yn),LOWER(YES)输出的函数值为：Y、yes。,3.空格字符串生成函数,格式：SPACE()功能：生成若干个空格，空格的个数由数值型表达式的值决定。例：name=SPACE(8)?LEN(name)输出的函数值为8。,例:命令？LEN（SPACE（3）-SPACE（2）的结果是().A1B2C3D5,5,4.删除字符串前后空格函数格式：LTRIM()TRIM()ALLTRIM()功能：LTRIM删除字符串的前导空格。TRIM删除字符串的尾部空格。ALLTRIM删除字符串中的前导和尾部空格。ALLTRIM函数兼有LTRIM和TRIM函数的功能。,S1=“test?trim(s1),LTRIM(s1),AllTRIM(s1)?len(s1),len(trim(s1),len(LTRIM(s1),len(AllTRIM(s1),5.取子串函数格式：LEFT(,)RIGHT(字符型表达式,SUBSTR(,功能：LEFT函数从字符型表达式左边取一个指定长度的子串作为函数值;RIGHT函数从字符型表达式右边取一个指定长度的子串作为函数值;SUBSTR函数从指定表达式值的指定起始位置取指定长度的子串作为函数值。若缺省第三个自变量，则函数从指定位置一直取到最后一个字符。,例1：store good bye!to x?left(x,2)?substr(x,6,2)?substr(x,6,2)+substr(x,6)?right(x,3)例2：xm=李小四?SUBSTR(xm,1,2),LEFT(xm,2),6.求子串位置函数格式：AT(,数值表达式)功能：若的值存在于的值中，则给出在中的开始位置，若不存在，则函数值为0。函数值为数值型。表示要在值中搜索的第几次出现，默认为。区别：AT函数区分字母大小写,例：x=This is Visual FoxPro6.0“?AT(fox,x),AT(is,x,3),例:AT(”EN”，RIGHT(“STUDENT”，4)的执行结果是_,2,7.字符串替换函数,格式：STUFF(，)功能：用去替换中由起始位置开始所指定的若干个字符。如果字符型表达式2的值是空串，则字符型表达式1中由起始位置开始所指定的若干个字符被删除。如果为0，则相当于在中由指定的字符前面插入。,例：STORE 中国 长沙 TO x?STUFF(x,6,4,北京)输出为：中国 北京。,例:下列程序段执行后，内存变量s1的值是：s1=networks1=stuff(s1,4,4,BIOS)AnetworkBnetBIOSCnetDBIOS,2.3.3 日期时间函数1.系统日期和时间函数 格式：DATE()TIME()DATETIME()功能：返回当前系统的日期、时间和日期时间例：?DATE(),TIME(),DATETIME(),2.年份、月份和天数函数 格式：YEAR()MONTH()DAY()功能：求给定日期的年份、月份、和天数，结果为数值型,例：d=2005-08-16?YEAR(d),month(d),day(d)结果：2005 8 16,3.时、分和秒函数格式：HOUR()MINUTE()SEC()功能：返回给定时间的时（24小时制）、分、秒，结果为数值型,例：d=2005-08-16,5:43:56 p?HOUR(d),minute(d),sec(d)结果：17 43 56,2.3.4 测试函数1.值域测试函数格式：BETWEEN(,)功能：判断表达式的值是否介于相同数据类型的两个表达式值之间。BETWEEN()首先计算表达式的值。如果一个字符、数值、日期、表达式的值介于两个相同类型表达式的值之间，即被测表达式的值大于或等于下限表达式的值，小于或者等于上限表达式的值，BETWEEN()将返回一个真.T.值，否则返回.F.。,例：gz=375?BETWEEN(gz,260,650)输出为.T.。,2、数据类型测试函数 格式：VARTYPE(,)功能：测试表达式的数据类型，返回用字母代表的数据类型。函数值为字符型。未定义或错误的表达式返回字母U。若表达式是一个数组，则根据第一个数组元素的类型返回字符串。,若表达式的运算结果是NULL值，则根据函数中逻辑表达式的值决定是否返回表达式的类型。具体规则是：如果逻辑表达式为.T.，则返回表达式的原数据类型。如果逻辑表达式为.F.或省略，则返回X，表明表达式的运算结果是NULL值。,例：a=DATE()a=NULL?VARTYPE(3.46),VARTYPE($385),VARTYPE(FoxPro),VARTYPE(a,.T.),VARTYPE(a)输出为：N Y C D X。,例:设 X=65，命令？VARTYPE（X）的输出是（）。ANBCCLD出错,C,3、条件函数IIF,格式：IIF(,)功能：若逻辑型表达式的值为.T.，函数值为的值，否则为的值。例：xb=女?IIF(xb=男,1,IIF(xb=女,2,3)输出为2。,2.3.5 数据类型转换函数1.将数值转换成字符串函数格式：STR(，)功能：将的值转换成字符串。由决定转换后字符串的总长度（=整数部分+小数位+小数点），由决定转换后小数部分的字符个数。函数返回值为字符型。若小于值的整数位数，则函数值为“*”组成的字符串；若省略，则默认小数位数为0；全省则整数位数默认为10。,x=1234.587?STR(x,10,2),STR(x,10,4),STR(x,7,2),STR(x,7),STR(x,3),STR(x)输出为：其中的代表空格。1234.591234.58701234.591235*1235,2.将字符串转换成数值函数 格式：VAL()功能：将由数字、正负号、小数点组成的字符串转换为数值（保留两位小数），转换遇上非上述字符停止。若串的第一个字符即非上述字符，函数值为0。前导空格不影响转换。,?VAl(14.365),val(APPLE567),val(12.56APPLE34)结果：14.37 0.00 12.56,3.将日期型转换成字符串函数格式：DTOC(,)功能：将的值转换为字符型，若无选项，则字符串的格式为月/日/年，否则，转换的格式为yyyymmdd格式。,?今天的日期是:+DTOC(DATE(),1)结果：今天的日期是20100318,4.将字符串转换成日期型 格式：CTOD()功能：CTOD函数将指定的字符串转换成日期型数据，字符型表达式中的日期部分格式要与系统设置的日期显示格式一致。,?ctod(09/27/2009)结果：09/27/09,小 结,数值运算函数ABS SIGN SQRT INT ROUND MOD字符处理函数 LEN LOWER UPPER SPACE LTRIM TRIM ALLTRIM LEFT RIGHT RIGHT AT STUFF日期时间函数测试函数 BETWEEN VARTYPE IIF数据类型转换函数 STR VAL CTOD DTOC,
