dom技术学习 QTP

Browser("基本信息_个人资料_会员中心_猎聘猎头网:LieTou.co").Page("工作经验").WebElement("判断有几个工作经历").Highlight
Set Doc=Browser("基本信息_个人资料_会员中心_猎聘猎头网:LieTou.co").Page("工作经验").WebElement("判断有几个工作经历").Object
Dim i
i=0
For Each Element In Doc.getElementsByTagName("A")
'TagName = Element.TagName ' 获取标签名
InnerText = Element.innerText ' 获取inner text
'Reporter.ReportEvent 0, TagName, InnerText
If Trim(InnerText)="修改" Then
i=i+1
End If
Next