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