@echo off
set/p file=请把要处理的文件拖到此处：
for /f "delims=" %%a in ("%file:"=%") do (
     md "%%~na"
     split -a 3 -b 100k "%file:"=%" "%%~na\%%~na_"
     ren "%%~na\*" "*.txt"
)
pause
复制代码

@echo off
set/p file=请把要处理的文件拖到此处：
for /f "delims=" %%a in ("%file:"=%") do (
     md "%%~na"
     split  -b 100k "%file:"=%" "%%~na\%%~na_"
     ren "%%~na\*" "*.txt"
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /l %%a in (1 1 20) do set "bu=ZZZZZZZZZZ!bu!"
set/p file=请把要处理的文件拖到此处：
for /f "delims=" %%a in ("%file:"=%") do (
   if not exist "%%~na" md "%%~na"
   split  -b 99k "%file:"=%" "%%~na\%%~na_"
   set "var=%%~na"
)
for /f "tokens=1* delims=_" %%a in ('dir/b/a-d "%var%"') do (
   echo 。>>"%var%\%%a_%%b"
   set "%%b=%%b!bu!"
   set "paixu.!%%b:~0,200!=%%b"
)
for /f "tokens=2 delims==" %%a in ('set paixu.') do (
   set /a n+=1
   ren "%var%\%var%_%%a" "%var%_!n!.txt"
)
start "" "%var%"
复制代码

@echo off&setlocal enabledelayedexpansion
     set/a kb+=102400,x+=1
     set/p file=请把要处理的文件拖到此处:
     set file=%file:"=%
     call:lp "%file%"
     pause&exit
:lp
md "%~n1"
for /f "tokens=1* delims=:" %%i in ('findstr /o ".*" "%file%"') do (
     if %%i gtr !kb! set /a kb+=102400,x+=1
     >>"%~n1\%~n1_!x!%~x1" echo.%%j
)
复制代码

@echo off
:loop
setlocal enabledelayedexpansion
set/p file=请把要处理的文件拖到此处：
for /f "delims=" %%a in ("%file:"=%") do (
     md "%%~na"
     split  -b 100k "%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
     type "!_%%i!"|wfr /exp /r:"[\r\n]" /t|wfr /exp /r:".*[。？]" /t>"%name%\tmp.txt"
     (type "%name%\tmp.txt"&echo.&call,type "%%_!x!%%")>"%name%\tmp.tmp"
     call,move /y "%name%\tmp.tmp" "%%_!x!%%"
) 
del "%name%\tmp.txt"
endlocal
pause
复制代码

@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
复制代码