如何分割一个字幕文件为两个文件 - 中国DOS联盟论坛

因为我下载了一个电影,分为cd1和cd2,但是字幕文件只有一个File.srt.
为了我的cd2可以使用字幕,需要把cd2的字幕部分截取出来,再把时间对应的偏移一下.
所以需要把文件File.srt分成两个:File1.srt和File2.srt

例子如下,时间的部分我就选了30秒作为偏移了,没有精确到毫秒:
File.srt文件是这样的:

1
00:00:02,700 --> 00:00:04,700
WWW.CHDTV.NET

2
00:00:08,700 --> 00:00:12,700
-=影片压制:阿步@CHD联盟=-
-=字幕制作：特大碗牛肉面@CHD联盟=-

3
00:00:23,420 --> 00:00:26,116
(澳洲雪梨)

4
00:00:33,830 --> 00:00:35,388
(拜塞制药厂)

5
00:00:38,869 --> 00:00:42,828
狄米特，每个英雄的诞生

6
00:00:43,507 --> 00:00:46,408
都有一个必备的条件

7
00:00:48,011 --> 00:00:48,943
一个坏人

8
00:00:49,980 --> 00:00:54,474
为了我们的英雄贝雷明

分割成:File1.srt

1
00:00:02,700 --> 00:00:04,700
WWW.CHDTV.NET

2
00:00:08,700 --> 00:00:12,700
-=影片压制:阿步@CHD联盟=-
-=字幕制作：特大碗牛肉面@CHD联盟=-

3
00:00:23,420 --> 00:00:26,116
(澳洲雪梨)

和File2.srt

1
00:00:03,830 --> 00:00:05,388
(拜塞制药厂)

2
00:00:08,869 --> 00:00:12,828
狄米特，每个英雄的诞生

3
00:00:13,507 --> 00:00:16,408
都有一个必备的条件

4
00:00:18,011 --> 00:00:18,943
一个坏人

5
00:00:19,980 --> 00:00:24,474
为了我们的英雄贝雷明

[ Last edited by sinbao on 2007-10-13 at 07:04 PM ]

BEGIN{
#设置时间差,根据自己的情况设定
	times=30;

#设置生成文件名,根据自己的情况设定
	file1="file1.txt";file2="file2.txt";
	
#调用内部函数system删除已经存在的file1和file2;
	system("if exist " file1 " del " file1);system("if exist " file2 " del " file2);
}

#处理时间标签的行
function deal_with(fileline){
	split(fileline,myarray)
	return sprintf("%s %s %s",compute(myarray),myarray,compute(myarray));
}

#计算时间差并返回结果
function compute(lineTime){
	n=split(lineTime,timeArray,//);
	timeArray-=times;
	if(timeArray<0){
		timeArray-=1;
		if(timeArray<0){timeArray-=1;timeArray+=60;}
		timeArray+=60;
	}
	t=0
	return sprintf("%02s:%02s:%02s,%s",timeArray,timeArray,timeArray,timeArray);
}

#主程序部分,对file.srt文件进行分析并处理
{
	if($0~/^+$/){
		num+=1;
		if(num<4){
			files=file1;
		}else{
			$0=++new_num;
			files=file2;
		}
	}

	if(num>3){
		if($1~/^:/){
			print deal_with($0)>files;
		}else{print $0>files;}
	}else{print $0>files;}
}

将以上脚本保存为split_file.awk，然后在命令行执行：

gawk -f split_file.awk file.srt

即可。

需要用到外部工具Gawk.exe，在这里下载：
http://www.cn-dos.net/forum/viewthread.php?tid=31098&page=1#pid205571

http://zhenlove.com.cn/cndos/

因上传木马病毒，该空间被冻结

提供一个公共的邮箱:
cn_dos_public@126.com
密码:chinados
里面有gawk.rar,请下载之后不要删除了.

第1楼　sinbao	发表于 2007-10-13 18:58
初级用户　发帖 73　积分 184
如何分割一个字幕文件为两个文件因为我下载了一个电影,分为cd1和cd2,但是字幕文件只有一个File.srt. 为了我的cd2可以使用字幕,需要把cd2的字幕部分截取出来,再把时间对应的偏移一下. 所以需要把文件File.srt分成两个:File1.srt和File2.srt 例子如下,时间的部分我就选了30秒作为偏移了,没有精确到毫秒: File.srt文件是这样的: 1 00:00:02,700 --> 00:00:04,700 WWW.CHDTV.NET 2 00:00:08,700 --> 00:00:12,700 -=影片压制:阿步@CHD联盟=- -=字幕制作：特大碗牛肉面@CHD联盟=- 3 00:00:23,420 --> 00:00:26,116 (澳洲雪梨) 4 00:00:33,830 --> 00:00:35,388 (拜塞制药厂) 5 00:00:38,869 --> 00:00:42,828 狄米特，每个英雄的诞生 6 00:00:43,507 --> 00:00:46,408 都有一个必备的条件 7 00:00:48,011 --> 00:00:48,943 一个坏人 8 00:00:49,980 --> 00:00:54,474 为了我们的英雄贝雷明分割成:File1.srt 1 00:00:02,700 --> 00:00:04,700 WWW.CHDTV.NET 2 00:00:08,700 --> 00:00:12,700 -=影片压制:阿步@CHD联盟=- -=字幕制作：特大碗牛肉面@CHD联盟=- 3 00:00:23,420 --> 00:00:26,116 (澳洲雪梨) 和File2.srt 1 00:00:03,830 --> 00:00:05,388 (拜塞制药厂) 2 00:00:08,869 --> 00:00:12,828 狄米特，每个英雄的诞生 3 00:00:13,507 --> 00:00:16,408 都有一个必备的条件 4 00:00:18,011 --> 00:00:18,943 一个坏人 5 00:00:19,980 --> 00:00:24,474 为了我们的英雄贝雷明 [ Last edited by sinbao on 2007-10-13 at 07:04 PM ]

第2楼　lxmxn	发表于 2007-10-13 20:42
版主　发帖 4,938　积分 11,386
BEGIN{ #设置时间差,根据自己的情况设定 times=30; #设置生成文件名,根据自己的情况设定 file1="file1.txt";file2="file2.txt"; #调用内部函数system删除已经存在的file1和file2; system("if exist " file1 " del " file1);system("if exist " file2 " del " file2); } #处理时间标签的行 function deal_with(fileline){ split(fileline,myarray) return sprintf("%s %s %s",compute(myarray),myarray,compute(myarray)); } #计算时间差并返回结果 function compute(lineTime){ n=split(lineTime,timeArray,//); timeArray-=times; if(timeArray<0){ timeArray-=1; if(timeArray<0){timeArray-=1;timeArray+=60;} timeArray+=60; } t=0 return sprintf("%02s:%02s:%02s,%s",timeArray,timeArray,timeArray,timeArray); } #主程序部分,对file.srt文件进行分析并处理 { if($0~/^+$/){ num+=1; if(num<4){ files=file1; }else{ $0=++new_num; files=file2; } } if(num>3){ if($1~/^:/){ print deal_with($0)>files; }else{print $0>files;} }else{print $0>files;} } 将以上脚本保存为split_file.awk，然后在命令行执行： gawk -f split_file.awk file.srt 即可。需要用到外部工具Gawk.exe，在这里下载： http://www.cn-dos.net/forum/viewthread.php?tid=31098&page=1#pid205571

第3楼　sinbao	发表于 2007-10-13 22:15
初级用户　发帖 73　积分 184
http://zhenlove.com.cn/cndos/fileup/files/gawk.rar 连接似乎失效了...

第4楼　zh159	发表于 2007-10-13 22:32
金牌会员　发帖 1,467　积分 3,687
http://zhenlove.com.cn/cndos/ 因上传木马病毒，该空间被冻结

第5楼　lxmxn	发表于 2007-10-13 22:54
版主　发帖 4,938　积分 11,386
提供一个公共的邮箱: cn_dos_public@126.com 密码:chinados 里面有gawk.rar,请下载之后不要删除了.