怎么用批处理合并中、英字幕为中英双字幕文件？

mac007cn

怎么用批处理合并中、英字幕为中英双字幕文件？
我喜欢看中英双字幕的欧美大片，但很多高清影片的外挂字幕都是英、中分开的，如何用批处理把中文字幕chs.srt和英文字幕eng.srt合并成一个chseng.srt字幕呢？中上英下。
谢谢。
如图所示

mac007cn

我自己想的一个办法，有点笨，一个大缺点是需要生产（字幕总条数×2）个临时文件。抛砖引玉，求更好的方法。谢谢。

1. @echo off
   
2. setlocal EnableExtensions
   
3. setlocal EnableDelayedExpansion
   
4. 
   
5. REM 功能：合并中、英字幕为中英双字幕
   
6. 
   
7. REM 先把原中、英字幕分别分解成N（字幕总条数）个临时文件
   
8. set /a n=1
   
9. for /f "delims=" %%a in (eng.srt) do (
   
10.         if "%%a"=="!n!" (
    
11.                 set /a nPrv=n, n+=1
    
12.                 echo !nPrv!>engtemp!nPrv!.txt
    
13.         ) else (
    
14.                 echo %%a>>engtemp!nPrv!.txt
    
15.         )
    
16. )
    
17. 
    
18. set /a n=1
    
19. for /f "delims=" %%a in (chs.srt) do (
    
20.         if "%%a"=="!n!" (
    
21.                 set /a nPrv=n, n+=1
    
22.                 echo !nPrv!>chstemp!nPrv!.txt
    
23.         ) else (
    
24.                 echo %%a>>chstemp!nPrv!.txt
    
25.         )
    
26. )
    
27. 
    
28. REM 把中英字幕合并输出
    
29. set /a n-=1
    
30. (
    
31. for /l %%a in (1,1,%n%) do (
    
32.         for /f "delims=" %%b in (chstemp%%a.txt) do echo %%b
    
33.         for /f "skip=2 delims=" %%c in (engtemp%%a.txt) do echo %%c
    
34.         echo.
    
35. )
    
36. )>chseng.srt
    
37. del /q /f chstemp*.txt
    
38. del /q /f engtemp*.txt
    
39. pause

复制代码

[ 本帖最后由 mac007cn 于 2011-2-15 16:03 编辑 ]

HLS

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set s=0
   
4. for /f "tokens=* delims=" %%t in (chs.srt) do (
   
5. set /a s+=1
   
6. set /a ss=!s!%%3+1
   
7. set /a sss=!s!-1
   
8. echo %%t>>chseng.srt
   
9. call set a=0
   
10. if !ss!==1 for /f "tokens=* delims=" %%r in (eng.srt) do (
    
11. set /a a+=1
    
12. if !a!==!s! echo %%r>>chseng.srt
    
13. if !a!==!s! echo. >>chseng.srt
    
14. )
    
15. )
    
16. pause

复制代码

速度可能不咋地

CrLf

多文件同时输出一直是个棘手的问题...我所知道的纯P的方案代价都不小

1. @echo off&setlocal enabledelayedexpansion
   
2. for %%z in (chs eng) do (
   
3.     set /a test=1,段=0
   
4.     for /f "delims=" %%a in (%%z) do (
   
5.         if "%%a"=="!test!" (set /a "段+=1","test=段+1") else (
   
6.             for %%i in (%%z!段!) do set %%i=!%%i!灬%%a
   
7.         )
   
8.     )
   
9. )
   
10. (for /l %%a in (1 1 !段!) do for /f "tokens=1* delims=灬" %%b in ('echo !chs%%a!^&echo !eng%%a!') do (
    
11.     if defined chs (
    
12.         set chs=
    
13.         echo %%c
    
14.         echo;
    
15.     ) else (
    
16.         echo %%a
    
17.         echo %%b
    
18.         set chs=1&set tmp=%%c
    
19.         for %%h in ("!tmp:灬=" "!") do echo %%~h
    
20.     )
    
21. ))>chseng
    
22. pause

复制代码

CrLf

唔，好像没必要全设为变量，可以分开做...

1. @echo off&setlocal enabledelayedexpansion>nul 3>chseng.txt
   
2. set /a test=1,段=0
   
3. for /f "delims=" %%a in (eng) do (
   
4.     if "%%a"=="!test!" (set /a "段+=1","test=段+1") else (
   
5.         for %%i in (eng!段!) do set %%i=!%%i!灬%%a
   
6.     )
   
7. )
   
8. set /a tmp=段,test=1,段=0
   
9. echo 1
   
10. for /f "delims=" %%a in (chs) do (
    
11.     if "%%a"=="!test!" (set /a "段+=1","test=段+1","e=段-1") else echo %%a
    
12. if "%%a"=="!段!" for %%z in (!e!) do for /f "tokens=1-3 delims=灬" %%b in ("!eng%%z!") do (
    
13. echo;%%c
    
14. echo;%%d
    
15. echo %%a
    
16. ))
    
17. for %%z in (!tmp!) do for /f "tokens=1-3 delims=灬" %%b in ("!eng%%z!") do (
    
18. echo;%%c
    
19. echo;%%d
    
20. echo;
    
21. )

复制代码

算法不好，有点打补丁的意思

netbenton

1. @echo off&setlocal enabledelayedexpansion
   
2. set num=1
   
3. 
   
4. for /f "delims=" %%a in (chs) do (
   
5.     if "%%a"=="!num!" (set L!num!=!str!&set str=&set/a num+=1) else (
   
6. 
   
7.         rem 处理有多行字幕的情况，加入双引号整理
   
8.         if defined str (set str=!str! "%%a") else (
   
9.                 rem 加入对str 变量的判断是为了丢弃 时间数据行
   
10.                 set "str= "
    
11.         )
    
12.     )
    
13. )
    
14. 
    
15. ::最后一个也要存入"数组"中
    
16. set L!num!=!str!
    
17. 
    
18. ::显示L(?) "数组"
    
19. ::看到编号比原来的大1了，但是，不用理会，在eng库进行的同样的操作，是可以同步的
    
20. set L
    
21. pause
    
22. 
    
23. 
    
24. set num=1
    
25. 
    
26. ::这里加入了保留空行的 findstr /n 功能
    
27. for /f "tokens=1* delims=:" %%a in ('findstr /n .* eng') do (
    
28.     echo;%%b
    
29. 
    
30. rem 所有数据都直接显示，仅在条件合适进插入中文的字幕数据
    
31. rem 注意echo后面分号，是为了显示空行的
    
32. 
    
33.     if "%%b"=="!num!" (set/a num+=1,n=1) else (
    
34.         set /a n+=1
    
35.         rem 在时间数据行后面
    
36.         if !n! equ 2 (
    
37.                 for %%i in (!num!) do (
    
38.                         rem 显示中文件数据，注意%%号后面的~，是为了去除双引号的
    
39.                         for %%j in (!L%%i!) do echo;%%~j
    
40.                 )
    
41.         )
    
42.     )
    
43. )
    
44. 
    
45. 
    
46. 
    
47. pause

复制代码

如果要处理文件很大时，全读入变量，处理起来会很慢的，下面的是可以分批读取的，

1. @echo off&setlocal enabledelayedexpansion
   
2. 
   
3. rem 可以在这个变量设置一次处理多少，可能设为 500~5000 较好
   
4. set 分段=2000
   
5. 
   
6. set num=1
   
7. set m=1
   
8. ::这里加入了保留空行的 findstr /n 功能
   
9. for /f "tokens=1* delims=:" %%a in ('findstr /n .* eng') do (
   
10.     echo;%%b
    
11. rem 所有数据都直接显示，仅在条件合适进插入中文的字幕数据
    
12. rem 注意echo后面分号，是为了显示空行的
    
13.     if "%%b"=="!num!" (set/a num+=1,n=1) else (
    
14. set /a n+=1
    
15. rem 在时间数据行后面
    
16. if !n! equ 2 (
    
17.   set /a num1=num-bnum
    
18.   rem 分批读取
    
19.   if not defined L!num1! call :NextPage
    
20.   for %%i in (!num1!) do (
    
21.    rem 显示中文件数据，注意%%号后面的~，是为了去除双引号的
    
22.    for %%j in (!L%%i!) do echo;%%~j
    
23.   )
    
24. )
    
25.     )
    
26. )
    
27. pause
    
28. exit/b
    
29. 
    
30. :NextPage   分批读取中文数据到变量L(?)  子过程
    
31. 
    
32. set/a bnum=%num%-1
    
33. set nv=0
    
34. set str=
    
35. rem 跳过已经读过的数据段
    
36. if defined sk set skip=skip=%sk%
    
37. for /f "%skip% tokens=1* delims=:" %%a in ('findstr /n .* chs') do (
    
38.     if "%%b"=="!m!" (
    
39. set L!nv!=!str:""=!
    
40. set str=
    
41. rem 以 N 个作为一批读取
    
42. if !nv! equ !分段! goto :中断
    
43. set/a m+=1,nv+=1
    
44. 
    
45.     ) else (
    
46. rem 处理有多行字幕的情况，加入双引号整理
    
47. if defined str (set str=!str! "%%b") else (
    
48.   rem 加入对str 变量的判断是为了丢弃 时间数据行
    
49.   set "str= "
    
50. )
    
51.     )
    
52.     set/a sk+=1
    
53. )
    
54. ::最后一个也要存入"数组"中
    
55. set L!nv!=!str:""=!
    
56. :中断
    
57. set num1=1
    
58. exit/b
    

复制代码

[ 本帖最后由 netbenton 于 2011-2-15 20:31 编辑 ]

CrLf

字幕文件能有多大...

lhsbqb

根据文件结构写的

1. @echo off
   
2. set /a num=1
   
3. 
   
4. setlocal enabledelayedexpansion
   
5. for /f "delims=" %%i in (eng.txt) do (
   
6. set /a num+=1
   
7.        
   
8.         set /a a=!num!%%4
   
9.         set /a b=!num!-2
   
10. 
    
11.         if !a!==0 (
    
12.                 call :sub2 !b!
    
13.                 set /a num+=1
    
14.         )
    
15. 
    
16.         echo %%i>>chseng.txt
    
17. 
    
18.         if !a!==0 (
    
19.                 echo. >>chseng.txt
    
20.         )
    
21. 
    
22. )
    
23. 
    
24. :sub1
    
25. goto :eof
    
26. 
    
27. :sub2
    
28. for /f "skip=%1 delims=" %%j in (chs.txt) do (
    
29. echo>>chseng.txt %%j
    
30. goto :sub1
    
31. )
    
32. goto :eof
    
33. 
    
34. pause

复制代码

lvsehuaxue

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. (for /f "delims=" %%i in (chs) do (
   
4.     set /a n+=1
   
5.     set .!n!=%%i
   
6. )
   
7. for /f "delims=" %%i in (eng) do (
   
8.     set /a m+=1
   
9.     set /a x=!m!%%3
   
10.     echo %%i
    
11.     if !x! == 0 call echo %%.!m!%%&echo.
    
12. ))>chseng.str
    
13. pause
    

复制代码

[ 本帖最后由 lvsehuaxue 于 2011-2-16 18:30 编辑 ]

batman

建议楼主参照此贴：
http://www.bathome.net/viewthrea ... hlight=%BD%BB%CC%E6