我的QTP的学习方法及总结(二)

发表于:2009-2-27 13:50

字体: | 上一篇 | 下一篇 | 我要投稿

 作者:jifeng    来源:51Testing博客

分享:

  

  代码1:

  SerchText("新 闻")

  Sub SerchText(testStr)

         set a=Browser("name:=百度一下,你就知道").Page("title:=百度一下,你就知道").Object.body.createTextRange()

         b=a.text

         Set regEx=new RegExp

         regEx.Pattern=testStr

         regEx.IgnoreCase=true

         regEx.Global=true

         Set Matches=regEx.Execute(b)

           For Each Match in Matches      ' 对 Matches 集合进行迭代。

                RetStr = Match.Value

                msgbox RetStr

           Next

  End Sub

  以上代码实现通过Object和正则表达式在页面上查找字符串功能。

  代码2:

  Browser("百度一下,你就知道").Page("百度一下,你就知道").WebButton("百度一下").Object.setAttribute "value","我的搜索"

  这句代码通过Object的setAttribute修改运行时按钮的value值。运行一下看看效果。运用场景:输入框需要单击激活输入状态,通过QTP脚本不能激活,此时可以通过修改运行对象的属性将其激活。

版权声明:原创作品,转载时请务必以超链接形式标明文章原始出处作者信息本声明,否则将追究法律责任。

本文出自jifeng的51Testing软件测试博客:http://www.51testing.com/?92935

相关阅读:

我的QTP的学习方法及总结(一)

22/2<12
《2023软件测试行业现状调查报告》独家发布~

关注51Testing

联系我们

快捷面板 站点地图 联系我们 广告服务 关于我们 站长统计 发展历程

法律顾问:上海兰迪律师事务所 项棋律师
版权所有 上海博为峰软件技术股份有限公司 Copyright©51testing.com 2003-2024
投诉及意见反馈:webmaster@51testing.com; 业务联系:service@51testing.com 021-64471599-8017

沪ICP备05003035号

沪公网安备 31010102002173号