vbÈçºÎ½ØÈ¡ÍøÒ³µÄhtml´úÂë
ÎÒÓÃvbÏÂÔØÒ»¸öÒ»¸öÒ³Ãæ£¬ÈçºÎ»ñÈ¡ÎÒÐèÒªµÄÄÚÈݰ¡£¬¾ÍÊÇÐèÒª½ØÈ¡¹¦ÄÜ£¬ÌáÍêÄÚÈݺó£¬ÈçºÎ×Ô¶¯Ìø×ªµ½ÏÂÒ»Ò³°¡£¬Çë½Ì¸ßÊÖ£¬ÎÒÓÃwebbrowser¿Ø¼þ£¬
ÄãµÄÎÊÌâÓеã´ó£¬»ñÈ¡HTML¾ÍÖ±½ÓÔÚDOCUMENTCOMPLETEʼþÖÐдwebbrowser1.document.body.outhtml
Õâ¾ÍÊÇËùÓеÄHTML´úÂ룬ȻºóÄãÏëҪʲô¾Í×Ô¼º·ÖÎö°É¡£¿ÉÒÔͨ¹ý·ÖÎö×Ö·û´®µÄ·½Ê½½ØÈ¡ÄãÒªµÄÄÚÈÝ
Ò²¿ÉÒÔ¸ù¾ÝHTML´úÂë¾ßÓеÄÊôÐÔÀ´»ñµÃÄãÒªµÄÄÚÈÝ¡£
×Ô¶¯Ìø×ª¾Í¸üÈÝÒ×ÁË£¬Äã»ñÈ¡ÍêÄãÒªµÄ´úÂ룬ÔÙ´Îwebbrowser1.navigate url ¾ÍÐÐÁË¡£
'ÌáÈ¡¸÷Îı¾·ÖÇø±êÇ©(div)ÖеÄÔ´´úÂë
VB code:
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.hao123.com/"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
j = WebBrowser1.Document.getElementsByTagName("div").Length - 1
Dim aa As Object
For i = 0 To j
Set aa = WebBrowser1.Document.getElementsByTagName("div")(i)
s = s & aa.innerHTML & vbCrLf & "---------------------------µÚ" & i & "¸ödivÖеÄÔ´´úÂë--------------------------------" & vbCrLf
Next
Static k As Integer
k = k + 1
If s <> "" Then
s1 = App.Path & "\" & k & ".txt"
Open s1 For Output As #1
Print #1, s
Close #1
Shell "notepad.exe " & s1, vbNormalFocus
End If
End Sub
Ïà¹ØÎÊ´ð£º
ÎÒÔÚjspÒ³Ãæ²éѯµ½Êý¾Ý¿âÖеÄÒ»±ÊÊý¾Ý£¬²¢ÒÔtableÑ»·µÄÐÎʽÏÔʾ£¬µ«ÐèÒªÏÂÔØ±£´æ³Éhtml¸ñʽ£¬ÇëÎÊÓ¦¸Ã´¦Àí£¿´úÂëÓÐûÓÐÌØÊâÒªÇó£¿ÊDz»ÊÇÐèÒªÌØ±ðµÄjar°ü£¿
ÄãÕâÊǰѱ¨±í±£´æÎªHTML¸ñʽ£¬²»ÖªÓÐʲôÓô¦£¬
ÒªÊÇ ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
HTML code
<html>
<head>
<title>Ö±½ÓÊäÈëµÄExcel±í¸ñ </title>
<style>
<!--
table.formdata{
border:1px solid #5F6F7E;
border-collapse:collaps ......