批处理如何检测srt每行字数，超出设定字数换行？ - BAT求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

Rank: 2

帖子: 81
积分: 110
技术: 0
捐助: 0
注册时间: 2023-10-24

17楼

发表于 2023-11-3 00:47 | 只看该作者

回复 14# buyiyang

厉害了我的哥！技术专业！谢谢谢谢！

Rank: 2

帖子: 81
积分: 110
技术: 0
捐助: 0
注册时间: 2023-10-24

18楼

发表于 2023-11-3 00:48 | 只看该作者

回复 15# Five66

感谢大佬！谢谢

Rank: 2

帖子: 81
积分: 110
技术: 0
捐助: 0
注册时间: 2023-10-24

19楼

发表于 2023-11-3 01:22 | 只看该作者

回复 16# 77七

大佬好，感谢您！还有一点小问题~

如果时间码超过字数的话也会跟着换行。能否只检测文字，不检测数字时间码呢？

时间码格式：00:09:30,401 --> 00:09:30,971

77七

少校

Rank: 6 Rank: 6

帖子: 1244
积分: 2151
技术: 282
捐助: 50
注册时间: 2022-9-18

20楼

发表于 2023-11-3 08:12 | 只看该作者

回复 19# 小白来了

@echo off
rem 批处理保存为utf-8编码格式
chcp 65001 >nul
for /f "delims=" %%i in ('dir /b /a-d *.srt') do (
	(for /f "tokens=1* delims=[]" %%a in ('find /n /v "" ^<"%%i"') do (
		if "%%b" equ "" (
			echo=
		) else (
			set "str=%%b"
			setlocal enabledelayedexpansion
			set "_str=!str:~0,1!"
			if !_str! gtr Z (
				call :1
			) else (
				echo !str!
			)
			endlocal
		)
	))>"%%~ni_2%%~xi"
)
pause & exit

	:1
	echo !str:~0,30!
	set "_str=!str:~30!"
	if "!_str!" neq "" (
		set "str=!_str!"
		goto :1
	) else (
		exit /b
	)
复制代码

bat小白，请多指教！谢谢！

Rank: 2

帖子: 81
积分: 110
技术: 0
捐助: 0
注册时间: 2023-10-24

21楼

发表于 2023-11-3 12:02 | 只看该作者

回复 20# 77七

成功了，大佬威武霸气！感谢您的专业帮助~祝您财源广进~一起顺利！！

qixiaobin0715

大校

Rank: 7 Rank: 7 Rank: 7

帖子: 2594
积分: 3775
技术: 383
捐助: 0
注册时间: 2016-2-20

22楼

发表于 2023-11-3 14:22 | 只看该作者

本帖最后由 qixiaobin0715 于 2023-11-4 08:22 编辑

感谢14楼指出代码错误。下面代码最多可进行2次换行，即适合一行不超过90个字符，原字幕文件空行保留：

@echo off
chcp 65001>nul
for /f "delims=" %%i in ('dir /b /a-d *.srt') do (
    (for /f "delims=" %%j in ('type "%%i"') do (
        set "str=%%j"
        setlocal enabledelayedexpansion
        set /a t=str
        if !t! equ !str! (
            echo,%%j
        ) else if not "!str:-->=!"=="!str!" (
            echo,%%j
        ) else (
            if not "!str:~30!"=="" (
                echo,!str:~,30!
                set str=!str:~30!
                if not "!str:~30!"=="" (
                    echo,!str:~,30!
                    echo,!str:~30!
                    echo,
                ) else (
                    echo,!str!
                    echo,
                )
            ) else (
                echo,%%j
                echo,
            )
        )
        endlocal
    ))>"New-%%i"
)
复制代码

terse

中将

Rank: 8 Rank: 8

帖子: 2339
积分: 9739
技术: 475
捐助: 0
注册时间: 2008-2-25

23楼

发表于 2023-11-4 12:26 | 只看该作者

powershell

<# :
@echo off 
powershell -noprofile -NoLogo "iex (${%~f0} | out-string)"
pause
exit 
#>
$re = "^\d{2}:\d{2}:\d{2},\d{3} --> \d{2}:\d{2}:\d{2},\d{3}$"
$n = 30
[IO.Directory]::EnumerateFiles($pwd, "*.srt")|%{ [IO.File]::WriteAllLines("$_._new.txt",([IO.File]::ReadAllLines($_)|%{if($_ -match $re){$_ }else{$_ -split "(?<=\G.{$n})(?=.)"}}),[Text.Encoding]::UTF8)}
复制代码

Rank: 2

帖子: 81
积分: 110
技术: 0
捐助: 0
注册时间: 2023-10-24

24楼

发表于 2023-11-20 08:55 | 只看该作者

回复 20# 77七

大哥，这段代码改成覆盖原文件，应该怎样修改呢？我自己修改的操作完成空白文件了。求您指教~谢谢！

@echo off
rem 批处理保存为utf-8编码格式
chcp 65001 >nul
for /f "delims=" %%i in ('dir /b /a-d *.srt') do (
	(for /f "tokens=1* delims=[]" %%a in ('find /n /v "" ^<"%%i"') do (
		if "%%b" equ "" (
			echo=
		) else (
			set "str=%%b"
			setlocal enabledelayedexpansion
			set "_str=!str:~0,1!"
			if !_str! gtr Z (
				call :1
			) else (
				echo !str!
			)
			endlocal
		)
	))>"%%~ni_2%%~xi"
)
pause & exit

	:1
	echo !str:~0,30!
	set "_str=!str:~30!"
	if "!_str!" neq "" (
		set "str=!_str!"
		goto :1
	) else (
		exit /b
	)
复制代码

77七

少校

Rank: 6 Rank: 6

帖子: 1244
积分: 2151
技术: 282
捐助: 50
注册时间: 2022-9-18

25楼

发表于 2023-11-20 11:01 | 只看该作者

回复 24# 小白来了

19行下面添加一行

        move "%%~ni_2%%~xi" "%%i"
复制代码

bat小白，请多指教！谢谢！