| @echo off |
| setlocal enabledelayedexpansion |
| :begin |
| color 31 |
| mode con lines=25 cols=60 |
| cls |
| echo. |
| echo ╭─────────╮ |
| echo ｜ txt文本分割器 ｜ |
| echo ╰─────────╯ |
| echo ╔═══════════════════════╗ |
| echo ║ ║ |
| echo ║ 经常在mp4上看电子书的朋友经常会遇到一个 ║ |
| echo ║ ║ |
| echo ║ 问题：不得不把下载的很长的txt文本剪切粘贴为 ║ |
| echo ║ ║ |
| echo ║ 几个小的文本，方便阅读。本工具可以实现txt文 ║ |
| echo ║ ║ |
| echo ║ 本文件的分割。可以按照自己需要进行两种分割： ║ |
| echo ║ ║ |
| echo ║ 按行分割、按字数分割。具体操作请按提示进行， ║ |
| echo ║ ║ |
| echo ║ 按字数分割算法还有待提高！ ║ |
| echo ║ ║ |
| echo ║ 更新(09/2/27):增加了批量操作,优化了部分代码。║ |
| echo ║ ║ |
| echo ║ code by lhjoanna ║ |
| echo ╚═══════════════════════╝ |
| echo. |
| pause>nul |
| :choice |
| cls |
| echo.&echo.&echo. |
| echo ╔════════════╗ |
| echo ║ ║ |
| echo ║ [1] 批量分割 ║ |
| echo ║ ║ |
| echo ║ [2] 单个文件分割 ║ |
| echo ║ ║ |
| echo ║ [q] 返回上层 ║ |
| echo ║ ║ |
| echo ╚════════════╝ |
| echo. |
| echo. |
| set /p "choice_to_cut= 请输入分割方式[1-2]:" |
| if !choice_to_cut! equ 1 goto cut_in_batch |
| if !choice_to_cut! equ 2 goto cut_in_single |
| if !choice_to_cut! equ q goto begin |
| goto choice |
| :cut_in_batch |
| set folder=!folder_to_cut! |
| echo. |
| set /p "folder_to_cut= 请把包含文本文件的文件夹拖到此窗口(q返回):" |
| if "!folder_to_cut!" equ "q" goto choice |
| echo. |
| cd /d !folder_to_cut! >nul 2>nul || echo INPUT NOT FOLDER && pause>nul && goto |
| cut_in_batch |
| call :cut_ways |
| if !code_to_cut! equ 1 for /f "delims=" %%i in ('dir /b !folder_to_cut!') do call |
| :cut_in_line "%%i" "ok" |
| if !code_to_cut! equ 2 ( for /f "delims=" %%i in ('dir /b !folder_to_cut!') do call |
| :cut_in_number "%%i" "ok") |
| if !code_to_cut! equ q goto choice |
| if not !code_to_cut! equ 1 ( if not !code_to_cut! equ 2 goto choice ) |
| echo 分割成功完成，任意键返回！&pause>nul&goto choice |
| :cut_in_single |
| set /p "txt_to_cut= 请把要分割的文本文件拖到此窗口(q返回):" |
| if !txt_to_cut! equ q goto choice |
| cd /d !folder_to_cut! >nul 2>nul && goto cut_in_single || echo. |
| call :cut_ways |
| if !code_to_cut! equ 1 call :cut_in_line "!txt_to_cut!" |
| if !code_to_cut! equ 2 call :cut_in_number "!txt_to_cut!" |
| if !code_to_cut! equ q goto choice |
| if not !code_to_cut! equ 1 ( if not !code_to_cut! equ 2 goto choice ) |
| echo 分割成功完成，任意键返回！&pause>nul&goto choice |
| :cut_ways |
| cls |
| echo.&echo. |
| echo ╔════════════╗ |
| echo ║ ║ |
| echo ║ [1] 按行分割 ║ |
| echo ║ ║ |
| echo ║ [2] 按字数分割 ║ |
| echo ║ ║ |
| echo ║ [q] 返回上层 ║ |
| echo ║ ║ |
| echo ╚════════════╝ |
| echo. |
| echo. |
| set code_to_cut= |
| set /p "code_to_cut= 请输入分割方式[1-2]:" |
| goto :eof |
| |
| :cut_in_line |
| cls |
| set "tmp=%~1" |
| call :ex_quation_marks "!tmp!" |
| md !txt_to_cut_name! |
| echo.&echo 当前文件:!txt_to_cut_name! |
| echo.&echo 正在计算文本行数，请耐心等待... |
| for /f "tokens=1* delims=:" %%i in ('findstr /n .* "!txt_to_cut!"') do ( |
| set lines=%%i |
| set line=%%j |
| set line=!line: =! |
| echo !line!>>!txt_to_cut_name!_tmp.txt |
| ) |
| echo.&echo 共有!lines!行 |
| :check |
| set quantity_to_cut= |
| echo.&set /p "quantity_to_cut= 请输入每段包含的行数:" |
| if "!quantity_to_cut!" equ "" goto check |
| echo !quantity_to_cut!|findstr "^[0-9]*$">nul||goto check |
| if !quantity_to_cut! leq 0 goto check |
| if !quantity_to_cut! gtr !lines! goto check |
| set /a a=lines/quantity_to_cut |
| set /a b=lines%%quantity_to_cut |
| if !b! equ 0 set /a a-=1 |
| set aa=0 |
| :loop |
| set c=0 |
| set /a bb=aa+1 |
| cd.>!txt_to_cut_name!\!txt_to_cut_name!!bb!.txt |
| if !aa! equ 0 ( |
| set d=1 |
| set /p first=<!txt_to_cut! |
| if "!first!" equ "" ( echo.>>!txt_to_cut_name!\!txt_to_cut_name!!bb!.txt ) else echo |
| !first!>>!txt_to_cut_name!\!txt_to_cut_name!!bb!.txt |
| set /a c+=1 |
| ) else set /a d=aa*quantity_to_cut |
| for /f "usebackq skip=%d% delims=" %%j in ("!txt_to_cut_name!_tmp.txt") do ( |
| set /a c+=1 |
| if not !c! gtr !quantity_to_cut! ( |
| set "str=%%j" |
| set str=!str: =! |
| if "!str!" equ "" (echo.>>!txt_to_cut_name!\!txt_to_cut_name!!bb!.txt) else echo |
| %%j>>!txt_to_cut_name!\!txt_to_cut_name!!bb!.txt |
| ) |
| ) |
| set /a aa+=1 |
| if !aa! leq !a! goto loop |
| echo.&echo 分割成功完成 |
| echo.&echo 分割后文件!txt_to_cut_name!已保存到!txt_to_cut_path!\!txt_to_cut_name! |
| del "!txt_to_cut_name!_tmp.txt" |
| if not "%~2" equ "" echo.&echo 准备处理下一个... |
| ping -n 3 127.1>nul |
| goto :eof |
| |
| :cut_in_number |
| cls |
| set "tmp=%~1" |
| call :ex_quation_marks "!tmp!" |
| md !txt_to_cut_name! |
| echo.&echo 当前文件:!txt_to_cut_name! |
| for /f "tokens=1* delims=:" %%i in ('findstr /n .* "!txt_to_cut!"') do ( |
| set line=%%j |
| set line=!line: =! |
| echo !line!>>!txt_to_cut_name!_tmp.txt |
| ) |
| for /f "tokens=1 delims=:" %%i in ('findstr /o .* !txt_to_cut_name!_tmp.txt') do set /a |
| length=%%i-2 |
| set /a length/=2 |
| echo.&echo 共有!length!个字符 |
| :check2 |
| set words_to_cut= |
| echo.&set /p "words_to_cut= 请输入每段包含的字数:" |
| if "!words_to_cut!" equ "" goto check2 |
| echo !words_to_cut!|findstr "^[0-9]*$">nul||goto check2 |
| if !words_to_cut! leq 0 goto check2 |
| if !words_to_cut! gtr !length! goto check2 |
| set /a a=length/words_to_cut |
| set /a b=length%%words_to_cut |
| if not !b! equ 0 set /a a+=1 |
| set part=0 |
| :loop1 |
| set /a part+=1 |
| set /a offset_begin=(part-1)*words_to_cut |
| set /a offset_end=part*words_to_cut |
| set size=0 |
| cd.>!txt_to_cut_name!\!txt_to_cut_name!!part!.txt |
| for /f "tokens=1* delims=:" %%i in ('findstr /o .* !txt_to_cut_name!_tmp.txt') do ( |
| set /a size=%%i-2 |
| set /a size/=2 |
| if !size! geq !offset_begin! if !size! leq !offset_end! ( |
| if "%%j" equ "" (echo.>>!txt_to_cut_name!\!txt_to_cut_name!!part!.txt) else echo %% |
| j>>!txt_to_cut_name!\!txt_to_cut_name!!part!.txt |
| ) |
| ) |
| if !part! lss !a! goto loop1 |
| echo.&echo 分割成功完成 |
| echo.&echo 文件已保存到!txt_to_cut_path!\!txt_to_cut_name!\ |
| del "!txt_to_cut_name!_tmp.txt" |
| if not "%~2" equ "" echo.&echo 准备处理下一个... |
| ping -n 3 127.1>nul |
| goto :eof |
| :ex_quation_marks |
| set "txt_to_cut=%~1" |
| set "txt_to_cut_name=!txt_to_cut:~0,-4!" |
| set "txt_to_cut_path=%~dp1" |
| goto :eofCOPY |
发表于 2008-12-17 04:47
| 
