티스토리 뷰

HtmlZap

Github https://github.com/maiken2051/htmlzap

Homepage http://www.miken.com/htmlzap/

Docment http://www.miken.com/htmlzap/hzdoc.htm


HTML 파싱 예:
latest_hit = "
  • ""항소하면 죽을 때까지 싸울래요""
  • " latest_hit = latest_hit &"
  • 여야 의원들, 여성가족부 집중 추궁
  • " latest_hit = latest_hit &"
  • 한국도 ‘동일임금의 날’ 제정 추진
  • " ' the way of using component Set hz = CreateObject("HtmlZap.HtmlZap.1") hz.LoadBuffer CStr(latest_hit) While not hz.eof If hz.TagName = "a" Then url = hz.Param("href") bAnchor = true hz.Next '= 현재 hz는 a 태그를 가리키는 상태인데 Next element가 innerText 이므로 title = hz.Text Response.Write url &" - "& title &"
    " End If hz.Next ' 다음 element로 이동 Wend
    댓글