End If
lastString = lastString "
" string1 string2 '将提炼的结果存放在临时变量中
sStart = InStr(sStop, downCode, sString1)'重新定位下一条信息的起始位置
Loop'循环
yahooFilter = lastString'
End Function
经过了上面复杂的提炼，然后将提炼的结果写到一个网页文件中，然后调用浏览器显示，会出现整整齐齐的结果。
返回头来我们看一下现在比较流行的搜索软件，比如 SearchX98、Crazysearch、Inforian Quest 99，无论他们说明写的再好，也跳不出上面所说的原理，但他们各自有自己的一些独特之处，比如SearchX98 能够连续搜索多个引擎，其实就是发出一条搜索指令后，程序本身连续在各个搜索引擎发出搜索指令，将返回的结果经过简单的处理生成一个页面，其他的内容搜索更是最简单的直接发出搜索指令而已。而对于 Crazysearch，你只要打开注册表，就会发现其中文搜索只能搜索中文雅虎，英文只能搜索Excite，但号称注册版本能够搜索1000条记录，其实您只要分析一下雅虎的搜索代码就会发现，其中有一个关键词是 “n=”，代表一次搜索返回的结果数目；另外一个是“b=”，代表从第几条记录开始显示，就这两个关键词起到了这么重大的作用，但Crazysearch的独特之处在于返回的搜索结果以表格方式排列，直观醒目。最后要推荐的是Inforian Quest 99，尽管其原理也超脱不了以上的范围（您只要打开其目录下的site子目录中的文件就清楚了），但我还是极力推荐，因为无论是从站点的数量，搜索范围的广泛，搜索的速度，结果的详细，没有能过超过Inforian Quset 99的，而且要差很多。当然基于对国产软件的支持，我们还是可以对上面的两个软件寄予厚望。同是由于本人水平有限，难免有疏漏之处，敬请大家指正。
