设备第八讲.ppt

1 函数 第八讲 2 本课要点 1 数字运算的函数2 字符串处理函数3 数据类型转换函数4 日期函数5 其他函数6 VBScript过程7 随机数 3 函数 函数 即系统已编好的可以完成一定功能的程序 在使用时可以看成是一个运算式 4 数字运算的函数 Abs取数字绝对值如 abs 8 12 8 12问题 用abs函数计算两点间的距离 a 9 3 b 39 2 解 abs a b abs b a 48 52 Sqr数学平方根传入的数不能小于零 否则报错 5 Round对数值做四舍五入 还可以决定要四舍五入到小数第几位如 round 100 2 100round 3 14159 2 3 144 Log计算以e 2 7182818284 为底的对数值 输入的参数值一定要大于零 输出的值是一个双精度的数值如 log 2 0 693147180559945此函数主要用于转换计算lognx的值Lognx log x log n 即转换为以n为底的lognx计算 6 Exp计算e 2 7182818284 的幂次方 结果为一个双精度的数据类型如 exp 1 2 718281845905exp 1 0 3678794411714426 三角函数输入参数必须是弧度例 sin 3 14159 0 99999999999912cos 0 1角度转换为弧度 角度 180 弧度 7 字符串处理函数 Len计算一个字符串长度输入为字符串 输出的值为一个大于或等于 的整数如 len abc 3len VBScript范例 10注意 在vbscript中 中文或英文字母长度都是 8 Mid从一个字符串的某个字符开始 取出一个固定长度的字符串语法 mid 字符串 起始字符串 读取长度 起始字符 代表从输入字符串的第几个字符开始找起读取长度 从起始字符开始 共取出多少个字符如 Mid vbscript 1 1 v Mid vbscript 3 script 没有读取长度 则从起始字符开始算 直到字符串结束为止Mid ntserver 4 25 server 当读取长度大于起始字符到字符串结束的字符个数时 则读取到字符串结束Mid castle 7 1 起始字符大于输入字符串的时候 输出就会是一个空字符串 9 Left从字符串的最左边开始截取字符串语法 left 字符串 读取长度 如 left 123456 1234 left vbscript 11 vbscript 读取长度大于字符串的长度时 输出值就是整个字符串 10 Right从一个字符串的右边开始截取字符串如 right castle 4 stle right vbscript 100 vbscript 5 Lcase把字符串中的大写字母全部变成小写如 lcase vbscript vbscript 对英文字母以外的其它字符没有影响 11 Ucase把字符串中的英文字母全部变大写如 ucase VBScript VBSCRIPT 以上两个函数主要用在同样的字符 不同写法的时候 12 Trim去除字符串的前后空格ltrim去除字符串左边的所有空格rtrim去除字符串右边的所有空格如 ltrim vbscript vbscript rtrim vbscript vbscirpt trim vbscript vbscript 13 8 Replace把字符串中的某一部分子字符串用另一个子字符串替代语法 replace 字符串 搜寻字符串 替代字符串 起始字符 替代次数 比较方法 替代次数 指字符串中 搜寻字符串 出现多次时 要替换几次 预设值是不限次数 取代所有符合的子字符串比较方法 代表大小写要完全相符 代表不区分大小写预设值为 如 replace ABCabcabc a d ABCdbcdbc replace ABCabcabc a d 5 bcdbc 起始字符 代表要从字符串的第几个字符开始搜寻并进行取代子字符串的动作 在此之前的所有字符都被舍去Replace ABCabcabc a d 1 3 1 dBCdbcdbc 14 9 Instr用于判断一个字符串是否存在于另一个字符串当中Instr 起始字符 字符串 子字符串 起始字符 代表从字符串的第几个字符串开始进行比较如 instr ABCabc d 0instr ABCabc bc 5输入两个非必填的参数时 一定要两个同时都填写才行 15 10 Space产生由空格组成的字符串如 space 3 space 11 String可以输入一个由某一个字符重复N次的字符串如 string 3 12 Strreverse输入的字符串反序显示 然后再输出如 strreverse vbscript tpircsbv 16 13 Split按指定字符将字符串分割为数组语法 split 字符串 分割符 次数 比较方法 分割符 用于分割字符串的字符 如果省略 则返回单元素的数组次数 被返回的子字符串的数目 1返回所有的字符串比较方法 在计算时使用的比较类型 0执行二进制比较1执行文本比较2执行其于数据库中包含的信息的比较如 c apple bear car dog egg b split c 17 14 ubound函数Ubound返回指定数组维数的最大可用下标Ubound 数组名 维数 维数 表示返回哪一维上界的整数15 Join函数将数组的各元素连接成一个字符串语法 join 数组名 分隔符 分隔符用于分隔子字符串的字符如 a array 0 1 2 3 h join a 见 array asp 18 数据类型转换函数 1 Cint功能 把不同的数据类型转换成整数1 字符串如 cint 123 123不能包括字母否则报错cint 625 625能包括负号或空格cint 0字符串为空时 输出结果为02 布尔函数cint true 1cint false 03 浮点数cint 8 5 8cint 9 5 10cint 646 56465465 6474 日期输出将以公元1899 12 30定为第一天 开始算输入日期与它相差的天数如 cint 1900 1 1 2cint 1823 4 5 28028它们的天数差不能超过32767 32768 否则报错 因为整数范围就这么大 19 5 时间输出值就两个0或1 0代表上午 1代表下午如 cint 11 59 59 0cint 12 00 01 1注意 输入包括日期和时间 则只处理日期 20 2 Clng功能和上面函数差不多 但区别是转为长整数 解决了cint在日期转换上的问题如 clng 2000 3 16 36601 21 3 Cstr功能 把其他的数据类型的数值转换为字符串如 cstr 44 33 44 33 cstr true true 日期 cstr june251999 199 6 25 不管那种输入方式 输出的值都用yyyy mm dd的方式来表示时间 cstr 5 3 33 AM05 03 33 都按照先输出AM PM 接着是时间cstr 21 01 PM10 01 00 没有输入秒 输出就会是00秒没有输入分 输出就会是00分 22 4 Cbool将数值或运算式的结果转成布尔型如 1 数字只有在数值等于0的时候才输出falsecbool 312 13 truecbool 0 false2 字符串一般不可以转 但如果符合cint函数的转换规则 则可以cbool 0 0 falsecbool abc 发生执行阶段的错误3 日期时间同上 好像经过一个cint函数转换cbool 1899 12 30 falsecbool 0 00 00 falsecbool 1987 10 13 true 23 5 Cdate将不同类型的数据转换成日期时间1 整数除了0输出时间 其他情况都输出格式为yyyy mm dd的日期如 cdate 0 00 00 00 cdate 1 1899 12 29 2 浮点数转换为两部分整数为日期 小数为时间如 1 11代表1899 12 31这天0 1代表一天中1440分钟的十分之一144分钟 2 24分即 cdate 1 1 1899 12 3102 24 00 3 字符串字符串符合日期及时间的输入格式 就可以完整转为日期的数据类型如 cdate true 1899 12 29 因为true代表 1 所以输出1899 12 29cdate false 00 00 00 false代表0 所以输出00 00 00 24 复习 1 求log59 写出ASP的格式Log 9 log 5 2 写出角度转弧度的公式角度转换为弧度 角度 180 弧度3 在字符串内查找 新华 字符 字符串可以用变量代替Instr a 新华 4 round 5 787123 3 所求结果是什么5 7875 将字符串里所有的 坏 字转换为 好 字Replace a 坏 好 6 将日期转为整数 以那一天为界1899 12 307 有字符串 红 绿 蓝 黄 将其分割成数组8 写一个函数模仿Strreverse的功能 25 6 Vartype返回指示变量子类型的值语法 VarType 变量名 返回值VarType函数返回下列值 vbEmpty0Empty 未初始化 vbNull1Null 无有效数据 vbInteger2整数vbLong3长整数vbSingle4单精度浮点数vbDouble5双精度浮点数vbCurrency6货币vbDate7日期vbString8字符串vbObject9Automation对象vbError10错误vbBoolean11BooleanvbVariant12Variant 只和变量数组一起使用 vbDataObject13数据访问对象vbByte17字节vbArray8192数组 26 7 TypeName返回一个字符串 提供有关变量的Variant子类型信息语法 TypeName 变量名 返回值TypeName函数返回值如下 Byte字节值Integer整型值Long长整型值Single单精度浮点值Double双精度浮点值Currency货币值Decimal十进制值Date日期或时间值String字符串值BooleanBoolean值 True或FalseEmpty未初始化Null无有效数据实际对象类型名Object一般对象Unknown未知对象类型Nothing还未引用对象实例的对象变量Error错误 27 日期函数 参见书上57页 28 其他函数1 Array用于将数据存放到数组中如 dimaa array 10 20 30 注意 采用此方法可以不用预留空间 到用的时候才赋值 数组的索引是从0开始 29 Asc把输入字符串中的第一个字符的ASCII码值输出如 asc A 653 Chr输入ASCII码 输出字符串如 chr 65 A 30 VBScript过程 在VBScript中 过程被分为两类 sub过程和function过程 1 Sub过程Sub过程就是一段独立的程序码 在被调用的时候才执行 没以返回值2 语法 Sub子程序名 参数1 参数2 程序块Endsub3 调用子程序的方法1 使用call子程序后的参数必须带括号2 不使用call子程序后的参数不必带括号 31 自定义函数1 同子程序类似 但函数可以通过函数名返回一个值2 语法 Function函数名 参数1 参数2 程序块函数名 返回值Endfunction3 调用函数的方法1 使用call 则不显示返回值2 不使用call 则显示返回值注意 因为函数有返回值 则可以将自定义函数放在算术公式内参加运算 32 随机数 Rnd number number参数可以是任意有效的数值表达式 说明Rnd函数返