51Testing软件测试论坛

标题: 如何获取对象属性outerhtml中的子属性的值 [打印本页]

作者: 玉月亭苇 时间: 2008-8-6 15:41
标题: 如何获取对象属性outerhtml中的子属性的值
各位大侠们，
小妹现在想要检查用户输入的邮件格式是否有效，如果没效的话，就会在旁边出现一个error message。这个检验是在前台处理的，此error message用的是HTML的label。系统是使用此label里的outerhtml属性下的一些子属性来控制是否显示error message,具体如下，

当邮件格式正确时，此label的outerhtml属性值为：<SPAN class=iInputErrorNote id=ctl00_ContentPlaceHolder1_RegularExpressionValidator1 style="DISPLAY: none; WIDTH: 100%; COLOR: red" display="Dynamic" isvalid="true" c errormessage="Invalid Email format." focus validati>Invalid Email format.

当邮件格式不正确时，此label的outerhtml属性值为：<SPAN class=iInputErrorNote id=ctl00_ContentPlaceHolder1_RegularExpressionValidator1 style="DISPLAY: inline; WIDTH: 100%; COLOR: red" display="Dynamic" isvalid="false" c errormessage="Invalid Email format." focus validati>Invalid Email format.

现在问题就是我该如何将这两个值取出来啊？不可能使用那些截取字符串的方法吧？不知各位大侠有何高见？谢谢了~~~

作者: zte_boy 时间: 2008-8-6 15:47
object.getelementbyid("ctl00_ContentPlaceHolder1_RegularExpressionValidator1 ").style

作者: 没有蛀牙 时间: 2008-8-6 17:53
getelementbyid是指run-time object methods吗?
不一定有的啊

作者: zte_boy 时间: 2008-8-7 00:38

原帖由 没有蛀牙 于 2008-8-6 17:53 发表
getelementbyid是指run-time object methods吗?
不一定有的啊

对于web系统，QTP支持DOM的访问，就是通过object来进行的，所以getelementbyid这个方法肯定有的

作者: 假装不在 时间: 2008-8-7 09:14
标题: 回复 2# 的帖子
这个应该可以。风流果然不同。

作者: lingxin5013 时间: 2008-8-7 09:16
Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
If WinHttp Is Nothing Then Set WinHttp = CreateObject("WinHttp.WinHttpRequest")
WinHttp.Open "get", "http://bbs.51testing.com/forum-69-1.html",false
WinHttp.Send
arrArray = WinHttp.responsetext
msgbox arrArray
Set WinHttp = Nothing
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全局替换。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 遍历 Matches 集合。
RetStr = RetStr & Match.Value
RetStr = RetStr &vbCRLF
Next
RegExpTest = RetStr
End Function
regpatrn = "(\w+)\(\'(\w+)\'\,\s(\w+)\,\s(\d+)\)\;"
aim=(RegExpTest(regpatrn,arrArray ))
Set fso=createobject("scripting.filesystemobject")
Set text=fso.createtextfile("f:\nothing.txt",true)
text.writeline aim
找到原文件然后使用正则表达在把获取的内容写到文本

作者: 玉月亭苇 时间: 2008-8-7 10:32
呵呵，楼上的方法好牛啊，竟然用到了正则~~~~

二楼所说的getelementbyid()方法好像不行啊，我将此方法添加到脚本中，运行时QTP出现error，说不支持此方法。然后我在run-time object methods中也没有找到此方法，
不过找到了一个比较相似的方法getElementsByTagName()，试了一下，还是不行。

不知各位大侠还有啥高见指教一下，小妹先谢过啦~~~

作者: 没有蛀牙 时间: 2008-8-7 10:58
感觉你这样做是舍简取繁阿，
如果你要判断邮件输入格式是否正确
可以直接用正则表达式
或者判断errormessage是否存在
大可不必到源文件里去看它的display属性阿

作者: 玉月亭苇 时间: 2008-8-7 11:09
我现在是想来检验一下系统的行为是否正确，就是说当邮件格式正确时，error msg 是否没显示；而当邮件格式错误时，是否显示了error msg。
所以我事先把邮件的格式用正则表达式先检查一遍，如果说是正确的，那就应该再判断错误信息是否没显示，如果是错误的，那就判断错误信息是否显示了。
然后把这最终的结果输出来。与自己的预期结果对比一下就可以知道系统是否正确了。
不知这样是否舍简取繁了？？？因为是第一次真正将QTP运用到实际系统中，所以不清楚实际中大侠们是怎么来处理类似此类的情况了。。。

作者: lqin1982121 时间: 2008-8-7 11:11
同意楼上的观点，直接在页面上判断是否存在这个error message text，

作者: 玉月亭苇 时间: 2008-8-7 11:14
标题: 回复 5# 的帖子
谢谢zte_boy版主提供的getElementById()方法啊，现在解决啦。
刚才用它遇到问题，是因为没认真了解此方法的用法

把脚本贴出来，供后来人参考参考啊~~~
Set htmDoc = Browser("3PL - Domestic - User").Page("3PL - Domestic - New Service").Object
errorDisplay = htmDoc.getElementById("ctl00_ContentPlaceHolder1_RegularExpressionValidator1").style.display

作者: 玉月亭苇 时间: 2008-8-7 11:18
标题: 回复 11# 的帖子
楼上说直接在页面上判断是否存在这个 error message text。
不知该用什么方法来判断是否存在这个 error msg text呢？
我原来也是打算这样做的，但是我不知怎么来判断？难道是用检查点吗？

BTW，此error msg text使用的是HTML 控件。

作者: zte_boy 时间: 2008-8-7 11:19
呵呵，我就说嘛，怎么可能会没有这个方法呢，仔细再仔细，

作者: zte_boy 时间: 2008-8-7 11:20

原帖由 假装不在 于 2008-8-7 09:14 发表
这个应该可以。风流果然不同。

你又跑来灌水！该打！
明明天天在，还假装不在

作者: lingxin5013 时间: 2008-8-7 13:22
斑竹本猛

作者: lingxin5013 时间: 2008-8-7 13:45
'这里我随便在对象仓库里改变了一个属性做实验用的,我把URL的VALUE改为outerhtml属性值了就是LZ指的：
'Invalid Email format.

b=browser("如何获取对象属性outerhtml中的子属性的值").Page("如何获取对象属性outerhtml中的子属性的值").GetROProperty("url")
print b
'打印出来的结果为：<SPAN class=iInputErrorNote id=ctl00_ContentPlaceHolder1_RegularExpressionValidator1 style="DISPLAY: none; WIDTH: 100%; COLOR: red" display="Dynamic" isvalid="true" c errormessage="Invalid Email format." focus validati>Invalid Email format.

'进行分割字符串,我看了一下你的字符串除了你所说的值改变其它的不变我使用下面2次分割
'第一次获取字符串ExpressionValidator1后面的所有字符
arr=split(b,"ExpressionValidator1 ")
'打出ExpressionValidator1后面的所有字符
print arr(1)

'第二次获取WIDTH:前面的所有字符
arr1=split(arr(1)," WIDTH: ")
'得到你要的结果 style="DISPLAY: none
print arr1(0)
'斑竹的方法比我好很多我也实验了下很不错我这样做比较笨了呵呵给大家看看共同学习共同提高

[ 本帖最后由 lingxin5013 于 2008-8-7 13:48 编辑 ]

作者: 今天有雾 时间: 2008-8-7 14:39
看来我跟楼上的一下，也是用这种笨办法呀

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)