Windows bat批處理腳本實(shí)現(xiàn)批量下載文件 2024-11-07

  • 保存腳本為GBK編碼

打開記事本或任何文本編輯器。
將腳本代碼復(fù)制到記事本中。
選擇“文件” -> “另存為”。
在“編碼”下拉菜單中選擇“ANSI”(這實(shí)際上是GBK編碼)力图。-
保存文件為 download_files.bat

  • 運(yùn)行腳本(鼠標(biāo)左鍵暫停腳本,右鍵繼續(xù)執(zhí)行)

將上述腳本保存為 download_files.bat
將 download_files.bat 放在包含 .txt 文件的文件夾中掺逼。
雙擊 download_files.bat 文件運(yùn)行腳本吃媒。

  • 特此注意 :文件夾名中文會(huì)導(dǎo)致程序閃退,盡量使用英文或者數(shù)字
@echo off
:: 設(shè)置代碼頁為GBK
chcp 936 > nul

setlocal enabledelayedexpansion

:: 獲取當(dāng)前日期
for /f "tokens=2 delims==" %%i in ('"wmic os get localdatetime /value"') do set datetime=%%i
set year=!datetime:~0,4!
set month=!datetime:~4,2!
set day=!datetime:~6,2!

:: 設(shè)置目標(biāo)文件夾
set TARGET_FOLDER=%cd%\!year!\!month!\!day!

:: 檢查目標(biāo)文件夾是否存在吕喘,不存在則創(chuàng)建
if not exist "%TARGET_FOLDER%" (
    echo 目標(biāo)文件夾 %TARGET_FOLDER% 不存在赘那,正在創(chuàng)建...
    mkdir "%TARGET_FOLDER%"
    if not exist "%TARGET_FOLDER%" (
        echo 無法創(chuàng)建目標(biāo)文件夾 %TARGET_FOLDER%。
        pause
        exit /b
    ) else (
        echo 目標(biāo)文件夾 %TARGET_FOLDER% 已創(chuàng)建兽泄。
    )
) else (
    echo 目標(biāo)文件夾 %TARGET_FOLDER% 已存在漓概。
)

:: 設(shè)置下載成功的URL記錄文件
set SUCCESS_FILE=%TARGET_FOLDER%\downloaded_urls.txt

:: 創(chuàng)建或清空下載成功的URL記錄文件
if exist "%SUCCESS_FILE%" del "%SUCCESS_FILE%"

:: 初始化計(jì)數(shù)器
set success_count=0
set total_count=0

:: 設(shè)置要處理的文件類型
set FILE_TYPE=*.txt

:: 遍歷當(dāng)前文件夾內(nèi)的所有指定類型的文件
for %%f in (%FILE_TYPE%) do (
    set FILE=%%f
    echo 正在處理文件: !FILE!

    :: 初始化URL計(jì)數(shù)器
    set url_count=0

    :: 讀取URL列表
    for /f "tokens=*" %%a in (!FILE!) do (
        set URL=%%a
        set /a url_count+=1
        set /a total_count+=1

        :: 簡(jiǎn)單的URL驗(yàn)證
        if "!URL:~0,7!" == "http://" (
            echo [第 !total_count! 個(gè)文件] 正在下載: !URL!
            :: 提取文件名
            for %%i in ("!URL!") do set FILENAME=%TARGET_FOLDER%\%%~nxi
            echo 文件名: !FILENAME!

            :: 使用curl下載文件,顯示進(jìn)度條并支持?jǐn)帱c(diǎn)續(xù)傳
            curl -# -C - -o "!FILENAME!" "!URL!"

            :: 使用wget下載文件病梢,顯示進(jìn)度條并支持?jǐn)帱c(diǎn)續(xù)傳
            rem wget -c -v -O "!FILENAME!" "!URL!"

            if %errorlevel% equ 0 (
                echo 下載成功: !FILENAME!
                echo !URL! >> "%SUCCESS_FILE%"
                set /a success_count+=1
            ) else (
                echo 下載失敗: !URL!
            )
        ) else if "!URL:~0,8!" == "https://" (
            echo [第 !total_count! 個(gè)文件] 正在下載: !URL!
            :: 提取文件名
            for %%i in ("!URL!") do set FILENAME=%TARGET_FOLDER%\%%~nxi
            echo 文件名: !FILENAME!

            :: 使用curl下載文件胃珍,顯示進(jìn)度條并支持?jǐn)帱c(diǎn)續(xù)傳
            curl -# -C - -o "!FILENAME!" "!URL!"

            :: 使用wget下載文件,顯示進(jìn)度條并支持?jǐn)帱c(diǎn)續(xù)傳
            rem wget -c -v -O "!FILENAME!" "!URL!"

            if %errorlevel% equ 0 (
                echo 下載成功: !FILENAME!
                echo !URL! >> "%SUCCESS_FILE%"
                set /a success_count+=1
            ) else (
                echo 下載失敗: !URL!
            )
        ) else (
            echo 跳過非URL行: !URL!
        )
    )
)

:: 顯示下載成功的文件數(shù)量
echo 總共下載成功的文件數(shù)量: %success_count%

:: 將下載成功的文件數(shù)量寫入到記錄文件
echo 總共下載成功的文件數(shù)量: %success_count% >> "%SUCCESS_FILE%"

endlocal
pause
image.png
  • 優(yōu)化后的代碼
@echo off
:: 設(shè)置代碼頁為GBK
chcp 936 > nul

setlocal enabledelayedexpansion

:: 獲取當(dāng)前日期
for /f "tokens=2 delims==" %%i in ('"wmic os get localdatetime /value"') do set datetime=%%i
set year=!datetime:~0,4!
set month=!datetime:~4,2!
set day=!datetime:~6,2!

:: 設(shè)置目標(biāo)文件夾
set TARGET_FOLDER=%cd%\!year!\!month!\!day!

:: 檢查目標(biāo)文件夾是否存在蜓陌,不存在則創(chuàng)建
if not exist "%TARGET_FOLDER%" (
    echo 目標(biāo)文件夾 %TARGET_FOLDER% 不存在觅彰,正在創(chuàng)建...
    mkdir "%TARGET_FOLDER%"
    if not exist "%TARGET_FOLDER%" (
        echo 無法創(chuàng)建目標(biāo)文件夾 %TARGET_FOLDER%。
        pause
        exit /b
    ) else (
        echo 目標(biāo)文件夾 %TARGET_FOLDER% 已創(chuàng)建钮热。
    )
) else (
    echo 目標(biāo)文件夾 %TARGET_FOLDER% 已存在填抬。
)

:: 設(shè)置下載成功的URL記錄文件
set SUCCESS_FILE=%TARGET_FOLDER%\downloaded_urls.txt

:: 創(chuàng)建或清空下載成功的URL記錄文件
if exist "%SUCCESS_FILE%" del "%SUCCESS_FILE%"

:: 初始化計(jì)數(shù)器
set success_count=0
set total_count=0

:: 設(shè)置要處理的文件類型
set FILE_TYPE=*.txt

:: 遍歷當(dāng)前文件夾內(nèi)的所有指定類型的文件
for %%f in (%FILE_TYPE%) do (
    set FILE=%%f
    echo 正在處理文件: !FILE!

    :: 讀取URL列表并下載文件
    for /f "tokens=*" %%a in (!FILE!) do (
        set "URL=%%a"
        set /a total_count+=1
        
        :: 檢查URL是否以http://或https://開頭
        if "!URL:~0,7!"=="http://" (
            set "VALID_URL=true"
        ) else if "!URL:~0,8!"=="https://" (
            set "VALID_URL=true"
        ) else (
            set "VALID_URL=false"
        )

        if "!VALID_URL!"=="true" (
            echo [第 !total_count! 個(gè)文件] 正在下載: !URL!
            
            :: 提取文件名
            for %%i in ("!URL!") do set "FILENAME=%TARGET_FOLDER%\%%~nxi"
            
            :: 使用curl下載文件
            curl -# -C - -o "!FILENAME!" "!URL!"
            if !errorlevel! equ 0 (
                echo 成功: !FILENAME!
                echo !URL! >> "%SUCCESS_FILE%"
                set /a success_count+=1
            ) else (
                echo 失敗: !URL!
            )
        ) else (
            echo 跳過非URL行: !URL!
        )
    )
)

:: 顯示并記錄成功數(shù)量
echo 下載成功文件數(shù)量: %success_count%
echo 下載成功文件數(shù)量: %success_count% >> "%SUCCESS_FILE%"

endlocal
pause
最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市隧期,隨后出現(xiàn)的幾起案子飒责,更是在濱河造成了極大的恐慌,老刑警劉巖仆潮,帶你破解...
    沈念sama閱讀 218,858評(píng)論 6 508
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件宏蛉,死亡現(xiàn)場(chǎng)離奇詭異,居然都是意外死亡性置,警方通過查閱死者的電腦和手機(jī)拾并,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,372評(píng)論 3 395
  • 文/潘曉璐 我一進(jìn)店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來,“玉大人嗅义,你說我怎么就攤上這事屏歹。” “怎么了之碗?”我有些...
    開封第一講書人閱讀 165,282評(píng)論 0 356
  • 文/不壞的土叔 我叫張陵蝙眶,是天一觀的道長(zhǎng)。 經(jīng)常有香客問我继控,道長(zhǎng)械馆,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 58,842評(píng)論 1 295
  • 正文 為了忘掉前任武通,我火速辦了婚禮,結(jié)果婚禮上珊搀,老公的妹妹穿的比我還像新娘冶忱。我一直安慰自己,他們只是感情好境析,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,857評(píng)論 6 392
  • 文/花漫 我一把揭開白布囚枪。 她就那樣靜靜地躺著,像睡著了一般劳淆。 火紅的嫁衣襯著肌膚如雪链沼。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 51,679評(píng)論 1 305
  • 那天沛鸵,我揣著相機(jī)與錄音括勺,去河邊找鬼。 笑死曲掰,一個(gè)胖子當(dāng)著我的面吹牛疾捍,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播栏妖,決...
    沈念sama閱讀 40,406評(píng)論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼乱豆,長(zhǎng)吁一口氣:“原來是場(chǎng)噩夢(mèng)啊……” “哼!你這毒婦竟也來了吊趾?” 一聲冷哼從身側(cè)響起宛裕,我...
    開封第一講書人閱讀 39,311評(píng)論 0 276
  • 序言:老撾萬榮一對(duì)情侶失蹤,失蹤者是張志新(化名)和其女友劉穎论泛,沒想到半個(gè)月后揩尸,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 45,767評(píng)論 1 315
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡孵奶,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,945評(píng)論 3 336
  • 正文 我和宋清朗相戀三年疲酌,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 40,090評(píng)論 1 350
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡朗恳,死狀恐怖湿颅,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情粥诫,我是刑警寧澤油航,帶...
    沈念sama閱讀 35,785評(píng)論 5 346
  • 正文 年R本政府宣布,位于F島的核電站怀浆,受9級(jí)特大地震影響谊囚,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜执赡,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,420評(píng)論 3 331
  • 文/蒙蒙 一镰踏、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧沙合,春花似錦奠伪、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,988評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至究履,卻和暖如春滤否,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背最仑。 一陣腳步聲響...
    開封第一講書人閱讀 33,101評(píng)論 1 271
  • 我被黑心中介騙來泰國(guó)打工藐俺, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人盯仪。 一個(gè)月前我還...
    沈念sama閱讀 48,298評(píng)論 3 372
  • 正文 我出身青樓紊搪,卻偏偏與公主長(zhǎng)得像,于是被迫代替她去往敵國(guó)和親全景。 傳聞我的和親對(duì)象是個(gè)殘疾皇子耀石,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 45,033評(píng)論 2 355

推薦閱讀更多精彩內(nèi)容