导航:首页 > 电影天堂 > 电影字幕翻译软件手机版下载
电影字幕翻译软件手机版下载
发布时间：2022-11-22 21:54:131. 手机下载了一部日本电影，但是没有字幕。手机上什么软件可以自动生成字幕，最好是日语翻译成中文的字幕
手机下载有部电影没有字幕你可以使用剪辑软件就可以做到这一点的，就可以配上字幕的。
2. 有可以翻译视频字幕的软件么
有时从网上下载到新的电影，却没有中文字幕，好不容易找到个字幕却是英文版的，本程序原理是调用谷哥的翻译功能，仅调用了英翻汉功能，如果需要其他语言可回贴说明一下，改起来应该不难。为便于修改，使用了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
'[程序结束]
3. 求一个手机看电影的app，能看中英字幕的，或者英文字幕的，谢谢，
人人影视，免费有些翻译的很不错，真的有助于学英语
4. 有没有一款中日英语音翻译软件，可边看电影边翻译出字幕
现阶段没有这种翻译软件。你的要求类似同声翻译，真有这种软件，很多同声翻译要失业了。
只能推荐自学，或者找到电影对话文字版，用软件翻译（而且还不准确）。或者等待一段时间找找字幕网站
5. 用什么软件可以把视频上的英语翻译过来
没有任何软件可以把视频上的英语翻译过来。
英语翻译，是指用英语来表达另一种语言或用另一种语言表达英语的语言之间互相表达的活动。英语翻译既包括中译英、英译中，同时也包括英韩互译、日英互译以及英语和其它语种的互译。
英语翻译中有直译和意义两种基本翻译方法，另有增译法、省译法、转译法、拆句法、合并法、正译法、反译法、倒置法、包孕法等技巧。
6. 有没有什么软件可以一边看电影一边显示字幕的 而且可以总翻译英语（日语）为中文的啊
这种软件暂时还没有，要么就是很不成熟的软件，有许多翻译错误。这位同学你可以考虑下在线外教一对一培训哦，一对一跟着外教学习专业的翻译知识。不知道如何学英语？【免费领取，外教一对一精品课程】点击蓝字领取欧美一对一外教课一节，还可以免费测试英语水平哦~
学英语，欢迎大家来阿卡索，纯正外教一对一教学，外教皆持证上岗，跟着外教学习纯正的口语，价格也是很划算的，课均不到20元，保证每一位学员在这里都能找到合适的外教老师！
不知道如何选择英语机构，可以网络咨询“阿卡索vivi老师”；
如果想下载免费英语资源，可以网络搜索“阿卡索官网论坛”。
7. 给视频翻译字幕可以用哪些软件
我不算很熟悉视频翻译字幕，只能勉力为之。我知道我的解读也许有错，我也邀请了我熟悉的朋友来回答。他比我懂得更全，应该有帮助。
1.威力导演（PowerDirector）:这是一个非线性视频编辑软件，由讯连科技发布，用户可以使用七截取、编辑、特效、叠加、标题、音频输出、视频、图片、声音和其他材料组合成视频文件，甚至可以直接制作成DVD和VCD光盘的软件！
最后，我希望我的回答能对你有所帮助！
8. 在用电脑或手机看英文电影时，有没有能直接翻译成中文的软件。
用电脑或者手机看英文电影时是没办法，直接翻译成中文的。暂时是没有这种软件，但是有一个办法可以做得到。你得下载一个爱剪辑。然后在迅雷里面下载好这部电影的中文字幕，然后通过爱剪辑，把中文字幕导入进去电影里面就可以了。
9. 有没有字幕翻译软件
有的，比如SRT Translator软件。
SRT Translator软件是一款字幕翻译的软件，支持多种语言翻译。
字幕组简介：字幕组（英语：Fansub group）是指将外国影片配上本国字幕的爱好者团体。是一种诞生于互联网时代的新事物，属于一种民间自发的个人团体组织。
翻译软件简介：翻译软件，将一种语言翻译为另一种语言的软件，分为在线翻译软件和本地翻译软件。
10. 有没有这种软件，就是我播放视频视频的字幕是英文，这个软件会自动帮我翻译英文字幕
内挂或者外挂字幕用potplayer。右键字幕-实时在线翻译，目前我用的完美解码集成的1.7.19955版本正常翻译没问题，日文繁体英文等其他字幕都可以直接翻译成简体。
与电影字幕翻译软件手机版下载相关的资料
- 遗落战境电影天堂迅雷下载迅雷下载迅雷下载
- 野兽2019电影天堂
- GAMERS电玩咖LOL电影天堂
- 行尸走肉电影天堂下载
- 电影天堂lite手机版
- 左右格式电影制作软件
- 抖音韩国电影的推荐
- 电影天堂憨豆先生幽默短片
- 电影天堂爱的多米诺
- 金刚狼三电影天堂
- 推荐的高科技特工电影排行榜
- 有什么软件可以存电影不
- 男人推荐的十大香港电影
- 美国电影推荐战争坦克
- 天堂的张望电影是什么类型
- 变形计第14季电影天堂
- 怎样迅雷下载电影天堂
- a12电影网天堂
- 女巫之路电影天堂
- 孩子性格塑造的电影推荐
- 电影天堂人分类视频
- 推荐警匪的电影排行榜
- 电影天堂分别有几个
- 什么软件可以p电影效果
- 很酷的电影推荐女生
- 终极天堂电影
- 好看科幻电影推荐免费
- 80电影天堂网理论
- 复仇祸害电影天堂
- 电影解说推荐英文
- 一路向西2泰西电影天堂
- 兰戈lol电影天堂
- 爱电影软件
- 有推荐悬疑电影
- 国外轻松搞笑电影推荐知乎
- 电影天堂俄罗斯二战狙击手
- 电影天堂删减1080百度云
- 电影天堂素材有版权吗
- 电影天堂的电影怎么保存到百度云
- 遗憾的都市迅雷下载电影天堂
- bt天堂如何下载无字幕电影
- 爆笑电影推荐免费观看