当前位置:首页 » 外语电影 » 电影视频字幕翻译
扩展阅读
儿童关进监狱学校的电影 2025-10-20 08:58:22
阿德里安布劳迪最新电影 2025-10-20 08:52:59

电影视频字幕翻译

发布时间: 2023-05-14 20:16:38

⑴ 电影字幕翻译怎么找译本

1.如果有英文字幕,可慧余散以前氏找字幕组的普通翻译来做中文字幕;
2.如果没有英文字幕,需要把视频文毁唯件发给字幕组的听译,听译听完后可以直接作出听译版的中文字幕,或者是英文字幕。

⑵ 电影字幕翻译有哪些技巧策略

大体分四步,
一是先弄懂原文,
二是翻译成通顺的汉语,
三是结合语境(上下文、历史背景、语气甚至口音。。。)进一步修改汉语,如果是口语还要注意要做到口语化,你看《伟大的卫国战争》里做的就不好:同一个德国将军,有一集译作:范 梅勒廷,另一集译作:冯 梅林金,同一个苏联飞行员一集译作阔日杜布,另一集译作科杰杜博。这种情况力求避免。
四是更高的要求,对口型,只在配音时用,不多说了
希望能帮到你

⑶ 你好,请问,怎样才能把英文片翻译成中文字幕或汉语语音

英文片翻译成中文字幕比较容易:到字幕网站找到英文字幕,选择srt,ass 或者 ssa 格式的字幕文件,用记事本打开,对照英文,手动翻译成中文;或者使用翻译软件来自动翻译,在手动校对一下,保存即可。然后用支持外挂字幕的播放软件,例如完美解码、暴风影音、讯雷看看等,播放电影文件,自动或手动加载外挂字幕。

翻译为汉语语音,需要学习一定的配音知识,还需要原始音轨,对于一般的电影爱好者来说,难以实现。

⑷ 给视频翻译字幕可以用哪些软件

我不算很熟悉视频翻译字幕,只能勉力为之。我知道我的解读也许有错,我也邀请了我熟悉的朋友来回答。他比我懂得更全,应该有帮助。

1.威力导演(PowerDirector):这是一个非线性视频编辑软件,由讯连科技发布,用户可以使用七截取、编辑、特效、叠加、标题、音频输出、视频、图片、声音和其他材料组合成视频文件,甚至可以直接制作成DVD和VCD光盘的软件!

最后,我希望我的回答能对你有所帮助!

⑸ 有没有字幕翻译软件

有的,比如SRT Translator软件。
SRT Translator软件是一款字幕翻译的软件,支持多种语言翻译。
字幕组简介:字幕组(英语:Fansub group)是指将外国影片配上本国字幕的爱好者团体。是一种诞生于互联网时代的新事物,属于一种民间自发的个人团体组织。
翻译软件简介:翻译软件,将一种语言翻译为另一种语言的软件,分为在线翻译软件和本地翻译软件。

⑹ 有可以翻译视频字幕的软件么

有时从网上下载到新的电影,却没有中文字幕,好不容易找到个字幕却是英文版的,本程序原理是调用谷哥的翻译功能,仅调用了英翻汉功能,如果需要其他语言可回贴说明一下,改起来应该不难。为便于修改,使用了VBS来写,随时随地可修改.....

1、生成程序:把下列语句存于一个纯文本文件(比如用你系统的“记事本”粘贴进去再存成“字幕翻译.vbs”即可使用。
2、使用方法:把英文字幕的“.srt”文件用鼠标拖到这个程序上松手即可开始自动翻译,翻译完成后自动生成一个同名文件的汉字字幕文件。

'程序调用谷哥的翻译功能,仅调用了英翻汉功能,如果需要其他语言请回贴说明一下,改起来应该不难。
'为便于修改,使用了VBS来写,随时随地可修改……
'使用方法是把“英文字幕。srt”用鼠标拖到这个程序上松手即可开始自动翻译。
'[程序开始]
Dim WshShell,file_name,str,val(5000,3),reg,wmi
Set WshShell=WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application") '建立Shell.Applciation 对象
Set Shell=CreateObject("Shell.Application")
Set objArgs=WScript.Arguments'取得拖入的文件名
on error resume next
Set wmiService = GetObject("winmgmts:\\.\root\cimv2") '关闭内存中未完全退出占用小于8M的IE
Set wmiObjects = wmiService.ExecQuery("SELECT * FROM Win32_process where caption='iexplore.exe'")
if wmiObjects.count > 0 then
For Each wmiObject In wmiObjects
if (wmiObject.workingsetsize/1048576) < 80 then wmiObject.terminate()
next
End if
file_name=""
if objArgs(0)=Empty then file_name="No"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","","REG_SZ" '去除标题栏后IE说明
on error goto 0
start_time=now()
if file_name="No" then msgbox "未找到匹配文件,请拖动字幕文件到本程序。":Wscript.Quit
set ie=wscript.createobject("internetexplorer.application","event_") '创建ie对象'
Set google = WScript.CreateObject("InternetExplorer.Application")
google.visible = false
WshShell.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title"'恢复IE标题栏说明为Internet Exporer
'ie.fullscreen=0:ie.menubar=0:ie.addressbar=0:ie.toolbar=0:ie.statusbar=0:ie.resizable=1
' 不使用全屏 '取消菜单栏 '取消地址栏 '取消工具栏 '取消状态栏 '允许用户改变窗口大小
ie.width=500:ie.height=500:ie.top=2:ie.navigate "about:blank" '宽 高 打开空白页面
ie.document.write "<html><head><title>- 字幕英翻汉程序</title></head><body>"
ie.document.write "<div id=right> "
ie.document.write "<a target=_BLANK href=http://bbs.dp168.com/thread-108654-1-1.html style=font-size:12px;>论坛</a></div><br>"
set wnd=ie.document.parentwindow '设置wnd为窗口对象'
set id=ie.document.all '设置id为document中全部对象的集合'
tmp1=InstrRev(objArgs(0),".")-1 '计算中间应使用的中文字幕文件名
if tmp1>0 then
if instr(objArgs(0),"eng") then
file_name=replace(objArgs(0),"eng","chs")
else
file_name=left(objArgs(0),tmp1) & ".chs" & right(objArgs(0),len(objArgs(0))-tmp1)
end if
else
file_name=objArgs(0) & "chs.txt"
end if
on error resume next
objFSO.deletefile file_name,true
on error goto 0
'msgbox file_name
txt=""
Set tmp1 = objFSO.OpenTextFile ( objArgs(0),1) '打开英文字幕原始文件准备读取
txt = trim(tmp1.ReadAll) '读所有进内存
set tmp1=nothing
for i=1 to 3 '修正头部出错
line=mid(txt,i,1)
if asc(line)=31 then exit for
next
txt="1" & vbCrLf & right(txt,len(txt)-i)
reg=split(txt,vbCrLf)'在内存中提取已读入的注册表关键字并放入val
count=1
ie.document.write " <textarea rows=15 cols=35 id=txt></textarea>"
ie.visible=1 '窗口可见
for i=0 to UBound(reg) '翻译开始:读一行处理一行
for j=1 to UBound(reg)
if IsNumeric(reg(i)) then if cint(reg(i))=count then exit for
i=i+1
next '出循环时已找到第count句
i=i+1:if i>UBound(reg) then exit for
on error resume next
while instr(reg(i),"-->")=0 and i<UBound(reg)
i=i+1
wend'如果行号是第i,并且下行有表示时间轴的"-->"则后面是文字
if err.number<>0 then
msgbox err.number
err.clear
end if
on error goto 0
val(count,0)=reg(i)'出循环时已找到有"-->"的时间轴
i=i+1:str=""
if i>UBound(reg) and count<2 then
if count<2 then
ie.document.write "这个字幕格式不能被识别:<br>" & file_name & "。<br>"
Wscript.Quit
end if
exit for
end if
for j=1 to UBound(reg)
if trim(reg(i))>"" then str=str & reg(i) & vbCrLf
if (i+1)>UBound(reg) then exit for
if IsNumeric(reg(i+1)) then if int(reg(i+1))=count+1 then exit for
i=i+1:if i>UBound(reg) then exit for
next
if j=UBound(reg) then str="Not find then string."
if right(str,1)=chr(10) or right(str,1)=chr(13) then str=left(str,len(str)-1)
if right(str,1)=chr(10) or right(str,1)=chr(13) then str=left(str,len(str)-1)
val(count,1)=str
val(count,2)=trans(str)
ie.document.getElementById("txt")。value=count & vbCrLf & val(count,1) & vbCrLf & val(count,2) & vbCrLf
count=count+1
next
txt=""
for i=1 to count-1
txt=txt & i & vbCrLf & val(i,0) & vbCrLf & val(i,1)
txt=txt & vbCrLf & val(i,2) & vbCrLf & vbCrLf
next
Set tmp1=objFSO.OpenTextFile(file_name,8,True,0) '打开TXT准备写入
txt=txt & vbCrLf & vbCrLf
tmp1.write(txt)
tmp1.close
i=datediff("s",start_time,now()) :if i>60 then j=(i mod 60) & "分" & int(i/60) & "秒" else j=i & "秒"
k=int(i/(count-1)*100)/100:if k<1 then k="0" & k
j=j & "平均每句" & k & "秒"
ie.document.write "<br><br> 翻译" & count-1 & "句用去" & j & ",请直接"
ie.document.write "关闭本窗口。<br> 已生成" & file_name & "。<br><br><br>"
ie.document.parentwindow.scrollby 0,150
Wscript.Quit
'程序是否在运行
FunctiOn is_Process(ProcessName) '程序是否在运行
dim Process_n,prog
Set prog=getobject("winmgmts:\\.")。instancesof("win32_process")
For Each Process_n In prog
If LCase(Process_n.name)=LCase(ProcessName) Then
is_Process=1
Else
is_Process=0
End If
Next
set prog=nothing
End Function
'使用谷歌翻译对应的句子,请注意之前使用了以下两句
'Set google = WScript.CreateObject("InternetExplorer.Application")
'google.visible = false
FunctiOn trans(str_in)
dim i,j,str_out,strURL,ping_time,tmpval
if trim(str_in)="" then trans="翻译字符串不能为空":Exit Function
str_in=trim(replace(str_in,vbCrLf,""))
strURL=trim(replace(str_in," ","%20"))
strURL = "http://translate.google.cn/?sl=auto&tl=zh-CN#en/zh-CN/" & strURL & ""
google.navigate strURL
Set objWMI = GetObject("winmgmts:\\.")
Set colPings = objWMI.ExecQuery ("Select * From Win32_PingStatus where Address = '" & "translate.google.cn" & "'")
ping_time=9999
On error resume next
For Each objPing in colPings
ping_time=objPing.ResponseTime+0
Next
On error goto 0
if ping_time >2000 then trans="翻译服务器太慢,请改时段翻译":Exit Function
for i=1 to 5
trans="":str_out="":tmpval=0
wscript.sleep ping_time*3
on error resume next
trans = google.document.body.innerText
on error goto 0
tmpval=instr(trans,"地址,或者上传文档")+32 '之前定义39结果少取了3个,36也少取4个?
if tmpval>0 then
trans=right(trans,len(trans)-tmpval)
tmpval=instr(trans,"正式用语")-3
if tmpval>0 then
trans=left(trans,tmpval)
tmpval=instr(trans,"仍然翻译")+4
trans=right(trans,len(trans)-tmpval)
tmpval=instr(trans,str_in)
if tmpval>0 then trans=right(trans,len(trans)-tmpval-len(str_in))
while right(trans,1)=chr(10) or right(trans,1)=chr(13)
trans=left(trans,len(trans)-1)
wend
tmpval=instr(trans,vbCrLf & vbCrLf)
if tmpval>0 then trans=right(trans,len(trans)-tmpval)
while len(trans)>len(replace(trans,vbCrLf & vbCrLf,vbCrLf))
trans=replace(trans,vbCrLf & vbCrLf,vbCrLf)
trans=trim(trans)
wend
trans=replace(trans,"<I>","<i>")
trans=replace(trans,"</ I>","</i>")
if left(trans,1)=chr(10) or left(trans,1)=chr(13) then trans=right(trans,len(trans)-1)
if left(trans,1)=chr(10) or left(trans,1)=chr(13) then trans=right(trans,len(trans)-1)
if left(trans,1)=chr(10) or left(trans,1)=chr(13) then trans=right(trans,len(trans)-1)
if left(trans,1)=chr(10) or left(trans,1)=chr(13) then trans=right(trans,len(trans)-1)
if right(trans,1)=chr(10) or right(trans,1)=chr(13) then trans=left(trans,len(trans)-1)
if right(trans,1)=chr(10) or right(trans,1)=chr(13) then trans=left(trans,len(trans)-1)
if trans>"" then exit for
end if
end if
next
if trans="" then trans="不知道为什么,反复试了5次都取不出翻译结果"
End Function
'[程序结束]

⑺ 有没有办法把电影中的英文字幕变成中文

你应该装有比如说‘
暴风影音
’这类功能强大的播放器。
然后下载字幕文件,下载字幕文件就不说了吧。然后暴风影音有选项可以换字幕。这只是个方法,播放器有很多,比如说金山影霸6也行,方法都一样。

⑻ 电影里面的双语字幕是怎么做

这个问题简单,绘影字幕网站(官网地址:网页链接) 强大的新功能就是双语字幕制作

而且非常简单,易操作!不用专业知识也可以制作双语字幕!

之前我们还只能自动识别中文和英文,为视频加字幕。

现在不仅有翻译功能,还可以直接制作双语字幕

话不多说,直接上图。

以原视频为中文,需要翻译的语种为英语,举例。

第一步:上传视频,勾选进行字幕翻译,①选择原视频语种,②选择要翻译的语种,设置每行字数限制,选择下一步,就可以制作双语字幕!

制作起来非常方便!字幕制作非常高效!

⑼ 用什么软件可以把视频上的英语翻译过来

没有任何软件可以把视频上的英语翻译过来。

英语翻译,是指用英语来表达另一种语言或用另一种语言表达英语的语言之间互相表达的活动。英语翻译既包括中译英、英译中,同时也包括英韩互译、日英互译以及英语和其它语种的互译。

英语翻译中有直译和意义两种基本翻译方法,另有增译法、省译法、转译法、拆句法、合并法、正译法、反译法、倒置法、包孕法等技巧。

⑽ 字幕翻译的软件边看边翻译

一边看视频一边实时翻译的软件有 《闪字幕》。在这款可以快速为视频添加字幕的软件,运用了高端的字幕添加功能,用户可以添加各种酷炫文字和动画不同的字体,歌曲,字母。

闪字幕App是一款视频加字幕软件,这里为我们提供了非常丰富的视频制作功能,大家可以通过语音输入自己需要上传的字幕功能,字幕的样式也非常多种多样,添加了许多炫酷的文字动画,还可以添加双语字幕,软件功能都是免费的。

随着时间的推移,这逐渐演变为更接近于我们今天所认识的字幕,电影制作人意识到,这些文字可以被翻译成其他语言,使他们的作品能够被全世界的观众所接受。

当录音被引入,有声对话的电影"有声电影"开始流行时,就不再需要中间字幕了。然而,电影制片人面临着国际观众如何理解对话的问题。因此,字幕翻译应运而生。