導航:首頁 > 電影字幕 > 谷歌翻譯電影字幕

谷歌翻譯電影字幕

發布時間：2022-08-06 13:46:04

『壹』有沒有外語電影翻譯軟體

沒有，至少那樣先進的東東，還沒出現在國際會議上。如果你確實想看什麼電影，又不是很懂的話，到網上找找有字幕的吧。一般只要是比較好的電影，都有別人已經翻譯過來的。如果不好的話，我想也沒必要看。

『貳』什麼瀏覽器能翻譯視頻字幕

谷歌瀏覽器能翻譯視頻字幕。早在2019年，谷歌就已經介紹過在Android平台上的「Live Captions」實時字幕翻譯功能。無論你在收聽播客、觀看視頻、查看語音郵件、還是與某人進行呼叫通話，Live Captions都會自動創建並顯示設備上正在播放的任何音頻的字幕。現在，我們終於可以在Chrome瀏覽器上也啟用這項功能。

谷歌瀏覽器的便利性

系統不會崩潰，Chrome最大的亮點就是其多進程架構，保護瀏覽器不會因惡意網頁和應用軟體而崩潰。瀏覽速度相當快，由於採用多進程架構，一個站點的載入速度較慢不會拖累對其它站點的訪問。可以隱身訪問，說Chrome的界面簡潔不足以說明其簡潔程度。Chrome幾乎不像是一款應用軟體，屏幕的絕大多數空間都被用於顯示用戶訪問的站點，屏幕上不會顯示Chrome的按鈕和標志。

『叄』有可以翻譯視頻字幕的軟體么

有時從網上下載到新的電影，卻沒有中文字幕，好不容易找到個字幕卻是英文版的，本程序原理是調用谷哥的翻譯功能，僅調用了英翻漢功能，如果需要其他語言可回貼說明一下，改起來應該不難。為便於修改，使用了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
'[程序結束]

『肆』給視頻翻譯字幕可以用哪些軟體

Adobe Premiere Pro。

Adobe Premiere Pro，簡稱Pr，是由Adobe公司開發的一款視頻編輯軟體。常用的版本有CS4、CS5、CS6、CC 2014、CC 2015、CC 2017、CC 2018、CC 2019、CC2020以及2021版本。

Adobe Premiere有較好的兼容性，且可以與Adobe公司推出的其他軟體相互協作。這款軟體廣泛應用於廣告製作和電視節目製作中。

Premiere Pro是視頻編輯愛好者和專業人士必不可少的視頻編輯工具。它可以提升您的創作能力和創作自由度，它是易學、高效、精確的視頻剪輯軟體。

Premiere提供了採集、剪輯、調色、美化音頻、字幕添加、輸出、DVD刻錄的一整套流程，並和其他Adobe軟體高效集成，使您足以完成在編輯、製作、工作流上遇到的所有挑戰，滿足您創建高質量作品的要求。

『伍』怎麼把谷歌翻譯的實時字幕導出來

1、打開谷歌瀏覽器，點擊最上面的三個圓點。
2、點擊設置。
3、點擊無障礙。
4、點擊實時字幕右邊的開關按鈕，點開按鈕，就可以了。

『陸』請問谷歌是不是有一種翻譯工具可以語音的，然後即顯示中英文字幕因為我想下載一個可以語音的翻譯工具，

有道詞典，靈格斯翻譯，MSN帶的必應詞典，等等，不過win7不用管理員身份使用會死機

『柒』求翻譯電影英文字幕，谷歌有工具翻譯，但是質量不好。求人工修改

[email protected]發到郵箱，發時候請註明：網路知道

『捌』有沒有什麼軟體可以把一部英語電影翻譯出字幕或者翻譯出一張台詞

有道翻譯
復制粘貼全文翻譯

網路谷歌也有全文翻譯功能

『玖』給視頻翻譯字幕可以用哪些軟體

我不算很熟悉視頻翻譯字幕，只能勉力為之。我知道我的解讀也許有錯，我也邀請了我熟悉的朋友來回答。他比我懂得更全，應該有幫助。

1.威力導演（PowerDirector）:這是一個非線性視頻編輯軟體，由訊連科技發布，用戶可以使用七截取、編輯、特效、疊加、標題、音頻輸出、視頻、圖片、聲音和其他材料組合成視頻文件，甚至可以直接製作成DVD和VCD光碟的軟體！

最後，我希望我的回答能對你有所幫助！

閱讀全文

與谷歌翻譯電影字幕相關的資料

熱點內容

優酷新流星蝴蝶劍電影粵語發布：2025-02-12 23:39:22 瀏覽：870

幫派電影演員發布：2025-02-12 23:38:31 瀏覽：590

黨史小故事電影發布：2025-02-12 23:37:42 瀏覽：904

李小龍龍爭虎鬥國語高清電影發布：2025-02-12 23:35:37 瀏覽：753

american恐怖電影發布：2025-02-12 22:49:24 瀏覽：696

有在橋上車禍片段的外國電影發布：2025-02-12 22:45:09 瀏覽：545

電影人潮擁擠台詞發布：2025-02-12 22:38:39 瀏覽：275

搞笑版的喪屍電影發布：2025-02-12 22:38:35 瀏覽：278

中國電影官方機構發布：2025-02-12 22:33:23 瀏覽：778

美國電影回家結局發布：2025-02-12 22:31:51 瀏覽：91

兒童電影動畫馴龍高手發布：2025-02-12 22:20:23 瀏覽：882

亞泰新動力有電影院發布：2025-02-12 22:14:59 瀏覽：280

大學生合集大咖電9電影網發布：2025-02-12 22:02:21 瀏覽：936

青春的電影韓劇發布：2025-02-12 22:02:15 瀏覽：744

電影院賣品如何提升銷售發布：2025-02-12 21:52:35 瀏覽：925

周星馳電影粵語經典歌曲發布：2025-02-12 21:42:37 瀏覽：432

同志亦凡人中文站電影發布：2025-02-12 21:36:50 瀏覽：251

國外二戰的兒童電影發布：2025-02-12 21:34:10 瀏覽：760

今年熊出沒電影好看嗎發布：2025-02-12 21:27:14 瀏覽：635

初一晚上看電影文案發布：2025-02-12 21:20:32 瀏覽：719