Excel搜索结果数

Question

给定一列字符串，我想从网站（例如sciencedirect.com）中找到每个字符串的搜索结果数。 Excel的现有答案Number of Google Results适用于Google。

不幸的是，此解决方案从字符串创建搜索URL，即， 例如 Google搜索包含单词example 。 我要使用的网站不这样做。

例如，搜索返回URL http://www.sciencedirect.com/science?_ob=ArticleListURL&_method=list&_ArticleListID=1860967815&_sort=r&_st=13&view=c&_acct=C000053194&_version=1&_urlVersion=0&_userid=1495569&md5=0ef30742e917da15236ef18type058

不知道我如何用这种类型的搜索引擎获得相同的结果。

Answer 1

单击“搜索”按钮时，您必须检查提交的表单。 表单发送一个包含搜索词的GET请求，但是随后您将重定向到结果列表页面，并且结果页面的URL不再包含搜索词。

我已经使用以下URL成功搜索了“语料库”：

http://www.sciencedirect.com/science?_ob=QuickSearchURL&_method=submitForm&_acct=C000228598&_origin=home&_zone=qSearch&md5=61ce8901b141d527683913a240486ac4&qs_all=corpus

请注意，您要做的是

1. 下载起始页面http://www.sciencedirect.com/
2. 从搜索表单中提取隐藏字段
3. 从隐藏字段中组合搜索URL
4. 将您的搜索词添加到qs_all字段的搜索URL中
5. 发送带有搜索网址的GET请求
6. 跟随重定向

除了qs_all之外，此URL中的所有其他字段都来自表单中的隐藏字段。 这是我下载时（在发送“语料库”搜索请求之前）相应表格的来源：

<form name="qkSrch" method="get" target="_top" action="/science" style="margin:0px;">
<input type="hidden" name="_ob" value="QuickSearchURL">
<input type="hidden" name="_method" value="submitForm">
<input type="hidden" name="_acct" value="C000228598">
<input type="hidden" name="_origin" value="home">
<input type="hidden" name="_zone" value="qSearch">
<input type="hidden" name="md5" value="61ce8901b141d527683913a240486ac4">

<table border="0" width="100%" cellpadding="0" cellspacing="0" style="margin: 0;">
<tbody><tr valign="middle">

<!-- Code related for toggling labels -->

   <td align="right"><label for="qs_all" id="fieldLabel">&nbsp;&nbsp;&nbsp;&nbsp;All fields</label></td>
   <td align="left"><input class="textbox qsinput xpstyle" type="text" name="qs_all" id="qs_all" value="" size="30" maxlength="450" title="For example: heart attack AND behavior?" tabindex="1"></td>



   <td align="right"><label for="qs_author">&nbsp;&nbsp;&nbsp;&nbsp;Author</label></td>
   <td align="left" colspan="5"><input class="textbox qsinput xpstyle" type="text" name="qs_author" id="qs_author" value="" size="33" maxlength="450" title="e.g. J S Smith or John Smith or Smith JS" tabindex="2" style="_width:100%"></td>
   <td nowrap="nowrap">

   </td><td></td><td></td>
   <td align="right" nowrap="nowrap" width="90%" valign="middle">
   <a href="/science?_ob=MiamiSearchURL&amp;_method=requestForm&amp;_btn=Y&amp;_acct=C000228598&amp;_version=1&amp;_urlVersion=1&amp;_userid=10&amp;md5=18a1082f74248d90d465ee65804fd7db" style="vertical-align:bottom;font-size:0.92em;">Advanced search</a>
   </td>
</tr>
<tr>

   <td align="right"><label for="qs_title">&nbsp;&nbsp;&nbsp;&nbsp;Journal/Book&nbsp;title</label></td>
   <td align="left"><input class="textbox qsinput xpstyle" type="text" id="qs_title" name="qs_title" value="" size="30" maxlength="450" title="For example: journal of molecular biology" tabindex="3"></td>

   <td align="right" class="toggleQukSrch2"><label for="qs_vol" id="volField">&nbsp;&nbsp;&nbsp;&nbsp;Volume</label></td>
   <td align="left" class="toggleQukSrch"><input class="textbox qsinput xpstyle" type="text" name="qs_vol" id="qs_vol" value="" size="3" maxlength="10" style="width:30px;" tabindex="4"></td>
   <td align="right" class="toggleQukSrch2"><label for="qs_issue" id="issueField">&nbsp;&nbsp;Issue</label></td>
   <td align="left" class="toggleQukSrch"><input class="textbox qsinput xpstyle" type="text" name="qs_issue" id="qs_issue" value="" size="3" maxlength="10" style="width:30px" tabindex="5"></td>
   <td align="right" class="toggleQukSrch2"><label for="qs_pages" id="pageField">&nbsp;&nbsp;Page</label></td>
   <td align="right" class="toggleQukSrch"><input class="textbox qsinput xpstyle" type="text" name="qs_pages" id="qs_pages" value="" size="3" maxlength="10" title="For example: 14-27" style="width:30px" tabindex="6"></td>

   <td align="right" nowrap="nowrap">
   <input class="button" id="submit_search" type="Submit" alt="Submit Quick Search" title="Submit Quick Search" value="Search ScienceDirect" tabindex="8" name="sdSearch">
   </td> 



 <td align="right" nowrap="nowrap" colspan="8" valign="bottom">
      <a class="icon_qmarkHelpsci_dir" href="/science?_ob=HelpURL&amp;_file=qs_tips.htm&amp;_acct=C000228598&amp;_version=1&amp;_urlVersion=0&amp;_userid=10&amp;md5=2bd779305b31602341744eaa786e2f0a" target="sdhelp" onmouseover="window.status='Help is Available';return true" onmouseout="window.status='';return true" onclick="var helpWin;helpWin=window.open('/science?_ob=HelpURL&amp;_file=qs_tips.htm&amp;_acct=C000228598&amp;_version=1&amp;_urlVersion=0&amp;_userid=10&amp;md5=2bd779305b31602341744eaa786e2f0a','sdhelp','scrollbars=yes,resizable=yes,directories=no,toolbar=no,menubar=no,status=no,width=760,height=570');helpWin.focus();return false" tabindex="9" style="font-size:0.92em;padding-right:0;">Search tips</a>
   </td>
   </tr>
</tbody></table>
</form>

编辑（续）如何从结果页提取结果数。

您的假设是正确的，您必须更改代码的其他部分，即提取结果数量值。

让我们继续前面的示例。 从“语料库”搜索时，您将在结果页面的源代码中找到以下行：

<input type="hidden" name="TOTAL_PAGES" value="2836">

然后，您将要提取2836。因此，您将搜索类似<input type="hidden" name="TOTAL_PAGES" value="的值，并在结束引号之前获取后续值。

我不会告诉您如何在VBA中进行编码，但这是基本的String操作，因此我希望您可以进行处理。