@echo off
:loop
setlocal enabledelayedexpansion
set/p file=请把要处理的文件拖到此处：
for /f "delims=" %%a in ("%file:"=%") do (
     md "%%~na"
     split -b 99k "%file:"=%" "%%~na\%%~na_"
     ren "%%~na\*" "*.txt"
     set "name=%%~na"
)
for /f "delims=" %%a in ('dir /b /s /on "%name%\*.txt"') do set/a n+=1&set "_!n!=%%a"
set/a n-=1
for /l %%i in (1 1 %n%) do (
     set/a x=%%i+1
     findstr /v $ "!_%%i!">tmp&findstr $ "!_%%i!">tmp1
     move /y tmp1 "!_%%i!"
     (type tmp&echo.&call type "%%_!x!%%")>tmp2
     call,move /y tmp2 "%%_!x!%%"
)
del tmp
endlocal
pause
复制代码

@echo off
set /a n=101600,kb=n
set "临时文件=tmp.txt"
set /p file=请把要处理的文件拖到此处：
set "file=%file:"=%"
cls&echo  正在分割 %file% 文件请稍候。。。
for /f "delims=" %%a in ("%file%") do set wjm=%%~na
findstr /no ".*" "%file%">"%临时文件%"
for /f "tokens=2 delims=:" %%a in ('find /c /v "" "%临时文件%"') do set /a z=%%a
if not exist "%wjm%\" md "%wjm%"
:list
set /a x+=1
if defined t >>"%wjm%\%wjm%_%x%.txt" echo %t%
set "t="
if not defined h (set skip=) else (set skip=skip=%h%)
setlocal enabledelayedexpansion
for /f "%skip% tokens=1,2* delims=:" %%a in (%临时文件%) do (
   if %%b geq !kb! set /a kb+=n&set flag=a&goto loop
   set /a g+=1
   set !g!=%%c&set /a h=%%a,u=%%a
)
:loop
if not defined flag (
   if defined t >>"%wjm%\%wjm%_%x%.txt" echo %t%
   for /l %%a in (1 1 !g!) do >>"%wjm%\%wjm%_%x%.txt" echo.!%%a!
   goto end
)
set "var=!%g%!"
if not defined var set /a g-=1,h-=1&goto loop
for /f "tokens=1* delims=。" %%a in ("!var!") do (
   if "!var!"=="%%a" set /a g-=1,h-=1&goto loop
   if not "%%b"=="" set "t=%%b"
   set w=%%a。
)
for /l %%a in (1 1 !g!) do >>"%wjm%\%wjm%_%x%.txt" echo.!%%a!
>>"%wjm%\%wjm%_%x%.txt" echo !w!
endlocal&set h=%h%&set t=%t%&set kb=%kb%&set "u=%u%"
if %u% neq %z% goto list
:end
del/q "%临时文件%" 2>nul
start "" "%wjm%"
复制代码

if WScript.Arguments.length=0 then msgbox "请把文本拖到脚本上" : wscript.quit
Set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.GetFile(WScript.Arguments(0))
set ts = f.OpenAsTextStream
strText = ts.ReadAll
fp = f.ParentFolder
fn = left(f.Name,InStrRev(f.Name,".")-1)
set f = nothing
if not fso.FolderExists(fp&"\"&fn) then fso.CreateFolder fp&"\"&fn

strtext=Replace(strtext, "。", "。///")
strtext=Replace(strtext, "？", "？///")
strtext=Replace(strtext, "！", "！///")
strtext=Replace(strtext, ".", ".///")
strtext=Replace(strtext, "!", "!///")
strtext=Replace(strtext, "?", "?///")
a=split(strtext,"///")

i=0:j=0:k=1

do while i<=UBound(a)
    j=j+len(a(i))
    if j<51200 then
        fso.OpenTextFile(fp&"\"&fn&"\"&fn&"-"&k&".txt",8,true).Write a(i)
    else
        j=0
        k=k+1
        fso.OpenTextFile(fp&"\"&fn&"\"&fn&"-"&k&".txt",8,true).Write a(i)
    end if
    i=i+1
loop
复制代码