QTP VBScript编程练习.pptx

QTP编程练习 1 请编写一个程序 要求输入一个字符串 默认输入为 hello world 然后打印显示此字符串 请注意要有必要的注释 1 函数InputBox 在对话框中显示提示 等待用户输入文本或单击按钮 并返回文本框内容 InputBox prompt title default xpos ypos helpfile context Input InputBox 输入一个字符串 hello world 2 输出print与MsgBox区别 Msgbox 是属于模式型窗口 暂停执行当前脚本 直到点击 确认 才能执行当前脚本 人必须确认 Print 是属于非模式窗口 打印的东西会输入到QTP自带的一个文本里 并可以清除ClearAll 当前脚本会执行直到完 也就是说人可以不管它 2 请编写一个程序 计算从1到10连加的和 并显示结果 应用一个For循环 PS Dima 11 网查骨灰级写法 Execute Join a s s i i i 1 MsgBox 1到10的连加和为 s Execute 函数 执行一个或多个指定的语句 Join 函数 返回一个字符串 此字符串由包含在数组中的许多子字符串联接创建 Scripting运行库的Count属性返回一个集合或Dictionary对象包含的项目数 只读 object Count例子 FunctionShowKeysDima d i s 创建一些变量 Setd CreateObject Scripting Dictionary d Add a Athens 添加一些键和项目 d Add b Belgrade d Add c Cairo a d Keys 获取键 Fori 0Tod Count 1 重复数组 s s a i 创建返回字符串 NextShowKeys sEndFunction 3 请先声明三个字符串变量 并分别赋值为 come on Olympic 然后打印显示 comeon Olympic 请注意在打印显示的时候一定要用到定义的变量 1 vbscript是弱变量类型语言 VBS对于类型要求不严格 就是任意类型的 不需要声明类型 dimstrstr 这样str就是字符串型了 2 常用函数Cstr expression 函数转化一个表达式为字符串 Conversion函数 3 字符串string的处理函数比如Trim 4 先声明一个一维动态数组 然后将其数组元素个数确定为10 并将整数1到10依次赋值个数组的各个元素 然后打印显示数组的第五个元素 应用一个常用数组函数Array arglist arglist或为参数 或为元素值 A Array 10 20 30 A 2 2 申明动态数组 数组随时可以变化如 a a 10 a 5 6 dim定义数组长度redim重新定义数组长度 会使原有的数据全部消失Preserve关键字用于指示在重定义时保持原来数组的值 如果不加 重定义后值没了 需要重新初始化 其它操作数组函数 Filter 数组名称 关键字符串 包含 比较方法 将字符串数组中含有关键字符串的元素存成新的数组 默认 包含 为false则取不包含的元素Join ArrayName 将数组中元素连成字符串 返回字符串值元素由指定的分隔符分隔开来 Ubound ArrayName 维数 取得数组相应维数的上界Lbound ArrayName 维数 取得数组相应维数的下界一般为0IsArray varname 函数 返回Boolean值指明某变量是否为数组 5 编写一个函数 用来确定考试成绩的等级 具体功能如下 先请求输入一个考试成绩 然后根据判断确定其等级并输出成绩和等级 大于等于90分的为优 大于等于80小于90的为良 大于等于70小于80为中 大于等于60小于70为及格 小于60为不及格 1 常用函数InputBox 略 2 循环语句if条件thenelseif elseif else 3 自定义函数functiongrade score Endfunction调用函数 Callgrade score Sub与Function的区别 Subtest EndSubFunctiontest a b EndFunctionSub是过程 Function是函数2 Function过程可以返回值 Sub过程不返回值 3 Function调用 Temp test a b calltest a b 4 Sub可以使用Call语句 也可以不使用 Calltest a b testa b 函数参数传递方式1 一种是按地址传递ByRef 调用函数时 不直接把实参的值 告诉 函数 而是把地址 告诉 它 函数根据这个地址来寻找并处理值 如果函数修改了这个值 也就修改了这个地址对应的值 当一个参数以传址的方式传递时 在调用的过程中变量的值可以被改变 这个改变在调用过程结束之后仍然持续 2 一种是按值传递ByVal 把值复制一份再给函数 这个值只属于函数 函数对这个值的修改不影响原值 当一个参数以传值的方式传递时 在调用的过程中对变量值的任何改变都不会在调用过程结束之后持续 注意 在一个Sub或者Function声明中 每一个参数都可以指定为ByRef或者ByVal 如果两者都没有指定 默认为地址传递ByRef 6 编写一个函数 将1001到1050 50串数字 读入text文件 每串数字占一行 要求新的数字追加进txt文档 如文档已有几行 不是覆盖 1 对象常用FileSystemObjectSetf CreateObject Scripting FileSystemObject 文件的操作 1 创建文件夹f CreateFolder C test 2 检察文件夹是否存在f FolderExists C test txt 3 读取全部内容objFSO OpenTextFile c test test txt 8 True 1是读 2是写 8是追加 4 自定义functionprintstr a b 5 回车换行符vbCr VBScript中的回车换行符 Textstream的两个指针变量 1 textstream对象的atendofstream属性 当处于文件结尾的时候这个属性返回true 我们可以用循环检测又没有到达文件末尾 例如 setfs createobject scripting filesystemobject setf fs getfile c 1 txt 1 false setts f openastextstream 1 0 dowhilets atendofstreamtruef read 1 loop2 atendofline属性 如果已经到了行末尾 这个属性返回true Textstream对象还有两个有用的属性 line和column 和在打开一个文件后 行和列指针都被设置为1 注意 些两个属性只能应用于打开用来读取的TextStream文件 否则将产生错误 7 请编写一个程序 打印出当前日期的星期英文名 比如今天2013 3 11 须打印出 MONDAY 1 条件语句SelectCasecase 周一 EndSelect2 函数WeekDayName 返回一个字符串 表示星期中指定的某一天3 Weekday now 或着是Weekday date 返回代表一星期中某天的整数 1 2 3 4 5 6 7MyWeekDay WeekDayName Weekday now True 时间函数 date 取系统当前日期time 取系统当前时间now 取系统当前时间及日期值Datetime类型timer 取当前时间距离零点秒值 计时器 可计算时间差DateAdd 间隔单位 间隔值 日期 推算相邻日期DateDiff 间隔单位 日期一 日期二 计算时间差日期二 日期一Datepart 间隔单位 日期 计算日期的间隔单位值Dateserial date 输出日期值 按序列计算 Timeserial time 输出时间值 按序列计算 DateValue datetime 取出字符串中日期值Ti