@Echo Off
:: 設(shè)置控制臺編碼為UTF-8，支持中文顯示
CHCP 65001 >nul
Title txt 文件合并工具 - 增強(qiáng)版
SetLocal EnableDelayedExpansion  :: 啟用延遲變量擴(kuò)展，處理動態(tài)變量

:: ========== 初始化設(shè)置 ==========
:: 設(shè)置臨時(shí)工作目錄，用于存儲中間文件
Set "temp_dir=%~dp0Temp"
if not Exist "%temp_dir%" MKDir "%temp_dir%"

:: 設(shè)置默認(rèn)輸出文件名（避免與源文件沖突）
Set "default_output=合并后的文件.txt"

:: ========== 運(yùn)行模式智能判斷 ==========
if "%~1"=="" (
    Echo 【模式】雙擊運(yùn)行模式: 合并當(dāng)前文件夾內(nèi)所有txt文件
    Echo.
    Set "output=%~dp0%default_output%"  :: 設(shè)置輸出路徑為當(dāng)前目錄
    Goto :double_click_mode
) else (
    Echo 【模式】拖拽運(yùn)行模式
    Echo.
    Goto :drag_mode
)

:: ========== 雙擊運(yùn)行模式處理流程 ==========
:double_click_mode
Set "has_files=0"  :: 文件存在標(biāo)志，初始為無文件
if Exist "%temp_dir%\filelist_unsorted.txt" Del "%temp_dir%\filelist_unsorted.txt"

:: 遍歷當(dāng)前目錄所有txt文件，排除輸出文件自身
for %%f in (*.txt) do (
    if /i not "%%f"=="%default_output%" (
        :: 將文件的完整路徑寫入臨時(shí)列表，使用引號包裹
        Echo "%%~ff" >> "%temp_dir%\filelist_unsorted.txt"
        Set "has_files=1"  :: 發(fā)現(xiàn)文件，標(biāo)志置為1
    )
)

:: 檢查是否找到有效文件
if !has_files!==0 (
    Echo 【錯(cuò)誤】當(dāng)前文件夾中沒有找到可處理的txt文件！
    Pause
    Exit /b 1  :: 返回錯(cuò)誤代碼1
)
Goto :sort_files

:: ========== 拖拽運(yùn)行模式處理流程 ==========
:drag_mode
if Exist "%temp_dir%\filelist_unsorted.txt" Del "%temp_dir%\filelist_unsorted.txt"
Set "has_files=0"
Set "single_folder="  :: 單文件夾標(biāo)志，用于優(yōu)化輸出位置

:: 統(tǒng)計(jì)拖拽的項(xiàng)目數(shù)量
Set "item_count=0"
for %%a in (%*) Do Set /a item_count+=1

:: 檢查是否為單個(gè)文件夾（優(yōu)化用戶體驗(yàn)）
if !item_count! EQU 1 (
    for %%a in (%*) Do (
        if Exist "%%~a\" (
            Set "single_folder=%%~a"  :: 記錄單個(gè)文件夾路徑
        )
    )
)

Echo 【狀態(tài)】正在處理拖拽的項(xiàng)目...
for %%a in (%*) Do (
    :: 檢查拖拽的是否為文件夾
    if Exist "%%~a\" (
        Echo 【信息】檢測到文件夾: "%%~nxa"
        :: 遍歷文件夾內(nèi)的所有txt文件
        for %%f in ("%%~a\*.txt") do (
            if /i not "%%~nxf"=="%default_output%" (
                Echo "%%f" >> "%temp_dir%\filelist_unsorted.txt"
                Set "has_files=1"
            )
        )
    ) else if Exist "%%~a" (
        :: 檢查拖拽的是否為單個(gè)文件
        if /i "%%~xa"==".txt" if /i not "%%~nxa"=="%default_output%" (
            Echo 【信息】檢測到txt文件: "%%~nxa"
            Echo "%%~a" >> "%temp_dir%\filelist_unsorted.txt"
            Set "has_files=1"
        ) else (
            Echo 【跳過】非txt文件: "%%~nxa"
        )
    ) else (
        Echo 【警告】無法訪問的項(xiàng)目: "%%~a"
    )
)

:: 驗(yàn)證是否找到有效文件
if !has_files!==0 (
    Echo 【錯(cuò)誤】未找到有效的txt文件！
    Pause
    Exit /b 1
)

:: 智能設(shè)置輸出路徑
if defined single_folder (
    :: 如果拖拽的是單個(gè)文件夾，輸出到該文件夾內(nèi)
    Set "output=!single_folder!\%default_output%"
) else (
    :: 否則輸出到腳本所在目錄
    Set "output=%~dp0%default_output%"
)

:: ========== 文件列表排序處理 ==========
:sort_files
Echo 【狀態(tài)】正在對文件列表進(jìn)行升序排序...
if Exist "%temp_dir%\filelist_unsorted.txt" (
    :: 使用系統(tǒng)sort命令對文件列表排序
    sort "%temp_dir%\filelist_unsorted.txt" /o "%temp_dir%\filelist.txt"
    Del "%temp_dir%\filelist_unsorted.txt" >nul
    Echo 【完成】排序完成！
    Echo.
) else (
    Echo 【錯(cuò)誤】未找到任何txt文件！
    Pause
    Exit /b 1
)

:: ========== 文件合并前的準(zhǔn)備工作 ==========
:check_files
Set "file_count=0"
for /f "UseBackQ Delims=" %%f in ("%temp_dir%\filelist.txt") Do Set /a file_count+=1

if !file_count!==0 (
    Echo 【錯(cuò)誤】未找到任何txt文件！
    Pause
    Exit /b 1
)

Echo 【統(tǒng)計(jì)】找到 !file_count! 個(gè)txt文件
Echo.

:: 刪除已存在的輸出文件（避免內(nèi)容重復(fù)）
if Exist "%output%" Del "%output%" >nul

:: 顯示已排序的文件列表（用戶確認(rèn)）
Echo 文件列表（已按名稱排序）:
Set "index=0"
for /f "UseBackQ Delims=" %%f in ("%temp_dir%\filelist.txt") Do (
    Set /a index+=1
    Echo [!index!] %%f
)
Echo.

:: ========== 文件合并核心邏輯 ==========
Echo 【狀態(tài)】正在合并文件...
Set "temp_output=%temp_dir%\merged_temp.txt"
if Exist "%temp_output%" Del "%temp_output%" >nul

Set "current_index=0"
for /f "UseBackQ Delims=" %%f in ("%temp_dir%\filelist.txt") Do (
    Set /a current_index+=1
    
    :: 關(guān)鍵步驟：處理含空格路徑
    :: 移除路徑中的引號，避免雙重引號問題
    set "file_path=%%~f"
    
    Echo 【處理】[!current_index!/!file_count!]: %%~nxf
    
    :: 文件存在性檢查（重要安全措施）
    if Exist "!file_path!" (
        :: 正確讀取文件內(nèi)容（處理含空格路徑的關(guān)鍵）
        type "!file_path!" >> "%temp_output%"
        :: 添加換行符作為文件分隔符
        echo. >> "%temp_output%"
    ) else (
        Echo 【警告】文件不存在: "!file_path!"
    )
)

:: ========== 輸出結(jié)果處理與統(tǒng)計(jì) ==========
if Exist "%temp_output%" (
    :: 將臨時(shí)文件內(nèi)容復(fù)制到最終輸出文件
    type "%temp_output%" > "%output%"
    Del "%temp_output%" >nul

    :: 統(tǒng)計(jì)合并后的總行數(shù)
    Set /a total_lines=0
    for /f %%l in ('type "%output%" ^| Find /c /v "" 2^>nul') Do Set /a total_lines=%%l

    if !total_lines!==0 (
        Echo 【警告】合并后的文件為空！
    )

    Echo.
    Echo 【完成】文件合并成功！
    Echo ├─輸出文件: %output%
    Echo ├─處理文件數(shù): !file_count!
    Echo └─總行數(shù): !total_lines!
    Echo.

    :: 自動打開合并后的文件（用戶體驗(yàn)優(yōu)化）
    Echo 【狀態(tài)】正在打開合并后的文件...
    Timeout /t 1 /NoBreak >nul
    if Exist "%output%" (
        Start "" "%output%"
    ) else (
        Echo 【錯(cuò)誤】輸出文件創(chuàng)建失??！
    )
) else (
    Echo 【錯(cuò)誤】合并失敗，未生成任何內(nèi)容！
)

:: ========== 清理與退出 ==========
:: 清理所有臨時(shí)文件（保持系統(tǒng)整潔）
if exist "%temp_dir%" rmdir /s /q "%temp_dir%" 2>nul

Echo.
Echo 按任意鍵退出程序...
Pause >nul