用TAW4导入外挂srt字幕无反应

xiaohai003

版主你好！我下载了一个MKV文件和相应的SRT中文字幕文件，用MKVtoolnix4.3查看过，里面只有一个视频和一个音频文件。于是我试着用TAW4导入MKV，在字幕编辑里导入下载的同名的srt字幕文件，却没反应，见附图
我在论坛里找到“[已解决 求助，用TAW4，为什么不认srt字幕？”一文，用记事本打开并仔细检查了我的字幕文件，只在最前面少了一个数字1,其它都符合你说的规范，我加上“1”后存盘，重新导入，但是在TAW的字幕编辑里还是无法显示字幕。
请帮忙！先谢！
附字幕文件 [国家地理频道.人体内旅行].national.geographic.inside.the.living.body.720p.hdtv.x.zip (29.29 KB, 下载次数: 15)

2012-2-7 13:34 上传

点击文件名下载附件

IsaacZ

已经测试，发现每行字末尾均多出数个空格，删除后即可正常导入。附修改后的字幕文件：

[国家地理频道.人体内旅行].rar (27.48 KB, 下载次数: 4)

2012-2-7 14:47 上传

点击文件名下载附件

xiaohai003

楼主回复神速，感激啊！兄弟！

lijianwen

IsaacZ 发表于 2012-2-7 14:44

                               
登录/注册后可看大图

已经测试，发现每行字末尾均多出数个空格，删除后即可正常导入。附修改后的字幕文件：

每行末尾都多出空格，快速删除那么多空格，一定有简便方法了，老大能不能点拨一下？

伤心的笔

直接用记事本的替换就行了，我试了一次。或者用其他srt编辑器打开并另存。

IsaacZ

伤心的笔 发表于 2012-2-7 21:47

                               
登录/注册后可看大图

直接用记事本的替换就行了，我试了一次。或者用其他srt编辑器打开并另存。

直接用记事本替换的话，需要小心不能删除了时间轴之间和英文单词之间的空格。

IsaacZ

lijianwen 发表于 2012-2-7 21:31

                               
登录/注册后可看大图

每行末尾都多出空格，快速删除那么多空格，一定有简便方法了，老大能不能点拨一下？

我是利用Microsoft Word来做这个工作的。平常对文档进行规格化时，积累制作了几个宏，其中一个宏可以在瞬间将多个空格变成一个空格，另一个宏可以瞬间替换所有行首和行尾的空格，将字幕文本复制进入Word，点两下就完成空格消除了。复制回来保存为srt文件即可。


录制的宏，在Word的VB编辑器中显示如下：

第一个：多个空格变1个空格

1. Sub 多个空格变1个空格()
   
2. '
   
3. ' 多个空格变1个空格 Macro
   
4. ' 宏 "多个空格变1个空格" 在 2003-4-21 由 IsaacZ 录制并修改
   
5. '
   
6.     Selection.Find.ClearFormatting
   
7.     Selection.Find.Replacement.ClearFormatting
   
8.     With Selection.Find
   
9.         .Text = "     "
   
10.         .Replacement.Text = " "
    
11.         .Forward = True
    
12.         .Wrap = wdFindContinue
    
13.         .Format = False
    
14.         .MatchCase = False
    
15.         .MatchWholeWord = False
    
16.         .MatchByte = True
    
17.         .CorrectHangulEndings = False
    
18.         .MatchAllWordForms = False
    
19.         .MatchSoundsLike = False
    
20.         .MatchWildcards = False
    
21.         .MatchFuzzy = False
    
22.     End With
    
23.     Selection.Find.Execute Replace:=wdReplaceAll
    
24.     With Selection.Find
    
25.         .Text = "   "
    
26.         .Replacement.Text = " "
    
27.         .Forward = True
    
28.         .Wrap = wdFindContinue
    
29.         .Format = False
    
30.         .MatchCase = False
    
31.         .MatchWholeWord = False
    
32.         .MatchByte = True
    
33.         .CorrectHangulEndings = False
    
34.         .MatchAllWordForms = False
    
35.         .MatchSoundsLike = False
    
36.         .MatchWildcards = False
    
37.         .MatchFuzzy = False
    
38.     End With
    
39.     Selection.Find.Execute Replace:=wdReplaceAll
    
40.     With Selection.Find
    
41.         .Text = "  "
    
42.         .Replacement.Text = " "
    
43.         .Forward = True
    
44.         .Wrap = wdFindContinue
    
45.         .Format = False
    
46.         .MatchCase = False
    
47.         .MatchWholeWord = False
    
48.         .MatchByte = True
    
49.         .CorrectHangulEndings = False
    
50.         .MatchAllWordForms = False
    
51.         .MatchSoundsLike = False
    
52.         .MatchWildcards = False
    
53.         .MatchFuzzy = False
    
54.     End With
    
55.     Selection.Find.Execute Replace:=wdReplaceAll
    
56. End Sub
    

复制代码

另一个：清理行首行尾空格与制表符

1. Sub 清理行首行尾空格与制表符()
   
2. '
   
3. ' 清理行首行尾空格与制表符 Macro
   
4. ' 宏“删除行首行尾空格”在 2003-4-5 由 IsaacZ 录制并修改
   
5. '
   
6.     Selection.Find.ClearFormatting
   
7.     Selection.Find.Replacement.ClearFormatting
   
8.     With Selection.Find
   
9.         .Text = "^p "
   
10.         .Replacement.Text = "^p"
    
11.         .Forward = True
    
12.         .Wrap = wdFindContinue
    
13.         .Format = False
    
14.         .MatchCase = False
    
15.         .MatchWholeWord = False
    
16.         .MatchByte = True
    
17.         .CorrectHangulEndings = False
    
18.         .MatchAllWordForms = False
    
19.         .MatchSoundsLike = False
    
20.         .MatchWildcards = False
    
21.         .MatchFuzzy = False
    
22.     End With
    
23.     Selection.Find.Execute Replace:=wdReplaceAll
    
24.     With Selection.Find
    
25.         .Text = " ^p"
    
26.         .Replacement.Text = "^p"
    
27.         .Forward = True
    
28.         .Wrap = wdFindContinue
    
29.         .Format = False
    
30.         .MatchCase = False
    
31.         .MatchWholeWord = False
    
32.         .MatchByte = True
    
33.         .CorrectHangulEndings = False
    
34.         .MatchAllWordForms = False
    
35.         .MatchSoundsLike = False
    
36.         .MatchWildcards = False
    
37.         .MatchFuzzy = False
    
38.     End With
    
39.     Selection.Find.Execute Replace:=wdReplaceAll
    
40.     With Selection.Find
    
41.         .Text = "^l "
    
42.         .Replacement.Text = "^l"
    
43.         .Forward = True
    
44.         .Wrap = wdFindContinue
    
45.         .Format = False
    
46.         .MatchCase = False
    
47.         .MatchWholeWord = False
    
48.         .MatchByte = True
    
49.         .CorrectHangulEndings = False
    
50.         .MatchAllWordForms = False
    
51.         .MatchSoundsLike = False
    
52.         .MatchWildcards = False
    
53.         .MatchFuzzy = False
    
54.     End With
    
55.     Selection.Find.Execute Replace:=wdReplaceAll
    
56.     With Selection.Find
    
57.         .Text = " ^l"
    
58.         .Replacement.Text = "^l"
    
59.         .Forward = True
    
60.         .Wrap = wdFindContinue
    
61.         .Format = False
    
62.         .MatchCase = False
    
63.         .MatchWholeWord = False
    
64.         .MatchByte = True
    
65.         .CorrectHangulEndings = False
    
66.         .MatchAllWordForms = False
    
67.         .MatchSoundsLike = False
    
68.         .MatchWildcards = False
    
69.         .MatchFuzzy = False
    
70.     End With
    
71.     Selection.Find.Execute Replace:=wdReplaceAll
    
72.     With Selection.Find
    
73.         .Text = "^p^t"
    
74.         .Replacement.Text = "^p"
    
75.         .Forward = True
    
76.         .Wrap = wdFindContinue
    
77.         .Format = False
    
78.         .MatchCase = False
    
79.         .MatchWholeWord = False
    
80.         .MatchByte = True
    
81.         .CorrectHangulEndings = False
    
82.         .MatchAllWordForms = False
    
83.         .MatchSoundsLike = False
    
84.         .MatchWildcards = False
    
85.         .MatchFuzzy = False
    
86.     End With
    
87.     Selection.Find.Execute Replace:=wdReplaceAll
    
88.     With Selection.Find
    
89.         .Text = "^t^p"
    
90.         .Replacement.Text = "^p"
    
91.         .Forward = True
    
92.         .Wrap = wdFindContinue
    
93.         .Format = False
    
94.         .MatchCase = False
    
95.         .MatchWholeWord = False
    
96.         .MatchByte = True
    
97.         .CorrectHangulEndings = False
    
98.         .MatchAllWordForms = False
    
99.         .MatchSoundsLike = False
    
100.         .MatchWildcards = False
     
101.         .MatchFuzzy = False
     
102.     End With
     
103.     Selection.Find.Execute Replace:=wdReplaceAll
     
104. End Sub
     

复制代码

lijianwen

IsaacZ 发表于 2012-2-7 22:11

                               
登录/注册后可看大图

我是利用Microsoft Word来做这个工作的。平常对文档进行规格化时，积累制作了几个宏，其中一个宏可以在瞬 ...

谢谢版主解答，有学到了一招。
记得以前chnxn有个编写CUE的帖子中，也提到搜索特定字符，快速修改的方法。平时用极少用word，这次动手实践一下，加深印象，方便以后使用。

伤心的笔

IsaacZ 发表于 2012-2-7 22:02

                               
登录/注册后可看大图

直接用记事本替换的话，需要小心不能删除了时间轴之间和英文单词之间的空格。

我试过一次了，完全可以。

IsaacZ

伤心的笔 发表于 2012-2-8 08:15

                               
登录/注册后可看大图

我试过一次了，完全可以。

如果是中文字幕，可以用记事本直接删除所有空格，然后恢复“-->”左右的空格为即可（替换【-->】为【 --> 】）。

如果是英文字幕，则不可直接删除所有空格，这样会丢失英文单词间的空格。针对英文字幕，可以用 Editplus 之类的文本编辑器，利用正则表达式功能，将【 \n】替换为【\n】，就可以删除所有行尾空格，行尾有多个空格就多次替换，直到搜索结果为0。如图：