au3抓取不得姐网站

au3抓取不得姐网站

网站地址:http://www.budejie.com/text/

用的正则有些别扭,见笑。

代码:

#include <IE.au3>
#include <File.au3>
#include <String.au3>
#include <Array.au3>
#include <Debug.au3>
#include <Date.au3>
;code try to collect budejie stories of www.budejie.com

Local $strUrl1 = "http://www.budejie.com/text/"
Local $filename1 = "budejie"
$filename1 = $filename1 & '_' & @MON
$filename1 = $filename1  & @MDAY
$filename1 = $filename1 & '.txt'
Local $filesave = @TempDir & "\budejie.html"
Local $pageindex
Local $startindex = 1
Local $endindex = 5
Local $sHTML
Local $storycount = 0
_FileCreate($filename1)
Local $file = FileOpen($filename1, 1)
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
 EndIf
For $pageindex = $startindex To $endindex Step 1
   $strUrl1 = MakeUpUrl($pageindex)
   Local $hDownload = InetGet($strUrl1, $filesave, 1, 1)
   Do
       Sleep(250)
   Until InetGetInfo($hDownload, 2)
   Local $nBytes = InetGetInfo($hDownload, 0)
   InetClose($hDownload)
  ConsoleWrite ($pageindex & ' / ' & $endindex &" --- down bytes = " &$nBytes & @LF)
  $fsize = $nBytes
  $ftemp = FileOpen($filesave, 0)
  $getsize=    FileGetSize ($filesave)
  $sHTML = FileRead($ftemp, $getsize)
  FileClose($ftemp)
  FileDelete($filesave)
  Local $aArray = StringRegExp($sHTML, '<div class="j-r-list-c-desc">[ \n\r]+<a href="/detail-\d+.html">[^<]+(?=</a>)', 3)
  ConsoleWrite("aArray size = " & UBound($aArray) & @CRLF)
    If UBound($aArray) <= 0 Then
        ContinueLoop
        EndIf
    $max = UBound($aArray)-1
  For $i = 0 To $max Step 1
     Local $item = $aArray[$i]
     If StringLen($item) > 0 Then
    $strnum = $storycount +1
    $strnum = $strnum & "." &@CRLF
    FileWrite($file, $strnum)
    $storycontent = StringRegExpReplace($item,'<div class="j-r-list-c-desc">[ \n\r]+<a href="/detail-\d+.html">',"")
     $storycontent = $storycontent & @CRLF
     FileWrite($file, $storycontent)
     $storycount = $storycount + 1
     EndIf
     Next
   Next
FileClose($file)
MsgBox(0, "BUDEJIE", "Complete, story count = "&$storycount & ', story=' & $filename1)
Exit
Func MakeUpUrl($pagenum)
    If $pagenum == 1 Then
         $strUrl = 'http://www.budejie.com/text/'
    Else
        $strUrl = 'http://www.budejie.com/text/' & $pagenum
   EndIf
   return $strUrl
   EndFunc

 

转载于:https://www.cnblogs.com/greershk/p/7534827.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Selenium是一个用于自动化浏览器操作的工具,可以模拟用户在浏览器中的行为。Selenium 3是Selenium的一个版本,用于抓取网页数据。 要使用Selenium 3抓取百度,首先需要安装Selenium库和浏览器驱动程序。你可以通过以下步骤来实现: 1. 安装Selenium库:在Python环境中使用pip命令安装Selenium库。可以使用以下命令进行安装: ``` pip install selenium ``` 2. 下载浏览器驱动程序:Selenium需要与特定的浏览器驱动程序配合使用。对于Chrome浏览器,你可以从ChromeDriver官方网站(https://sites.google.com/a/chromium.org/chromedriver/)下载对应版本的驱动程序,并将其添加到系统的PATH环境变量中。 3. 编写Python代码:下面是一个使用Selenium 3抓取百度首页的示例代码: ```python from selenium import webdriver # 创建Chrome浏览器实例 driver = webdriver.Chrome() # 打开百度首页 driver.get("https://www.baidu.com") # 查找搜索框并输入关键字 search_box = driver.find_element_by_id("kw") search_box.send_keys("CSDN") # 提交搜索表单 search_box.submit() # 等待搜索结果加载完成 driver.implicitly_wait(10) # 获取搜索结果页面的标题 title = driver.title print("搜索结果页面标题:", title) # 关闭浏览器 driver.quit() ``` 这段代码使用Chrome浏览器驱动程序创建了一个浏览器实例,然后打开百度首页,输入关键字并提交搜索表单。最后获取搜索结果页面的标题并打印出来。你可以根据自己的需求进行修改和扩展。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值