① 看无字幕的电影翻译软件
1、《绘影字幕》
这个软件是专门为了生成字幕而设计的软件。只需要将视频上传,即可直接自动生成字幕。而且最重要的是双语字幕,可以自动识别日语,这对于我们热爱学习的小伙伴而言是不可多得的好消息。
2、《帮帮字幕翻译》
这款软件大家从名字也能够看得出来,这是一款专门为翻译字幕而设计的软件。小编推荐的原因也是十分简单,就是因为专业啊,这个软件不仅是可以同步翻译日语,还可以同步翻译韩语等多国语种。
3、《字说视频字幕动画》
这款软件其最大的特色在于不仅可以日洞埋语视频同步翻译,而且字幕还拥有各种模板和字体。这对于咱们学习外语来说,不仅是听觉上的享受,视觉上的享受也是更上一层楼了。
4、《人人译视界》
这款软件是小编强烈推荐的日语视频同步翻译字幕的软件。因为这软件是非常专业的后期制作软件。可以直接解决我们悄颤激的学习需求。而且还有时间轴,视频压制等功能。让我们在学习外语之余还能学习学习视频后期制作。
5、《音频提取大师》
这款软件想必大家见到名字也都知道其主要的功能了。这是专门针对音频,视频类的文件直接提取成字幕的软件。这对启袜于做自媒体的小伙伴来说是非常友好的。
6、《快字幕视频制作》
这款软件是主要针对于视频制作字幕的。不仅语音识别度精准,而且还拥有多种字体的字幕。这对于需要做后期的小伙伴来说又是一个一步到位的好软件。
② 外国电影在线翻译软件
现在很多国外电影都有中文字幕,如果你下的电影没有字幕的话可以去电驴等网站下载,根本没必要用翻译软件,而且个人觉得外文电影还是原汁原味的好,中文配音听起来总是有点怪怪的,最后如果你不满意可以忽视这个答案,不要说一些不文明的问候语,谢谢
③ 有可以翻译视频字幕的软件么
有时从网上下载到新的电影,却没有中文字幕,好不容易找到个字幕却是英文版的,本程序原理是调用谷哥的翻译功能,仅调用了英翻汉功能,如果需要其他语言可回贴说明一下,改起来应该不难。为便于修改,使用了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
'[程序结束]
④ 我的爱人今天生日,希望制作个以生活照片为记录的小电影给她.希望大家帮我翻译成英文.万分感情!
Since the day I met you,we met,we became lover from friend. You have taken away all my heart. I am no longer a self-love man,because I love you very much. Each time to meet with you,I can deeply feel that there are many butterflies rise and dance in a happy mood in my heart,with my whole heart.From now on,my heart is no longer lonely and cold.Becayse of you,there seems to be many little light flowers growing in my heart everyday.Thank you, my honey.It is you who make my life more colourful.
有些地方翻译的不是很好虚激,见谅裤携。可胡誉伏以做个参考。
⑤ 电影翻译技巧
影视字幕翻译与文学作品翻译有着本质的区别。文学作品的要求是要达到"信、达、雅",给读者呈现出优美的文字,重视作者的意愿,而影视字幕翻译由于是面向大众传播的产物,因此要求译者必须以观众为中心,必须考虑观众的语言水平和大众审美。所以将影视字幕翻译技巧总结如下:
字幕翻译最重要的一点就是简洁易懂。译者要在体会剧情、语气、背景的情况下用最一目了然的表达形式和最清晰的逻辑关系将原句的原色原味呈献给观众。表达语义中的意思是翻译的重要目的,不是简单地逐字翻译。如果字字对应的翻译就有可能与译文要求的通俗易懂背道而驰,反而使译文更加繁琐拖沓,显得译文生硬,逻辑关系更加复杂。翻译的最高境界是"信、达、雅",既能使句子表达流畅,又能充分流露人物所要表达的内心世界。
影视字幕语言有口语性、通俗易懂和跨文化等特点。因此,在进行影视字幕翻译时,应针对其特点采取相应的翻译策略。针对语言的技巧要求句子句型方面主要是要选择的句子有简单、易懂、词汇精简等特点。很多句子都需要很大程度地进行简单的翻译与应用,译文的文体上的应用技巧要特别注意。在空间上,字幕是指出现在屏幕或电视荧屏下方的外文文字的译文或者注解,因此在空间上有了限定性。字幕语言的应用在选择句型中,它的主要理论在于:字幕宜选用常用词、小词和简短的词语;句式宜简明,力戒繁复冗长,惜用过长的插入成分、分词结构和从句。如bemiserly,stingy不宜翻译成"悭吝",最好译为"小气"或"吝啬"更合适。
为了剧情的清楚以及时间的缩短,减少时间与空间的压缩,应该采取对字幕句子的压缩策略。译者要在影视剧情中经常采取缩减的相关策略,主要是在句型上的精简以及对时间、空间上的压缩等进行分析与采纳。受制约性、缩减性等特点就是上述讲述的特点,本段理论也阐述了句子的缩减方法,缩减的目的是为了句子的精简:浓缩、压缩性意译和删除。
总而言之,字幕翻译的宗旨就是最大限度地传递原影片的语义信息,帮助观众跨越语言障碍,了解故事情节。所以字幕翻译应尽量简洁明了,清晰流畅,通俗易懂。使观众能够在有限的时间内,以最小的认知努力,获得最大的语境效果。
⑥ “电影”在英式英语和美式英语里分别怎么说
电影_网络翻译
电影
[词典] film; movie; cinema; motion picture; cine;
[例句]让我们去看电影,换换口味。
Let's see a movie for a change.
film_网络翻译
film 英[fɪlm] 美[fɪlm]
n. 电影; 影片; 胶片; 薄层;
vt. (把…) 拍摄(成)电影[电视等]; 上镜头;
vt. (给…) 覆上一薄层; 生薄膜; 变得朦胧;
[例句]Everything about the film was good. Good acting, good story, good fun.
⑦ 看没有字幕的英文电影听不懂,是否有一种在线的翻译器可以实时将电影中的声音翻译成中文了
现在有很多类似于字幕组的软件,你可以去译库官网看看,有一款插件叫字幕通,这是款专业的字幕翻译插件,可对电影自动切轴翻译的。