[文本处理] 求助文档组合再切割的批处理

chcp 65001

function filesplit() {
    param([string]$filename)

    $a = Get-Content -Encoding UTF8 ($filename + ".srt")
    $as = $a -join "`n"
    $as -replace "(?m)(^\d+[.]$)`n(^.+$)`n(^.+$)","`$1`n`$2" | Out-File -Encoding utf8 ($filename + "t.srt")
    $as -replace "(?m)(^\d+[.]$)`n(^.+$)`n(^.+$)","`$1`n`$3" | Out-File -Encoding utf8 ($filename + "s.srt")
}

filesplit "文档111"
复制代码

@echo off
rem 文件和批处理保存为ansi编码格式
rem part1
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d *.srt') do (
	set n=
	for /f "delims=" %%a in ('type "%%i"') do (
		set /a n+=1,m=n%%3
		if !m! equ 1 (
			set "str1=%%a"
		) else if !m! equ 2 (
			>>"%%~ni时间.srt" (
				echo !str1!
				echo %%a
				echo;
			) 
		) else if !m! equ 0 (
			>>"%%~ni内容.srt" (
				echo !str1!
				echo %%a
				echo;
			)
		)
	)
)
endlocal
rem part2
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d *内容.srt') do (
	set /a n=0,fc=1,lengthAll=0
	for /f "delims=" %%a in ('type "%%i"') do (
		set /a n+=1,m=n%%2
		set "str=!str!%%a"
		set "str!m!=%%a"
		if !m! equ 0 (
			rem 内容.srt每单元不超100字符
			for /l %%l in (1,1,100) do (
				if defined str (
					set "str=!str:~1!"
					set lengthStr=%%l
				)
			)
			set /a lengthAll+=lengthStr
			if !lengthAll! gtr 5000 (
				set /a fc+=1,lengthAll=0
			)
			(for %%c in (1 0 #) do (
				echo,!str%%c!
			))>>"%%~ni!fc!.srt"
		)
	)
)
endlocal
pause
复制代码

@echo off
rem 批处理保存为ansi,文本为utf-8时不含中文
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d *.srt') do (
	set /a n=0,fc=1,lengthAll=0
	for /f "delims=" %%a in ('type "%%i"') do (
		set /a n+=1,m=n%%3
		if !m! equ 1 (
			set "str1=%%a"
		) else if !m! equ 2 (
			>>"%%~ni时间.srt" (
				echo !str1!
				echo %%a
				echo;
			) 
		) else if !m! equ 0 (
			>>"%%~ni内容.srt" (
				echo !str1!
				echo %%a
				echo;
			)
			set "str3=%%a!str1!"
			for /l %%l in (1,1,100) do (
				if defined str3 (
					set "str3=!str3:~1!"
					set lengthStr3=%%l
				)
			)
			set /a lengthAll+=lengthStr3
			if !lengthAll! gtr 5000 (
				set /a fc+=1,lengthAll=0
			)
			>>"%%~ni内容!fc!.srt" (
				echo !str1!
				echo %%a
				echo,
			)
		)
	)
)
endlocal
pause
复制代码

@echo off
for /f "delims=" %%i in ('dir /b /a-d *时间*.srt') do set "filet=%%i"
set "filedate=%filet:~0,-6%"
for /f "delims=" %%i in ('dir /b /a-d *内容*.srt') do set "filec=%%i"
copy "%filet%" "xxxt.srt"
copy "%filec%" "xxxc.srt"

chcp 437 1>nul
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('type "xxxt.srt"') do (
	set /a n+=1,m=n%%2
	if !m! equ 0 set "#!n!=%%a"
)
set /a n=m=0
for /f "delims=" %%a in ('type "xxxc.srt"') do (
	set /a n+=1,m=n%%2
	if !m! equ 0 set "##!n!=%%a"
)
for /l %%l in (1,1,5000) do (
	if defined #%%l (
		>>"xxxtc.srt" (
			set /a k+=1
			echo !k!
			echo !#%%l!
			echo !##%%l!
			echo;
		)
	)
)
chcp 936 1>nul
del "xxxt.srt";"xxxc.srt"
ren "xxxtc.srt" "%filedate%-时间+内容.srt"
pause
复制代码