Board logo

标题: [原创] 2016-5-10更新字幕翻译专用软件VBS编制目前只能用于英文字幕转汉字 [打印本页]

作者: 9zhmke    时间: 2016-1-13 23:19     标题: 2016-5-10更新字幕翻译专用软件VBS编制目前只能用于英文字幕转汉字

本帖最后由 9zhmke 于 2016-5-10 23:32 编辑

有时从网上下载到新的电影,却没有中文字幕,好不容易找到个字幕却是英文版的,太郁闷了,怒之,遂写了此脚本,机译虽然看起来有些吃力,但大体上可以看懂意思了,这翻译质量不好的问题可不是我能解决的。程序原理是调用谷哥的翻译功能,仅调用了英翻汉功能,如果需要其他语言改起来应该不难,为便于修改,使用了VBS来写,随时随地可修改..... 信息反馈可于本贴跟贴,或者发到原贴:http://bbs.dp168.com/thread-108654-1-1.html

1、生成程序:把下列语句存于一个纯文本文件(比如用你系统的“记事本”粘贴进去再存成“字幕翻译.vbs”即可使用。
2、使用方法:把英文字幕的“.srt”文件用鼠标拖到这个程序上松手即可开始自动翻译,翻译完成后自动生成一个同名文件的汉字字幕文件。
  1. '[程序开始]
  2. lang="en"
  3. Interval="________________"
  4. 'lang="bs" '波斯尼亚
  5. Dim WshShell,file_name,ping_time,str,val(5000,3),reg,wmi,tran_temp
  6. Set WshShell=WScript.CreateObject("WScript.Shell")
  7. Set objFSO = CreateObject("Scripting.FileSystemObject")
  8. Set objShell = CreateObject("Shell.Application") '建立Shell.Applciation 对象
  9. Set Shell=CreateObject("Shell.Application")
  10. Set objArgs=WScript.Arguments'取得拖入的文件名
  11. on error resume next
  12.     Set wmiService = GetObject("winmgmts:\\.\root\cimv2") '关闭内存中未完全退出占用小于8M的IE
  13.     Set wmiObjects = wmiService.ExecQuery("SELECT * FROM Win32_process where caption='iexplore.exe'")
  14.     if wmiObjects.count > 0 then
  15.         For Each wmiObject In wmiObjects
  16.             if (wmiObject.workingsetsize/1048576) < 80 then wmiObject.terminate()
  17.         next
  18.     End if
  19.     file_name=""
  20.     if objArgs(0)=Empty then file_name="No"
  21.     WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","","REG_SZ" '去除标题栏后IE说明
  22.     ping_time=600
  23.     Set objWMI = GetObject("winmgmts:\\.")
  24.     Set colPings = objWMI.ExecQuery ("Select * From Win32_PingStatus where Address = '" & "translate.google.cn" & "'")
  25.     For Each objPing in colPings
  26.         ping_time=objPing.ResponseTime+0
  27.     Next
  28.     if not isnumeric(ping_time) then ping_time=60
  29.     if ping_time >500 then msgbox "翻译服务器太慢,请改时段翻译":Wscript.Quit
  30. on error goto 0
  31. start_time=now()
  32. if file_name="No" then msgbox "未找到匹配文件,请拖动字幕文件到本程序。":Wscript.Quit
  33. set ie=wscript.createobject("internetexplorer.application","event_") '创建ie对象'
  34. Set google = WScript.CreateObject("InternetExplorer.Application")
  35. google.visible = 0
  36. WshShell.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title"'恢复IE标题栏说明为Internet Exporer
  37. 'ie.fullscreen=0:ie.menubar=0:ie.addressbar=0:ie.toolbar=0:ie.statusbar=0:ie.resizable=1
  38. ' 不使用全屏   '取消菜单栏   '取消地址栏     '取消工具栏  '取消状态栏 '允许用户改变窗口大小
  39. ie.width=500:ie.height=500:ie.top=2:ie.navigate "about:blank" '宽 高 打开空白页面
  40. ie.document.write "<html><head><title> - 字幕英翻汉程序</title></head><body>"
  41. ie.document.write "<div id=right>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
  42. ie.document.write "<a target=_BLANK href=http://bbs.dp168.com/thread-108654-1-1.html style=font-size:12px;>论坛</a></div><br>"
  43. set wnd=ie.document.parentwindow '设置wnd为窗口对象'
  44. set id=ie.document.all '设置id为document中全部对象的集合'
  45. tmp1=InstrRev(objArgs(0),".")-1 '计算中间应使用的中文字幕文件名
  46. if tmp1>0 then
  47.     if instr(objArgs(0),"eng") then
  48.         file_name=replace(objArgs(0),"eng","chs")
  49.     else
  50.         file_name=left(objArgs(0),tmp1) & ".chs" & right(objArgs(0),len(objArgs(0))-tmp1)
  51.     end if
  52. else
  53.     file_name=objArgs(0) & "chs.txt"
  54. end if
  55. on error resume next
  56.     objFSO.deletefile file_name,true
  57. on error goto 0
  58. txt=""
  59. Set tmp1 = objFSO.OpenTextFile (objArgs(0),1) '打开英文字幕原始文件准备读取
  60. txt = trim(tmp1.ReadAll) & vbCrLf & vbCrLf '读所有进内存
  61. set tmp1=nothing
  62. for i=1 to 3 '修正头部出错
  63.     line=mid(txt,i,1)
  64.     if asc(line)=31 then exit for
  65. next
  66. txt="1" & vbCrLf & right(txt,len(txt)-i)
  67. reg=split(txt,vbCrLf)'在内存中提取已读入的注册表关键字并放入reg
  68. srt_line=UBound(reg)
  69. count=1
  70. ie.document.write "&nbsp;&nbsp;<textarea rows=15 cols=35 id=txt></textarea>"
  71. ie.visible=1   '窗口可见
  72. Set tmp2=objFSO.OpenTextFile(file_name,8,True,-1) '打开TXT准备写入
  73. block=1
  74. for i=0 to srt_line     '翻译开始:读一行处理一行
  75.     old_i=i:old_count=count
  76.     for j=i to srt_line '从当前到最后,检索序号
  77.              if IsNumeric(reg(i)) then if cint(reg(i))=count then exit for
  78.          i=i+1
  79.     next    '出循环时已找到第count句
  80.     i=i+1:if i>srt_line then exit for
  81.     on error resume next
  82.         while instr(reg(i),"-->")=0 and i<srt_line
  83.             i=i+1
  84.         wend'如果行号是第i,并且下行有表示时间轴的"-->"则后面是文字
  85.     on error goto 0
  86.     val(count,0)=reg(i)'出循环时已找到有"-->"的时间轴
  87.     i=i+1:str=""
  88.     if i>srt_line and count<2 then
  89.         if count<2 then
  90.             ie.document.write "这个字幕格式不能被识别:<br>" & file_name & "。<br>"
  91.             Wscript.Quit
  92.         end if
  93.         exit for
  94.     end if
  95.     for j=i to srt_line-1
  96.         str=str & reg(j) & vbCrLf
  97.         if IsNumeric(reg(j+1)) then if int(reg(j+1))=count+1 then exit for
  98.     next
  99.     str=Del_Enter(str,3) '删除多余回车换行:左1中2右3左中4左右5中右6全部7
  100. '此处应增加判断无空格回车替换成带空格回车,以在翻译时不会把前后两个单词连在一起翻译不出来。
  101. '句点后无空格的要增加空格,否则翻译会出错。
  102.     val(count,1)=str
  103.     if (i+1)>srt_line or (j+1)>srt_line then exit for
  104.     count=count+1
  105. next
  106. '已读入内存,准备翻译
  107. for i=1 to count
  108.     str=""
  109.     for j=i to i+20
  110.         if val(j,1)>"" then
  111.             str=str & Interval & " " & val(j,1) & vbCrLf
  112.         end if
  113.     next
  114.     str=str & Interval & "______"
  115.     str=replace(str,"&lt;","<"):str=replace(str,"&gt;",">")
  116.     tmp_trans=trans(str)
  117.     tran_temp=split(tmp_trans,"______________")
  118.     'msgbox tran_temp(1)  & "|||" & tran_temp(UBound(tran_temp))& "|||" & tmp_trans
  119.     str=""'j序列号;val(j,0)时间线;val(j,1)原文;tran_temp
  120.     for j=0 to UBound(tran_temp)-1'j序列号;val(j,0)时间线;val(j,1)原文;tran_temp
  121.         str=str & i+j & vbCrLf & val(i+j,0) & vbCrLf & val(i+j,1) & vbCrLf
  122.         str=str & tran_temp(j+1) & vbCrLf & vbCrLf
  123.     next
  124.     i=i+20
  125.     ie.document.getElementById("txt").value=  str
  126.     tmp2.write(str)
  127. next
  128. tmp2.write(vbCrLf & vbCrLf)
  129. tmp2.close
  130. i=datediff("s",start_time,now()) :if i>60 then j=(i mod 60) & "分" & int(i/60) & "秒" else j=i & "秒"
  131. k=int(i/(count-1)*100)/100:if k<1 then k="0" & k
  132. j=j & "平均" & k & "秒"
  133. ie.document.write "<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;翻译" & count & "句用了" & j & ",请直接"
  134. ie.document.write "关闭本窗口。<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;已生成" & file_name & "。<br><br><br>"
  135. ie.document.parentwindow.scrollby 0,150
  136. Wscript.Quit
  137. '使用谷歌翻译对应的句子,请注意之前使用了以下几句
  138. 'Set google = WScript.CreateObject("InternetExplorer.Application")
  139. 'google.visible = false
  140. 'ping_time=600
  141. 'Set objWMI = GetObject("winmgmts:\\.")
  142. 'Set colPings = objWMI.ExecQuery ("Select * From Win32_PingStatus where Address = '" & "translate.google.cn" & "'")
  143. 'For Each objPing in colPings
  144. '    ping_time=objPing.ResponseTime+0
  145. 'Next
  146. 'if not isnumeric(ping_time) then ping_time=60
  147. 'if ping_time >500 then msgbox "翻译服务器太慢,请改时段翻译":Wscript.Quit
  148. FunctiOn trans(str_in)
  149.     dim str_out,strURL,tmpval,txt
  150.     if trim(str_in)="" then trans="翻译字符串不能为空":Exit Function
  151.     str_in=trim(replace(str_in,vbCrLf," " & vbCrLf))
  152.     strURL=trim(replace(str_in," ","%20"))
  153.     strURL = "http://translate.google.cn/?sl=auto&tl=zh-CN#"& lang & "/zh-CN/" & strURL & ""
  154.     google.navigate strURL
  155.     trans="":str_out="":tmpval=0:txt=""
  156.     on error resume next
  157.         while instr(trans,Interval)=0
  158.             txt=ie.document.documentElement.outerHTML
  159.             if txt="" then Wscript.Quit
  160.             wscript.sleep ping_time
  161.             trans = google.document.body.innerText
  162.         wend
  163.         wscript.sleep ping_time *2
  164.         wscript.sleep 180
  165.         trans = google.document.body.innerText
  166.     on error goto 0
  167.     tmpval=len(trans)-instr(trans,"您也可以直接上传文档")
  168.     trans=right(trans,tmpval)
  169.     tmpval=len(trans)-instr(trans,Interval)
  170.     trans=right(trans,tmpval+1)
  171.     'ie.document.getElementById("txt").value=  trans
  172.     trans=left(trans,instr(trans,Interval & "______")-1)
  173.     trans=replace(trans,"_ ","_")
  174.     trans=replace(trans,"_,","_")
  175.     trans=replace(trans,Interval,"______________")
  176.     trans=replace(trans,"_______________","______________")
  177.     'ie.document.getElementById("txt").value=  trans
  178. End Function
  179. FunctiOn Del_Enter(str,del_attrib) '删除多余回车换行:左1中2右3左中4左右5中右6全部7
  180.     str=trim(str)
  181.     if del_attrib=2 or del_attrib=4 or del_attrib=6 or del_attrib=7 then
  182.         while len(str)>len(replace(str,vbCrLf & vbCrLf,vbCrLf))'合并中间多余的回车或换行成一行
  183.             str=replace(str,vbCrLf & vbCrLf,vbCrLf)
  184.             str=trim(str)
  185.         wend
  186.     end if
  187.     if del_attrib=1 or del_attrib=4 or del_attrib=5 or del_attrib=7 then
  188.         while left(str,1)=chr(10) or left(str,1)=chr(13) '删除左边的回车或换行
  189.             str=right(str,len(str)-1)
  190.         wend
  191.     end if
  192.     if del_attrib=3 or del_attrib=5 or del_attrib=6 or del_attrib=7 then
  193.         while right(str,1)=chr(10) or right(str,1)=chr(13) '删除右边的回车或换行
  194.             str=left(str,len(str)-1)
  195.         wend
  196.     end if
  197.     Del_Enter=str
  198. End Function
  199. '[程序结束]
复制代码

作者: hlzj88    时间: 2016-5-11 16:51

工具很实用,谢谢分享。
作者: 523066680    时间: 2016-5-11 17:39

两个ID都是6位随机字符?
作者: 9zhmke    时间: 2016-5-12 11:54

两个ID都是6位随机字符?
523066680 发表于 2016-5-11 17:39



    你说的是哪两个ID? 顺便再给个你的Python地址方便不?这段时间正在学。




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2