導航:首頁 > 電影推薦 > 有什麼軟體可以把電影翻譯出字幕

有什麼軟體可以把電影翻譯出字幕

發布時間:2022-02-28 15:24:33

❶ 有沒有軟體能翻譯電影 自動生成中文字幕啊

你好 可以很負責的告訴你 沒有這種軟體
你有沒有看到一些英文中字的電影 某某網站招收字幕人員 這些電影都是人家靠聽力聽出來然後翻譯過來的 要是有你說得那個軟體 這些字幕人員早就沒飯吃了
有名的字幕組 有BT UU鳥 無極

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

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

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

❸ 什麼手機軟體能把外文電影翻譯成中文字幕

沒有這種軟體吧,一般都是翻譯組/個人漢化的。Netflix的部分小語種電影可以顯示英文字母

❹ 有沒有什麼軟體可以一邊看電影一邊顯示字幕的 而且可以總翻譯英語(日語)為中文的啊

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

由多家國際知名風險投資公司投資、服務於中國乃至世界互聯網用戶群體的網路電視技術平台提供商,是第五代網路新媒體的領軍企業,並被國際知名企業/機構(哈佛、麻省理工、微軟研究院)廣泛的引用互聯網視頻企業。第一家致力於新一代視頻媒體技術研發的公司,在中國的知識產權研究和互聯網領域得到了廣泛應用。

❺ 給電影翻譯的都用什麼字幕軟體添加字幕

製作外掛字幕的軟體中,Subtitle Workshop不錯,打開視頻文件後,在字幕區按Insert增加空行,每行打上字幕文本(可能從文本文檔中復制粘貼過去),用Alt+C、Alt+V設置每行字幕開始、結束時間碼,保存為Subrip格式即可。

外掛字幕完成後,有兩個辦法與視頻結合:

一個是使用MKVtoolnix把視頻文件與字幕封裝在一起,生成一個mkv文件。封裝速度很快,字幕仍然是外掛性質,在播放軟體中可以設置字幕大小,可以關閉字幕顯示。

另外一個辦法是把字幕嵌入到視頻當中,可以用格式工廠進行視頻轉換,轉換的時候,指定外掛字幕的文件名,指定字幕大小,轉換之後,字幕就嵌入到視頻當中了。

❻ 有可以翻譯視頻字幕的軟體么

有時從網上下載到新的電影,卻沒有中文字幕,好不容易找到個字幕卻是英文版的,本程序原理是調用谷哥的翻譯功能,僅調用了英翻漢功能,如果需要其他語言可回貼說明一下,改起來應該不難。為便於修改,使用了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.威力導演(PowerDirector):這是一個非線性視頻編輯軟體,由訊連科技發布,用戶可以使用七截取、編輯、特效、疊加、標題、音頻輸出、視頻、圖片、聲音和其他材料組合成視頻文件,甚至可以直接製作成DVD和VCD光碟的軟體!

最後,我希望我的回答能對你有所幫助!

❽ 有什麼軟體能把韓國的電影或電視劇翻譯成中文字幕的求解!

字幕組

❾ 有沒有什麼軟體能把下載下來的電影翻譯成英文字幕

下英文字幕不就行了 視頻播放軟體里都可以設置字幕

閱讀全文

與有什麼軟體可以把電影翻譯出字幕相關的資料

熱點內容
雙字幕的英語動畫電影免費 瀏覽:168
女奧特們電影網站免費播放 瀏覽:497
播放一個好看的古風電影 瀏覽:599
鄧超的的電影有哪些 瀏覽:520
喜寶電影完整版2020免費 瀏覽:739
南瓜電影怎麼退出小視頻 瀏覽:645
什麼電視盒子免費電影多 瀏覽:770
電影院票價大概多少錢一張 瀏覽:472
設電影獎項的如何盈利 瀏覽:773
優酷買電影多少錢一個月多少錢一個月多少錢 瀏覽:386
李蓮英打日本鬼子是什麼電影 瀏覽:732
愛奇藝哪些電影帶黃色 瀏覽:612
中牟電影小鎮停車位有多少 瀏覽:824
快把我哥帶走電視劇好看還是電影 瀏覽:706
如何與好友在網上一起看電影 瀏覽:795
小電影怎麼去馬 瀏覽:537
紅嫁衣原版電影免費觀看 瀏覽:631
網盤里的電影怎麼播放 瀏覽:617
年輕人別太放肆是什麼電影 瀏覽:240
張予曦演過哪些電視劇和電影 瀏覽:235