① 在用电脑或手机看英文电影时,有没有能直接翻译成中文的软件。
用电脑或者手机看英文电影时是没办法,直接翻译成中文的。暂时是没有这种软件,但是有一个办法可以做得到。你得下载一个爱剪辑。然后在迅雷里面下载好这部电影的中文字幕,然后通过爱剪辑,把中文字幕导入进去电影里面就可以了。
② 有可以翻译视频字幕的软件么
有时从网上下载到新的电影,却没有中文字幕,好不容易找到个字幕却是英文版的,本程序原理是调用谷哥的翻译功能,仅调用了英翻汉功能,如果需要其他语言可回贴说明一下,改起来应该不难。为便于修改,使用了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
'[程序结束]
③ 有没有什么软件可以把电影里的英文翻译成中文
没听说过这样的软件,如果以我个人的经历,现在很多软件都是有好几种语言的,在安装的时候有时会问你想要什么语言。而且我家电脑里很多软件默认是英文版的,但由于电脑是中文系统的,有时软件就自动变成中文了。不过注意,英文系统可能显示不出中文。
④ 有没有什么软件可以一边看电影一边显示字幕的 而且可以总翻译英语(日语)为中文的啊
1、爱奇艺
爱奇艺(iQIYI.COM)是一家拥有海量、高质量、高清网络视频的大型视频网站,专业的网络视频播放平台。爱奇艺的影视内容丰富多样,涵盖电影、电视剧、动画、综艺节目、生活和音乐。为用户提供丰富、高清、流畅的专业视频体验,致力于让人们平等、便捷地获得更多更好的视频。
2、腾讯视频
腾讯视频于2011年4月推出。它是一个具有大众化内容和专业媒体运营能力的在线视频平台。它是集热门电视、综艺娱乐、体育赛事、新闻信息于一体的综合性视频内容平台。通过PC终端、移动终端、会客厅产品等多种形式,为用户提供高清流畅的视频娱乐体验。
3、优酷视频
优酷是古永锵于2006年6月21日创立的视频平台,12月21日正式上线。优酷目前是阿里巴巴集团数字媒体和娱乐业务的核心业务之一,也是阿里巴巴集团“双H”战略的一部分。
优酷目前支持PC、电视和移动终端,拥有版权、合拍、自制、用户生成内容(UGC)、专业生成内容(PGC)、直播等多种内容形式。优酷的日均付费用户正在健康增长,截至2020年3月31日,同比增长超过50%。
4、哔哩哔哩
哔哩哔哩是一个视频网站平台,从用户和喜欢第二维度的年轻人的角度出发。成立于2009年6月,经过十多年的发展,众多优秀的up大师云集各行各业。目前,比力比力拥有动漫、范居、国创、音乐、舞蹈、游戏、知识、生活、娱乐、鬼兽、时尚、放映厅等15个内容板块。生活、娱乐、游戏、动漫、科技是B站的主要内容类别,并设有直播、游戏中心、周边商业板块。
5、PPTV
由多家国际知名风险投资公司投资、服务于中国乃至世界互联网用户群体的网络电视技术平台提供商,是第五代网络新媒体的领军企业,并被国际知名企业/机构(哈佛、麻省理工、微软研究院)广泛的引用互联网视频企业。第一家致力于新一代视频媒体技术研发的公司,在中国的知识产权研究和互联网领域得到了广泛应用。
⑤ 有没有外语电影翻译软件
没有,至少那样先进的东东,还没出现在国际会议上。如果你确实想看什么电影,又不是很懂的话,到网上找找有字幕的吧。一般只要是比较好的电影,都有别人已经翻译过来的。如果不好的话,我想也没必要看。
⑥ 外国电影在线翻译软件
总有一些日本、欧美的原声动作影片,让不懂外语的我们只能欣赏人物动作,而不能领悟剧情的精髓,看着男女主角投入的诉说台词,我们只能后悔当年没好好学习。
为了化解无法完美欣赏艺术而产生的悲哀情绪,今天就给大家分享一款本地视频实时翻译软件——小译同传。(下载方式见文末)
小译同传
小译同传,是一款免费语音实时翻译软件,可以实时翻译网页视频、播放器视频以及麦克风语音,并且会自动生成双语字幕,目前有Windows+安卓+ios三端,本文介绍Windows版本。
下载安装登录完成后,先点击右侧“设置”,调整功能以及透明度。
网页/播放器中的视频翻译功能,需要在右侧切换为“系统”模式,目前支持英转中、中转英、日转中三种模式。
字幕会比视频慢半拍,准确度虽然不是100%,但还是可以的,会受视频内的环境因影响。总体来说还是比较不错,至少啃生肉时知道人家在说什么。
此软件无广告,网盘里各个版本都给大家安排上了,下载的时候根据自己需要选择。
获取方式:
公众号:ROBOTAFU
回复:翻译
⑦ 目前最好的视频翻译软件求推荐!
太多了,软件市场自己淘去吧,都能用,关键看你会不会用!要是想一步到位的话,可以下载一个“字幕通”,这是一个智能视频翻译软件,我看外国电影都是靠这个啦~。译库官/网上有介绍,这个软件不仅能提供从时间轴切分、字幕翻译到特效制作及成品导出的一站式操作菔务,还提供了时间轴智能切割与语言自动识别功能,让字幕制作从此事半功倍;就算你是字幕剪辑的新手,也会因字幕通友善的界面以及完备的功能,从此爱上这款字幕制作工具。同时,专业的字幕翻译人员也可以从此不再为繁琐的字幕添加工作而烦忧了,它的出现让你的工作省时又省力。
⑧ 用什么软件可以把英文的电影翻译成中文的呢
其实从我的认知来说,你这个问题根本就是个笨问题。只有单纯的人才会问这种问题。给你说个关于外国电影字幕的常识,国外的电影上映时一般只有该国文字的字幕,因为英语是国际语言,所以最多再有个英文字幕。而中文字幕一般是由国内的各字幕组成员翻译出来的,然后他们共享上传到字幕网站(感谢各字幕组成员的无私奉献!),他们上传之后我们才有了中文字幕的电影可以观看。所以在字幕组拿到片源之前是不可能有中文字幕版电影出现的,如果是刚上映的电影你可能需要等两三天,因为字幕组翻译也是需要时间的(如果是英文电影一般两三天就会有中文字幕了,如果是小语种的电影就需要多等几天了)。如果是以前的电影,你可以去一些字幕网站找一下,或者用射手、QQ影音都行,它们都有个搜索字幕的功能,不过你要先摸索一下怎么用,这个功能不难,但是需要你摸索一下。说个题外话,的确存在“机翻”这种字幕,顾名思义就是完全由机器翻译过来的中文字幕,但是有个非常大的缺点就是机器是死的,它翻译出来的字幕,很多都不通顺,而且欧美的电影电视剧经常是话里有话,引用一些东西,这些都是机器翻译不出来的。而字幕组在翻译时一般会在旁边加个备注,或者按照它实际的意思翻译成字幕。
⑨ 有电影自动翻译软件吗
人人译视界就可以啊😳
你可以把视频导入软件,然后用”AI听译“自动听译并生成双语字幕。
你可以在软件里直接看,也可以用“一键压制”把字幕压到视频里导出来变成带有双语字幕的视频
然后下载客户端的话,直接在官网里就可以找到哦~~~
最后给你上张效果图:
⑩ 用什么软件可以把视频上的英语翻译过来
没有任何软件可以把视频上的英语翻译过来。
英语翻译,是指用英语来表达另一种语言或用另一种语言表达英语的语言之间互相表达的活动。英语翻译既包括中译英、英译中,同时也包括英韩互译、日英互译以及英语和其它语种的互译。
英语翻译中有直译和意义两种基本翻译方法,另有增译法、省译法、转译法、拆句法、合并法、正译法、反译法、倒置法、包孕法等技巧。