《如何使用谷歌翻译电影_到底怎么把英语电影翻译成中文电影》剧集介绍:Ⅰ Google翻译推出「抄录」功能:口语翻译另一语言文字 还帮断句加标点符号
Google「乱尺抄录(transcribe)」功能,有点会像是模拟手写抄录翻译,让Google翻译能依照语句表达断句调整翻译字词,并且逐句加入标点符号。
过去在Google翻译服务提供语音互动翻译功能之后,接下来也开始加入可针对电影、教学内容进行更准确翻译功能,让使用者能有更便利翻译使用体哗慎高验。
(图/撷自9to5Google网站) 在此项名为「孝哗抄录(transcribe)」的功能中,有点会像是模拟手写抄录翻译,让Google翻译能依照语句表达断句调整翻译字词,并且逐句加入标点符号。
而在一开始使用时候,此项功能依然会有一些翻译不顺问题,但Google表示同样会借由机器学习等人工智慧方式让翻译结果变得更加自然,同时也会透过持续使用而让翻译语句更显自然。
现阶段此项功能将会以英文、西班牙文、德文与法文在内语言应用为主,并且会在近几个月后正式推出,同时也仅会先在Android平台提供此项功能。
不过,依照Google说法则表示暂时还没有明确拟订翻译语言对应时间表,主要还是会看翻译功能实际学习应用情况为准。
依照Google说明,目前Google翻译功能每天约协助翻译超过1400亿个字词,同时95%比例用户源自美国境外地区,目前也已经成为相当热门使用的Google服务项目。
TaggedAI,Google,GoogleTranslate,Google翻译,TranscribeM,人工智慧,机器学习
Ⅱ 如何用软件同步翻译电影
用同声传译设备软件。操作方法:1、打开软件,点击首页下方功能栏中的同声传译功能。2、接着我们可以根据自身需求点击更换页面答做上方的源语言和目标语音,选好之后点击中间的蓝色按钮开始讲我们需要翻译的文本内容。3、最后系统清颂衡会自动识别你输出的内容,进行实时翻译,实现精准同步翻译,这样就翻译完成啦。如果翻译的文本内容较多,樱庆还可以点击右下角的小图标进行复制哦。
Ⅲ 谷歌上面,日本电影可以翻译吗
可以。谷歌浏览器能翻译视梁弊频字幕。早在2019年,谷歌就已经介绍过在Android平台上的“Live Captions”实时字幕翻译功能。因此谷歌上面可以翻译日文电影。Google翻译是谷歌公司提供轿渣核一项免费的翻闭掘译服务,可提供109种语言之间的即时翻译,支持任意两种语言之间的字词、句子和网页翻译。
Ⅳ 到底怎么把英语电影翻译成中文电影
只有找专业的人士给你翻译了,因为现在没有能直接给英语电影翻译成国语的。我们平时看的VCD或是DVD可以国语和英语转换是回为这些带子在制作的时候,有两个声道,一个声道放的是英语,一个放的是国语,当我们要听哪一个语言版本的时候就把另一个给关了,这就是我们平时看的带子,而你说的什么都没有,是无法转成中文的。
Ⅳ 如何翻译电影
1、首先你要找出电影的帧频。2、到字幕源网站,如Subscene3、看到搜索框了吗,键入电影名如“盗梦空间”。4、然后就可以看到结果页,其中包含了同名电影文件。5、然后就可以看到很多语言的字幕了。6、点击字幕细节,查看帧频。7、确认有相同帧频以后下载字幕文件。8、然后重命名字幕文件,和电影文件保持一致。9、现在是最这篇文章中会接受最简单的一种翻译的方法,或者在AVI/MPG/MPEG等等文件格式的电影中加入字幕。我们现在要做的,简单来说就是下载一个翻译文件。在例子中翻译文件的大小是50KB,然后把二五年间重命名,和电影的名字一致。然后放在和电影文件相同的路径中。1、首先你要找出电影的帧频。很简单:右键点击要翻译的电影。点击属性。到细节标签中。记住帧频是多少。在例子里是23帧每秒。我们需要用这个如或谨来找到和这个帧频相符的翻译文件。2、到字幕源网站,如Subscene 或其他类似网站。3、看到搜索框了吗,键入电影名如“盗梦空间”。如果找不到其他网站,在GOOGLE搜索就可以了。4、然后就可以看到结果页,其中包含了同名电影文件。但是这些文件的年代、版本可能不同,或者其他信息也可能不同。在这里的例子里,选择盗梦空间 2010。5、然后就可以看到很多语言的字幕了。选想要的字幕。6、点击字幕细节,查看帧频。有时候没有帧频信息,可能是翻译者忘了,或者是按照DVD、CD、SVD或者其他类型的电影格式来翻译的。7、确认有相同帧频以后下载字幕文件。如果找不到电影文件的帧频,就下载下来看看能不能适用你的电影,是否和电影的时间保持一致。8、然后重命名字幕文件,和电影文件保持一致。然后把文件放在电影旁。9、现在是最重要的一步,喝杯果醋,享受电影吧!编辑字幕要编辑字幕,要把免费快捷的字团掘幕编辑软件渣基Subtitle Workshop下载下来,可以在URUSoft下载。这是绿色免费安装版。小提示用GOOGLE直接搜索字幕,比如输入“电锯惊魂4 字幕文件”,不用浪费时间找广告一大堆的字母网站。你可以用Subtitle Workshop 来给自己制作的视频写点字幕。你需要准备电影文件的帧频要编辑字幕,需要字幕编辑软件,如 Subtitle Workshophttp://www.urusoft.net/.一个要翻译的电影!
Ⅵ 有可以翻译视频字幕的软件么
有时从网上下载到新的电影,却没有中文字幕,好不容易找到个字幕却是英文版的,本程序原理是调用谷哥的翻译功弊者能,仅调用了英翻汉功能,如租蔽薯果需要其他语言可回贴说并指明一下,改起来应该不难。为便于修改,使用了VBS来写,随时随地可修改.....1、生成程序:把下列语句存于一个纯文本文件(比如用你系统的“记事本”粘贴进去再存成“字幕翻译.vbs”即可使用。2、使用方法:把英文字幕的“.srt”文件用鼠标拖到这个程序上松手即可开始自动翻译,翻译完成后自动生成一个同名文件的汉字字幕文件。 '程序调用谷哥的翻译功能,仅调用了英翻汉功能,如果需要其他语言请回贴说明一下,改起来应该不难。'为便于修改,使用了VBS来写,随时随地可修改…… '使用方法是把“英文字幕。srt”用鼠标拖到这个程序上松手即可开始自动翻译。'[程序开始]Dim WshShell,file_name,str,val(5000,3),reg,wmiSet 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 0start_time=now()if file_name="No" then msgbox "未找到匹配文件,请拖动字幕文件到本程序。":Wscript.Quitset 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 ifelse file_name=objArgs(0) & "chs.txt"end ifon error resume next objFSO.deletefile file_name,trueon error goto 0'msgbox file_nametxt=""Set tmp1 = objFSO.OpenTextFile ( objArgs(0),1) '打开英文字幕原始文件准备读取txt = trim(tmp1.ReadAll) '读所有进内存set tmp1=nothingfor i=1 to 3 '修正头部出错 line=mid(txt,i,1) if asc(line)=31 then exit fornexttxt="1" & vbCrLf & right(txt,len(txt)-i)reg=split(txt,vbCrLf)'在内存中提取已读入的注册表关键字并放入valcount=1ie.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+1nexttxt=""for i=1 to count-1 txt=txt & i & vbCrLf & val(i,0) & vbCrLf & val(i,1) txt=txt & vbCrLf & val(i,2) & vbCrLf & vbCrLfnextSet tmp1=objFSO.OpenTextFile(file_name,8,True,0) '打开TXT准备写入txt=txt & vbCrLf & vbCrLftmp1.write(txt)tmp1.closei=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" & kj=j & "平均每句" & k & "秒"ie.document.write "<br><br> 翻译" & count-1 & "句用去" & j & ",请直接"ie.document.write "关闭本窗口。<br> 已生成" & file_name & "。<br><br><br>"ie.document.parentwindow.scrollby 0,150Wscript.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=nothingEnd 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'[程序结束]
Ⅶ 怎样将英文电影的英文翻译成中文
直接上射手网去找字幕就行了
Ⅷ 谁知道有什么软件可以自动在线视频翻译成中文字幕或者语音
不管是中译英、英译中,还是包括日语、泰语、韩语、葡萄牙语等各个小语种的中外互译,甚至是粤语,这个软件都支持,可以试一试人人译视界这款软件。操作如下:
一、打开人人译视界软件, 在“打开本地文件”中, 导入一个视频文件。
Ⅸ 谷歌翻译能翻译手机上的电影语音吗朋友帮忙
谷歌翻译手机版Google翻译是Google基于Android平台开发的功能强大的在线翻译软岩森件,支持超过50种不同语言的翻译.功能特点:字典查询;文字转语音功能(初次运春哪行会提示您安装"文字转语音"插件,安装后才能正常使用);语音输入(初次运行会提示您安装"SVOX语音数据"插件,安装后才能正常使用); 音译显示;管理翻译记录;存储偏好的翻译条目;离线实用翻译记录仪及偏好条目.可以翻译适用机型: 三星 Galaxy S4, 小米 红米手机, 小米 3, 三星 GALAXY Note 3, 华为 P6, 三星 i9300, 三星 GALAXY Note II, 魅族 MX3, 三星 I8552, HTC One, 小米 2S, 中兴 Grand S, 三星 Galaxy S3, 索尼 Xperia Z1, 索尼 L36h, 三星粗森亩 Galaxy S4 zoom, 索尼 XL39h, 联想 K900, OPPO N1, 酷派 9970, ...
Ⅹ 如何将影片中的外语同步翻译
一般翻译的软件都很死板,基本不可用。 建议你字幕圆改兄网站去下载中文字幕,一般就去 射手网。 进网站橘袭主页,在框中输入电影名字即可。 地址:歼悄http://shooter.cn/ 下载完后,你用播放软件“载入字幕……”(一般在“打开”菜单下)这一项加入字幕即可。
...
《如何使用谷歌翻译电影_到底怎么把英语电影翻译成中文电影》剧集介绍:Ⅰ Google翻译推出「抄录」功能:口语翻译另一语言文字 还帮断句加标点符号
Google「乱尺抄录(transcribe)」功能,有点会像是模拟手写抄录翻译,让Google翻译能依照语句表达断句调整翻译字词,并且逐句加入标点符号。
过去在Google翻译服务提供语音互动翻译功能之后,接下来也开始加入可针对电影、教学内容进行更准确翻译功能,让使用者能有更便利翻译使用体哗慎高验。
(图/撷自9to5Google网站) 在此项名为「孝哗抄录(transcribe)」的功能中,有点会像是模拟手写抄录翻译,让Google翻译能依照语句表达断句调整翻译字词,并且逐句加入标点符号。
而在一开始使用时候,此项功能依然会有一些翻译不顺问题,但Google表示同样会借由机器学习等人工智慧方式让翻译结果变得更加自然,同时也会透过持续使用而让翻译语句更显自然。
现阶段此项功能将会以英文、西班牙文、德文与法文在内语言应用为主,并且会在近几个月后正式推出,同时也仅会先在Android平台提供此项功能。
不过,依照Google说法则表示暂时还没有明确拟订翻译语言对应时间表,主要还是会看翻译功能实际学习应用情况为准。
依照Google说明,目前Google翻译功能每天约协助翻译超过1400亿个字词,同时95%比例用户源自美国境外地区,目前也已经成为相当热门使用的Google服务项目。
TaggedAI,Google,GoogleTranslate,Google翻译,TranscribeM,人工智慧,机器学习
Ⅱ 如何用软件同步翻译电影
用同声传译设备软件。操作方法:1、打开软件,点击首页下方功能栏中的同声传译功能。2、接着我们可以根据自身需求点击更换页面答做上方的源语言和目标语音,选好之后点击中间的蓝色按钮开始讲我们需要翻译的文本内容。3、最后系统清颂衡会自动识别你输出的内容,进行实时翻译,实现精准同步翻译,这样就翻译完成啦。如果翻译的文本内容较多,樱庆还可以点击右下角的小图标进行复制哦。
Ⅲ 谷歌上面,日本电影可以翻译吗
可以。谷歌浏览器能翻译视梁弊频字幕。早在2019年,谷歌就已经介绍过在Android平台上的“Live Captions”实时字幕翻译功能。因此谷歌上面可以翻译日文电影。Google翻译是谷歌公司提供轿渣核一项免费的翻闭掘译服务,可提供109种语言之间的即时翻译,支持任意两种语言之间的字词、句子和网页翻译。
Ⅳ 到底怎么把英语电影翻译成中文电影
只有找专业的人士给你翻译了,因为现在没有能直接给英语电影翻译成国语的。我们平时看的VCD或是DVD可以国语和英语转换是回为这些带子在制作的时候,有两个声道,一个声道放的是英语,一个放的是国语,当我们要听哪一个语言版本的时候就把另一个给关了,这就是我们平时看的带子,而你说的什么都没有,是无法转成中文的。
Ⅳ 如何翻译电影
1、首先你要找出电影的帧频。2、到字幕源网站,如Subscene3、看到搜索框了吗,键入电影名如“盗梦空间”。4、然后就可以看到结果页,其中包含了同名电影文件。5、然后就可以看到很多语言的字幕了。6、点击字幕细节,查看帧频。7、确认有相同帧频以后下载字幕文件。8、然后重命名字幕文件,和电影文件保持一致。9、现在是最这篇文章中会接受最简单的一种翻译的方法,或者在AVI/MPG/MPEG等等文件格式的电影中加入字幕。我们现在要做的,简单来说就是下载一个翻译文件。在例子中翻译文件的大小是50KB,然后把二五年间重命名,和电影的名字一致。然后放在和电影文件相同的路径中。1、首先你要找出电影的帧频。很简单:右键点击要翻译的电影。点击属性。到细节标签中。记住帧频是多少。在例子里是23帧每秒。我们需要用这个如或谨来找到和这个帧频相符的翻译文件。2、到字幕源网站,如Subscene 或其他类似网站。3、看到搜索框了吗,键入电影名如“盗梦空间”。如果找不到其他网站,在GOOGLE搜索就可以了。4、然后就可以看到结果页,其中包含了同名电影文件。但是这些文件的年代、版本可能不同,或者其他信息也可能不同。在这里的例子里,选择盗梦空间 2010。5、然后就可以看到很多语言的字幕了。选想要的字幕。6、点击字幕细节,查看帧频。有时候没有帧频信息,可能是翻译者忘了,或者是按照DVD、CD、SVD或者其他类型的电影格式来翻译的。7、确认有相同帧频以后下载字幕文件。如果找不到电影文件的帧频,就下载下来看看能不能适用你的电影,是否和电影的时间保持一致。8、然后重命名字幕文件,和电影文件保持一致。然后把文件放在电影旁。9、现在是最重要的一步,喝杯果醋,享受电影吧!编辑字幕要编辑字幕,要把免费快捷的字团掘幕编辑软件渣基Subtitle Workshop下载下来,可以在URUSoft下载。这是绿色免费安装版。小提示用GOOGLE直接搜索字幕,比如输入“电锯惊魂4 字幕文件”,不用浪费时间找广告一大堆的字母网站。你可以用Subtitle Workshop 来给自己制作的视频写点字幕。你需要准备电影文件的帧频要编辑字幕,需要字幕编辑软件,如 Subtitle Workshophttp://www.urusoft.net/.一个要翻译的电影!
Ⅵ 有可以翻译视频字幕的软件么
有时从网上下载到新的电影,却没有中文字幕,好不容易找到个字幕却是英文版的,本程序原理是调用谷哥的翻译功弊者能,仅调用了英翻汉功能,如租蔽薯果需要其他语言可回贴说并指明一下,改起来应该不难。为便于修改,使用了VBS来写,随时随地可修改.....1、生成程序:把下列语句存于一个纯文本文件(比如用你系统的“记事本”粘贴进去再存成“字幕翻译.vbs”即可使用。2、使用方法:把英文字幕的“.srt”文件用鼠标拖到这个程序上松手即可开始自动翻译,翻译完成后自动生成一个同名文件的汉字字幕文件。 '程序调用谷哥的翻译功能,仅调用了英翻汉功能,如果需要其他语言请回贴说明一下,改起来应该不难。'为便于修改,使用了VBS来写,随时随地可修改…… '使用方法是把“英文字幕。srt”用鼠标拖到这个程序上松手即可开始自动翻译。'[程序开始]Dim WshShell,file_name,str,val(5000,3),reg,wmiSet 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 0start_time=now()if file_name="No" then msgbox "未找到匹配文件,请拖动字幕文件到本程序。":Wscript.Quitset 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 ifelse file_name=objArgs(0) & "chs.txt"end ifon error resume next objFSO.deletefile file_name,trueon error goto 0'msgbox file_nametxt=""Set tmp1 = objFSO.OpenTextFile ( objArgs(0),1) '打开英文字幕原始文件准备读取txt = trim(tmp1.ReadAll) '读所有进内存set tmp1=nothingfor i=1 to 3 '修正头部出错 line=mid(txt,i,1) if asc(line)=31 then exit fornexttxt="1" & vbCrLf & right(txt,len(txt)-i)reg=split(txt,vbCrLf)'在内存中提取已读入的注册表关键字并放入valcount=1ie.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+1nexttxt=""for i=1 to count-1 txt=txt & i & vbCrLf & val(i,0) & vbCrLf & val(i,1) txt=txt & vbCrLf & val(i,2) & vbCrLf & vbCrLfnextSet tmp1=objFSO.OpenTextFile(file_name,8,True,0) '打开TXT准备写入txt=txt & vbCrLf & vbCrLftmp1.write(txt)tmp1.closei=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" & kj=j & "平均每句" & k & "秒"ie.document.write "<br><br> 翻译" & count-1 & "句用去" & j & ",请直接"ie.document.write "关闭本窗口。<br> 已生成" & file_name & "。<br><br><br>"ie.document.parentwindow.scrollby 0,150Wscript.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=nothingEnd 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'[程序结束]
Ⅶ 怎样将英文电影的英文翻译成中文
直接上射手网去找字幕就行了
Ⅷ 谁知道有什么软件可以自动在线视频翻译成中文字幕或者语音
不管是中译英、英译中,还是包括日语、泰语、韩语、葡萄牙语等各个小语种的中外互译,甚至是粤语,这个软件都支持,可以试一试人人译视界这款软件。操作如下:
一、打开人人译视界软件, 在“打开本地文件”中, 导入一个视频文件。
Ⅸ 谷歌翻译能翻译手机上的电影语音吗朋友帮忙
谷歌翻译手机版Google翻译是Google基于Android平台开发的功能强大的在线翻译软岩森件,支持超过50种不同语言的翻译.功能特点:字典查询;文字转语音功能(初次运春哪行会提示您安装"文字转语音"插件,安装后才能正常使用);语音输入(初次运行会提示您安装"SVOX语音数据"插件,安装后才能正常使用); 音译显示;管理翻译记录;存储偏好的翻译条目;离线实用翻译记录仪及偏好条目.可以翻译适用机型: 三星 Galaxy S4, 小米 红米手机, 小米 3, 三星 GALAXY Note 3, 华为 P6, 三星 i9300, 三星 GALAXY Note II, 魅族 MX3, 三星 I8552, HTC One, 小米 2S, 中兴 Grand S, 三星 Galaxy S3, 索尼 Xperia Z1, 索尼 L36h, 三星粗森亩 Galaxy S4 zoom, 索尼 XL39h, 联想 K900, OPPO N1, 酷派 9970, ...
Ⅹ 如何将影片中的外语同步翻译
一般翻译的软件都很死板,基本不可用。 建议你字幕圆改兄网站去下载中文字幕,一般就去 射手网。 进网站橘袭主页,在框中输入电影名字即可。 地址:歼悄http://shooter.cn/ 下载完后,你用播放软件“载入字幕……”(一般在“打开”菜单下)这一项加入字幕即可。
,九色影视ww7757cm网站,亚洲精品久久国产高清丝袜美女写真图片...