搜我爱 - 开源机器翻译源代码（Open Source Machine Translation）

本人最近想做一个在线机器翻译网站，把自己的劳动成果公布出来与大家一起分享，你可以随意下载修改，希望与志同道合的朋友一起讨、研究机器翻译。phone:13684072248， QQ：275103725

很简单的一段代码，暂时用的是ASP+access实现，在线机器翻译测试网址为:http://www.seek52.com/trans/ ，不过我想以后用PHP+MySQL实现。

1. access数据库名为words.mdb，其中字段有四个：id, en, cn, type; 现提供语料下载：：1万条样品平衡语料（免费） 121万英汉平衡语料下载(需少数费用）

格式如下：


id	en	cn	type
65	you're suffering from an allergy	你过敏吗	常用
66	beyond all questions you are right	毫无疑问，你是对的	常用
67	but i plan to weed the yard today	我计划今天除院子里的草	常用
68	but who will do all the house work	但是这些家务活谁来做呢	常用


id	en	cn	type
181416	line section	线段	电子工程
181417	line short circuit	线路短接	电子工程
181418	line simulator	仿真线	电子工程
181419	line switch	线路开关	电子工程
181420	line terminals	线路线端	电子工程

2. 程序实现页面，也就是处理机器翻译的页面名为index.asp，具体代码如下：

<% on error resume next Server.ScriptTimeOut=9000 response.buffer=true para=request("lan")+request("cor") if InStr(para,"'")>0 or InStr(para,"insert")>0 or InStr(para,"?")>0 or InStr(para,"and")>0 or InStr(para,"or")>0 or InStr(para,"delete")>0 then response.redirect "index.asp" response.end() end if %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "<A href="http://www.w3.org/TR/html4/loose.dtd">http://www.w3.org/TR/html4/loose.dtd</A>"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>开源在线机器翻译 - seek52.com</title> <link type="text/css" rel="stylesheet" href="default.css"/> <script language="JavaScript" type="text/JavaScript">  </script> </head> <body> <div id="all"> <! len(en) desc, len(cn) asc !> 注：由于自然语言的复杂性，以下内容仅供参考！我们会用心做下去，不断完善。<a href="mt.asp" target=blank>更多机器翻译</a> <div id="div1"> <form name="f" method="post" > 原文: <textarea name="tobetranslated" cols=120 rows=10 wrap="soft"><%=replace(Request.Form("tobetranslated"),"<","<")%></textarea> <div id="middlepart"> 请选择语言方向: <select name="lang"> <option value="en2cn" <%if request.querystring("lan")="en2cn" then%>selected<% end if %>> 英译汉 <option value="cn2en" <%if request.querystring("lan")="cn2en" then%>selected<% end if %>> 汉译英 </select> 语料库: <select name="corpus" > <option value="常用" <%if request.querystring("cor")="常用" then%>selected<%end if%>>C 常用 <option value="采矿工程" <%if request.querystring("cor")="采矿工程" then%>selected<%end if%>>C 采矿工程 <option value="地理" <%if request.querystring("cor")="地理" then%>selected<%end if%>>D 地理 <option value="地质" <%if request.querystring("cor")="地质" then%>selected<%end if%>>D 地质 <option value="电子" <%if request.querystring("cor")="电子" then%>selected<%end if%>>D 电子 <option value="电子工程" <%if request.querystring("cor")="电子工程" then%>selected<%end if%>>D 电子工程 <option value="化学" <%if request.querystring("cor")="化学" then%>selected<%end if%>>H 化学 <option value="计算机" <%if request.querystring("cor")="计算机" then%>selected<%end if%>>J 计算机 <option value="机械" <%if request.querystring("cor")="机械" then%>selected<%end if%>>J 机械 <option value="机械工程" <%if request.querystring("cor")="机械工程" then%>selected<%end if%>>J 机械工程 <option value="建筑" <%if request.querystring("cor")="建筑" then%>selected<%end if%>>J 建筑 <option value="进出口" <%if request.querystring("cor")="进出口" then%>selected<%end if%>>J 进出口 <option value="农业" <%if request.querystring("cor")="农业" then%>selected<%end if%>>N 农业 <option value="轻工业" <%if request.querystring("cor")="轻工业" then%>selected<%end if%>>Q 轻工业 <option value="生物学" <%if request.querystring("cor")="生物学" then%>selected<%end if%>>S 生物学 <option value="数学" <%if request.querystring("cor")="数学" then%>selected<%end if%>>S 数学 <option value="物理" <%if request.querystring("cor")="物理" then%>selected<%end if%>>W 物理 <option value="消防" <%if request.querystring("cor")="消防" then%>selected<%end if%>>X 消防 <option value="心理学" <%if request.querystring("cor")="心理学" then%>selected<%end if%>>X 心理学 <option value="信息学" <%if request.querystring("cor")="信息学" then%>selected<%end if%>>X 信息学 <option value="医药" <%if request.querystring("cor")="医药" then%>selected<%end if%>>Y 医药 <option value="原子能" <%if request.querystring("cor")="原子能" then%>selected<%end if%>>Y 原子能 </select> <input type="button" value=" 点击翻译 " onClick="javascript:processing();">  <input type="button" value=" 清空原文 " onclick="clearsl();">  <input type="button" value=" 复制译文 " onclick="copytl();"> </div> <div id="processing" style="display:none;"> <img src="images/processing.gif"> 翻译处理中,请稍候.... </div> <div id="div2"> 译文： <textarea id="trans" cols="120" rows="10" readonly="readonly"><% ' the code for translation textarea. if request("action")="translate" then %><% dim lan, corpustype lan=Request.Form("lang") corpustype=request.form("corpus") dim w2: w2=Cstr(Request.Form("tobetranslated")) '*****************************************************以下为英到汉的处理代码*********************************** If lan="en2cn" Then '确定选择的何种语言译成何种语言 w2=" "+w2+" " '在句子前面及末尾加上一个空格，以便处理； 'w2=replace(w2,"'","’") '将所有英语中的'替换成汉语中的’； w2=replace(w2,"’","'") w2=replace(w2,vbCr," ") '将所有\r回车符用空格取代; w2=replace(w2,vbLf,vbLf+" ") '将所有换行符用空格取代； do while(InStr(w2," ")>0) w2=replace(w2," "," ") '将所有两个或以上空格用一个空格取代； loop w2=replace(w2,vbTab," "+vbTab+" ") '将tab转为空格； w2=replace(w2,"。"," 。 ") '将英文原文中所有的常见标点符号全部都在前后加上空格； w2=replace(w2,"，",",") 'w2=replace(w2,"-"," - ") ' not seperate this sign w2=replace(w2,"--"," -- ") w2=replace(w2,"；"," ； ") w2=replace(w2,"！"," ！ ") w2=replace(w2,"？"," ？ ") w2=replace(w2,"“"," “ ") w2=replace(w2,"”"," ” ") w2=replace(w2,"."," 。 ") 'w2=replace(w2,","," ， ") 'temperately not replace this English comma； w2=replace(w2,","," , ") w2=replace(w2,";"," ； ") w2=replace(w2,"!"," ！ ") w2=replace(w2,"?"," ？ ") w2=replace(w2,""""," “ ") w2=replace(w2,"("," （ ") w2=replace(w2,")"," ） ") w2=replace(w2,"（"," （ ") w2=replace(w2,"）"," ） ") w2=replace(w2,"/"," / ") w2=replace(w2,"："," ： ") w2=replace(w2,":"," ： ") w2=replace(w2,"["," [ ") w2=replace(w2,"]"," ] ") w2=replace(w2,"—"," — ") w2=LCase(w2) '将原文中的所有大小转换成小写； set conn = Server.CreateObject("ADODB.Connection") set rst = Server.CreateObject("ADODB.RecordSet") conn.open("driver={microsoft access driver (*.mdb)};dbq="+Server.MapPath("words.mdb")) 'determine which kind of corpus to be used. select case corpustype case "采矿工程" rst.open "select * from sen2 where type='采矿工程' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "常用" rst.open "select * from sen2 where type='常用' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "地理" rst.open "select * from sen2 where type='地理' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "地质" rst.open "select * from sen2 where type='地质' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "电子" rst.open "select * from sen2 where type='电子' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "电子工程" rst.open "select * from sen2 where type='电子工程' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "化学" rst.open "select * from sen2 where type='化学' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "计算机" rst.open "select * from sen2 where type='计算机' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "机械" rst.open "select * from sen2 where type='机械' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "机械工程" rst.open "select * from sen2 where type='机械工程' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "建筑" rst.open "select * from sen2 where type='建筑' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "进出口" rst.open "select * from sen2 where type='进出口' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "农业" rst.open "select * from sen2 where type='农业' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "轻工业" rst.open "select * from sen2 where type='轻工业' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "生物学" rst.open "select * from sen2 where type='生物学' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "数学" rst.open "select * from sen2 where type='数学' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "物理" rst.open "select * from sen2 where type='物理' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "消防" rst.open "select * from sen2 where type='消防' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "心理学" rst.open "select * from sen2 where type='心理学' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "信息学" rst.open "select * from sen2 where type='信息学' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "医药" rst.open "select * from sen2 where type='医药' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 case "原子能" rst.open "select * from sen2 where type='原子能' or type='常用' order by len(en) desc, len(cn) asc",conn,1,3 'case else rst.open "select * from sen2 where type='常用' order by len(en) desc, len(cn) asc",conn,1,3 end select do until rst.EOF '从句子到词组再到单词，这样子来处理需要翻译的句子。 if InStr(w2," "+rst("en")+" ")>0 Then w2=replace(w2," "+rst("en")+" "," "+rst("cn")+" ") end if rst.movenext loop w2=replace(w2," ","") '将所有多余的空格去掉； w2=replace(w2,"kongbai","") '将所有空白kongbai去掉； w2=replace(w2,",","，") 'transfer the English comma to be Chinese comma； w2=replace(w2,"。。","..") 'transfer continous three periods 。。。 to be ...； w2=replace(w2,"<","<") 'to prevent from being inserted with js； Response.Write(w2) '输出最后处理过的值； conn.close set conn=nothing set rst=nothing else '****************************************以下为汉译英的处理代码；************************************************ set conn = Server.CreateObject("ADODB.Connection") set rst = Server.CreateObject("ADODB.RecordSet") conn.open("driver={microsoft access driver (*.mdb)};dbq="+Server.MapPath("words.mdb")) 'wordscn to be used in the future. 'to determine the type of corpus selected. select case corpustype case "采矿工程" rst.open "select * from sen2 where type='采矿工程' or type='常用' order by len(cn) desc",conn,1,3 case "常用" rst.open "select * from sen2 where type='常用' or type='常用' order by len(cn) desc",conn,1,3 case "地理" rst.open "select * from sen2 where type='地理' or type='常用' order by len(cn) desc",conn,1,3 case "地质" rst.open "select * from sen2 where type='地质' or type='常用' order by len(cn) desc",conn,1,3 case "电子" rst.open "select * from sen2 where type='电子' or type='常用' order by len(cn) desc",conn,1,3 case "电子工程" rst.open "select * from sen2 where type='电子工程' or type='常用' order by len(cn) desc",conn,1,3 case "化学" rst.open "select * from sen2 where type='化学' or type='常用' order by len(cn) desc",conn,1,3 case "计算机" rst.open "select * from sen2 where type='计算机' or type='常用' order by len(cn) desc",conn,1,3 case "机械" rst.open "select * from sen2 where type='机械' or type='常用' order by len(cn) desc",conn,1,3 case "机械工程" rst.open "select * from sen2 where type='机械工程' or type='常用' order by len(cn) desc",conn,1,3 case "建筑" rst.open "select * from sen2 where type='建筑' or type='常用' order by len(cn) desc",conn,1,3 case "进出口" rst.open "select * from sen2 where type='进出口' or type='常用' order by len(cn) desc",conn,1,3 case "农业" rst.open "select * from sen2 where type='农业' or type='常用' order by len(cn) desc",conn,1,3 case "轻工业" rst.open "select * from sen2 where type='轻工业' or type='常用' order by len(cn) desc",conn,1,3 case "生物学" rst.open "select * from sen2 where type='生物学' or type='常用' order by len(cn) desc",conn,1,3 case "数学" rst.open "select * from sen2 where type='数学' or type='常用' order by len(cn) desc",conn,1,3 case "物理" rst.open "select * from sen2 where type='物理' or type='常用' order by len(cn) desc",conn,1,3 case "消防" rst.open "select * from sen2 where type='消防' or type='常用' order by len(cn) desc",conn,1,3 case "心理学" rst.open "select * from sen2 where type='心理学' or type='常用' order by len(cn) desc",conn,1,3 case "信息学" rst.open "select * from sen2 where type='信息学' or type='常用' order by len(cn) desc",conn,1,3 case "医药" rst.open "select * from sen2 where type='医药' or type='常用' order by len(cn) desc",conn,1,3 case "原子能" rst.open "select * from sen2 where type='原子能' or type='常用' order by len(cn) desc",conn,1,3 'case else rst.open "select * from sen2 where type='常用' order by len(cn) desc",conn,1,3 end select do until rst.EOF '从句子到词组再到单词，这样子来处理需要翻译的句子。 if InStr(w2,rst("cn"))>0 Then w2=replace(w2,rst("cn")," "+rst("en")+" ") end if rst.movenext loop w2=replace(w2," "," ") '将所有多余的空格去掉； w2=replace(w2,"kongbai","") '将所有空白kongbai去掉； w2=replace(w2,"，",",") '将所有英文标点符号转换成汉语标点； w2=replace(w2,"；",";") w2=replace(w2,"！","!") w2=replace(w2,"？","?") w2=replace(w2,"“","""") w2=replace(w2,"”","""") w2=replace(w2,"。",".") w2=replace(w2,"’","'") w2=replace(w2,"：",":") w2=replace(w2,"、",",") w2=replace(w2," .",".") '将所有标点符号前的空格清除掉； w2=replace(w2," ,",",") w2=replace(w2," ;",";") w2=replace(w2," !","!") w2=replace(w2," ?","?") w2=replace(w2,"</","< /") Response.Write(w2) '输出最后处理过的值； conn.close set conn=nothing set rst=nothing End If '结束end语句； End If 'ending the initilization for transtlion textarea %> </textarea> </form> </div> <div id="transurl" > <form name="websiteform" method="post" action="translateenurl.asp?action=translate" target=blank> 英译汉: <input name="url" type="text" value="http://" size="80"> <input type="submit" value=" 翻译网页 "> </form> </div> <div id="bottom"> <hr size="1" color="#3366CC" > 2007© Seek52.com 机器翻译</td> 程序设计：小钟探讨合作QQ：275103725</div> </div> </body> </html>

3. 如果你正在从事翻译工作，是否为专业词汇而犯难呢？试试http://www.seek52.com/trans/mt.asp ，我将不少不错的在线词典及机器翻译网站集合在一起，希望在你的翻译过程中能带来帮助。

在线机器翻译测试网址为:http://www.seek52.com/trans/ 欢迎大家来做客！数据库文件请在http://www.seek52.com/mt/上查找下载地址。有关在线网页汉化的页面还不够完善，正在研发中，完成后将与大家一起分享。另外，我们急需要英汉或汉英对照语料库，要是有好心的朋友愿意提供，小弟在此先感谢了！！！：1万条样品平衡语料（免费） 121万英汉平衡料下载(需少数费用）