我正在尝试执行以下a）或b）。我宁愿a），如果我能弄明白的话。请参考最后的html。从html中提取特定元素/值

a）提取以下项目的值 - “”中的项目是静态的，但关联的值将会改变。我只想提取价值。

"locality" = Paris 
"region" = Paris 
"country-name" = France 
"latitude" = 48.85534 
"longitude" = 2.35048

二）简单的提取整个元素<div class="vcard">...<div>

我试图重新使用别人的代码，并使它做我想做的。但是我在编写代码时遇到了麻烦。我设法提取一些值。但它很混乱。我觉得代码可以做得更要好得多：

的VBA

Sheet1.WebBrowser1.Navigate (Sheet1.Range("C1")) 

Do 
DoEvents 
Loop Until Sheet1.WebBrowser1.ReadyState = READYSTATE_COMPLETE 

the_html_code = Sheet1.WebBrowser1.Document.Body.InnerHTML 

    the_output_row = 2 
    start_of_item = InStr(the_html_code, "locality") 
    the_value = Mid(the_html_code, start_of_item + 39, Len(the_html_code)) 
    the_html_code = Mid(the_html_code, start_of_item + 8, Len(the_html_code)) 
    the_value = Mid(the_value, 1, InStr(the_value, Chr(62)) - 1) 
     Sheet1.Range("L" & the_output_row) = the_value

的HTML

<script> 
     if (typeof (aadSponsoredLinksObj) != 'undefined' && aadSponsoredLinksObj.type == 'google' && aadSponsoredLinksObj.show_links == true) { 
      document.write('<scr' + 'ipt src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></scr' + 'ipt>'); 
     } else if (typeof (aadSponsoredLinksObj) == 'undefined') { 
      jQuery('#ad-links').remove(); 
     } 
    </script> 
<div id="tracking-pixels"></div> 

</div> 
<!-- /#wrap --> 

    <div class="vcard"> 
     <span class="adr"> 
      <span class="locality"> 
       <span class="value-title" title="Paris" ></span> 
      </span> 
      <abbr class="region" title="Paris"> 
       <span class="value-title" title="75" ></span> 
      </abbr> 
      <abbr class="country-name" title="France"> 
       <span class="value-title" title="FR" ></span> 
      </abbr> 
     </span> 
     <span class="geo"> 
      <span class="latitude"> 
       <span class="value-title" title="48.85534" ></span> 
      </span> 
      <span class="longitude"> 
       <span class="value-title" title="2.35048"></span> 
      </span> 
     </span> 
    </div> 

    <script type="text/javascript"> 
     var _qoptions = { qacct: 'p-4b4gl_1fWISuU' }; 
     if (typeof (apgPageInfoObj) != 'undefined' && apgPageInfoObj.crumb_trail) { 
      _qoptions.labels = apgPageInfoObj.crumb_trail.join('.');

来源

2013-07-24 halcyon27

为什么不使用适当的DOM解析器？这将比尝试使用字符串函数解析HTML的效率高出约1000％。 –

正如David Zemens建议，你可以用MSXML DOM解析器。您可以在VBA参考对话框中添加对Microsoft XML的引用（最好也可以使用最新的v6.0）。这个库有一个在线参考here。

来源

2013-07-24 22:44:23

从html中提取特定元素/值

的VBA

的HTML

回答

相关问题