vb6.0/vba [vb6.0/vba] Web Browser(Internet Explorer) html Document xPath
페이지 정보
본문
Public Function getXPathElement(sXPath As String, objElement As Object) As Object
On Error GoTo ErrPass
Dim sXPathArray() As String
Dim sNodeName As String, sNodeNameIndex As String
Dim sRestOfXPath As String
Dim lNodeIndex As Long, lCount As Long
sXPathArray = Split(sXPath, "/")
sNodeNameIndex = sXPathArray(1)
If Not InStr(sNodeNameIndex, "[") > 0 Then
sNodeName = sNodeNameIndex
lNodeIndex = 1
Else
sXPathArray = Split(sNodeNameIndex, "[")
sNodeName = sXPathArray(0)
lNodeIndex = CLng(Left(sXPathArray(1), Len(sXPathArray(1)) - 1))
End If
sRestOfXPath = Right(sXPath, Len(sXPath) - (Len(sNodeNameIndex) + 1))
Set getXPathElement = Nothing
For lCount = 0 To objElement.ChildNodes().Length - 1
If UCase(objElement.ChildNodes().Item(lCount).nodeName) = UCase(sNodeName) Then
If lNodeIndex = 1 Then
If sRestOfXPath = "" Then
Set getXPathElement = objElement.ChildNodes().Item(lCount)
Else
Set getXPathElement = getXPathElement(sRestOfXPath, objElement.ChildNodes().Item(lCount))
End If
End If
lNodeIndex = lNodeIndex - 1
End If
Next lCount
ErrPass:
End Function
- 이전글[vba] 아는것이 힘이다 - 2중 및 다중 중첩 For문의 활용 20.10.02
- 다음글[vba] Exec() 사용시 명령 프롬프트 창 숨기기( Hide command prompt window when using Exec()) 20.09.22
댓글목록
하나를하더라도최선을님의 댓글
하나를하더라도최선을 작성일
요소의 값들을 가져오는 방법!!
검증안됨 추후 필요시 검증 후 사용
{code:js}
HTML.getElementById("popup").Style.cssText
HTML.getElementById("popup").innerHTML
HTML.getElementById("popup").getAttribute("style")
HTML.getElementById("popup").getAttribute("style").cssText
HTML.getElementById("popup").getAttribute("style",0)
HTML.getElementById("popup").getAttribute("style",0).cssText
HTML.getElementById("popup").Style.Visibility
{/code}