您的位置：360文档中心› 在线日常英语翻译软件源代码

在线日常英语翻译软件源代码

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

在线日常英语翻译软件源代码
这是我在2005年初冬发布的一款翻译软件，用VBScript写成，此刻能够转换成电话应用，放得电话商店中出售。

软件信息
名称：FY
版本：二、0
金海龙
性质：共享
功能：翻译日常英语单词
开发语言：VBScript
开发平台：Windows2000 Professional
发布日期：2005年11月
单词总数：13511
一、如何翻译单词“english”？
答：在“英语单词”文本框中输入“english”，然后单击“翻译”按钮。

二、如何翻译汉语“中国人”？
答：在“汉语”文本框中输入“中国人”，然后单击“翻译”按钮。

3、如何清除翻译的结果？
答：单击“清除”按钮。

index.htm源代码如下：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>日常英语翻译</title>
<meta name="description" content="日常英语与汉语之间的互译">
<meta name="keywords" content="translate,翻译,日常英语翻译,单词库,FY,电子词典">
<meta name="author" content="Mr.Jin">
<meta name="generator" content="金蛇网页编辑器">
<script language="vbs" src="fy.vbs"></script>
<style>
textarea
{
width:700;
overflow:visible;
height:150;
border:1 double blank;
}
div,body,textarea
{
SCROLLBAR-FACE-COLOR: #dee3e7; FONT-SIZE: 12px; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #dee3e7; SCROLLBAR-3DLIGHT-COLOR: #d1d7dc; LINE-HEIGHT: 135%; SCROLLBAR-ARROW-COLOR: #006699; SCROLLBAR-TRACK-COLOR: #efefef; FONT-FAMILY:"新宋体", "Verdana", "Arial", "Helvetica", "sans-serif"; SCROLLBAR-DARKSHADOW-COLOR: #98aab1; BACKGROUND-COLOR: #ffffff
}
</style>
</head>
<body language=vbs><p>
<label>英语单词：</label>
<input type=text value="scooter" id="t1" language=vbs>
<input type=button value="翻译" id="t11">
<br><br>
<label>汉&nbsp;&nbsp;&nbsp;&nbsp;语：</label>
<input type=text value="子弹" id="t2">
<input type=button value="翻译" id="t22">
<HR>
<br><label>条件：</label>
<br><input type=checkbox checked id="tiao1">若是前几个字母一样就显示
<br><input type=checkbox checked id="tiao2">显示原文
<br><input type=checkbox id="tiao3">区分大小写
<br><label id="st" title="">翻译状态</label>
<br><input type=button value="清除" id=clearrr><br>
<br>
<HR>
<div style="overflow:visible" id="rr">
</div>
</p>
<!-- Search Google -->
<center>
<form method="get" action="google/custom" target="google_window">
<table bgcolor="#ffffff">
<tr><td nowrap="nowrap" valign="top" align="left" height="32">
<label for="sbi" style="display: none">输入您的搜索字词</label>
<input type="text" name="q" size="31" maxlength="255" value="" id="sbi"></input>
<label for="sbb" style="display: none">提交搜索表单</label>
<input type="submit" name="sa" value="Google 搜索" id="sbb"></input>
<input type="hidden" name="client" value="pub-1884336373317843"></input>
<input type="hidden" name="forid" value="1"></input>
<input type="hidden" name="ie" value="GB2312"></input>
<input type="hidden" name="oe" value="GB2312"></input>
<input type="hidden" name="safe" value="active"></input>
<input type="hidden" name="cof" value="GALT:#003324;GL:1;DIV:#C5DBCF;VLC:FF6600;AH:center;BGC:C5DBCF;LBG C:C5DBCF;ALC:66B5FF;LC:66B5FF;T:6131BD;GFNT:B47B10;GIMP:B47B10;LH:100;L W:100;L:/photo/XG0Gyp-AkOG7IcoDTlhtkw==/227150306206229474.jpg; S:bigengineer.blog.163/;LP:1;FORID:1"></input>
<input type="hidden" name="hl" value="zh-CN"></input>
</td></tr></table>
</form>
</center>
<!-- Search Google -->
</body>
</html>
FY.vbs源代码如下：
REM 程序信息
REM 名称：FY
REM 版本：二、0
REM 金海龙
REM 性质：共享
REM 功能：翻译日常英语单词
REM 开发语言：VBScript
REM 开发平台：Windows2000 Professional
REM 发布日期：2005年11月
public publicnum
publicnum=13512
dim c(13512),e(13512)
c(0)="a variety of"
e(0)="许多,各类"
c(1)="accounting"
e(1)="财务，会计学"
c(2)="actor"
e(2)="演员，男演员"
c(3)="actress"
e(3)="女演员"
c(4)="acrobatic"
e(4)="特技，特级演出的，杂技的"
c(5)="add"
e(5)="vt.加，增加"
Rem 以此类推，一直到单词库终止
c(13508)="cartridge"
e(13508)="n.弹药筒，子弹；软片"
c(13509)="SDK"
e(13509)="abbr.Software Development Kit, 软件开发工具包"
c(13510)="federal"
e(13510)="adj.联盟的；联邦的"
c(13511)="partnership"
e(13511)="n.伙伴关系，合股"
sub endshow(r1,r2,r3)
if tiao2.checked<>true then
rr.innerHTML=rr.innerHTML+"<br>结果:&nbsp;"+r3+"<BR>"
else
rr.innerHTML=rr.innerHTML+"<br>你输入的词：&nbsp;"+r2+"&nbsp;|&nbsp;在数据库中找到的词：&nbsp;"+r1+"<BR>"+"结果："+r3
end if
end sub
sub fy(ec,t)
st.innerText="请稍后……"
st.title="Please wait……"
title=""
s=""
s1=""
for i=0 to publicnum
<!--for begin-->
if t="ec" then
s=c(i)
if tiao3.checked<>true then
s1=lcase(s)
s2=lcase(ec)
end if
if tiao1.checked=false then
if s1=s2 then
endshow s1,s2,e(i)
end if
else
if instr(s1,s2)<>0 then
endshow s1,s2,e(i)
end if
end if
end if
<!---->
if t="ce" then
s=e(i)
if tiao3.checked<>true then
s1=lcase(s)
s2=lcase(ec)
end if
if tiao1.checked=false then
if s1=s2 then
endshow s1,s2,c(i)
end if
else
if instr(s1,s2)<>0 then
endshow s1,s2,c(i)
end if
end if
end if
<!--for over-->
next
st.innerTEXT="翻译完毕！"
st.title="Finished! Please Look at the result!" end sub
sub window_onload
self.moveto 0,0
self.resizeto window.screen.width,window.screen.height-30
end sub
sub document_onclick
if document.activeElement.id="t11" then
fy t1.value,"ec"
end if
if document.activeElement.id="t22" then
fy t2.value,"ce"
end if
if document.activeElement.id="clearrr" then
rr.innerHTML=""
st.innerText=""
st.title=""
end if
end sub
setinterval "mymessage",30000
sub mymessage
MSGBOX "利用那个程序的网站治理员尚未交纳一元人民币的注册费，请尽快交纳利用费。

"
window.open "help.htm#c"
end sub
博客：
技术博客：
论坛：
Google搜索：
电子邮件：bigengineer@163
共享文档：
相关内容：
我主天§主赐我爱人之心！我该如何去帮忙天下像我一样的个人创业者！
今天，我要告知大伙儿：要创业，方式必需正确，要取得方式，就必需广开言路，
通过Google搜索本来能够查到，但重要内容却被封杀了，使大伙儿变成呆子。

若是你想看看发达国家的小孩是怎么日进斗金的，那么就学习新概念：翻墙、在线代理，小窍门：这些新型网络概念，能够在维基百科中查到。

权威教学课件展现所有课件的下载方式：课件的名字
Google搜索：Google搜索：
Google搜索：
Google搜索：
其它章节：Flash文件代码：
<object id="_ds_40730665" name="_ds_40730665" width="670" height="550" type="application/x-shockwave-flash" data="viewer.docstoc/"><param name="FlashVars"
value="doc_id=40730665&mem_id=4492435&doc_type=doc&fullscreen=0&allowdownload= 1" /><param name="movie" value="viewer.docstoc/"/><param name="allowScriptAccess" value="always" /><param name="allowFullScreen" value="true" /></object><br /><font size="1"><a href="docstoc/docs/40730665/初中各类型化学题-第1页doc">初中各类型化学题第1页.doc</a></font>
<object id="_ds_40747537" name="_ds_40747537" width="670" height="550" type="application/x-shockwave-flash" data="viewer.docstoc/"><param name="FlashVars"
value="doc_id=40747537&mem_id=4492435&doc_type=doc&fullscreen=0&allowdownload= 1" /><param name="movie" value="viewer.docstoc/"/><param name="allowScriptAccess" value="always" /><param name="allowFullScreen" value="true" /></object><br /><font size="1"><a href="docstoc/docs/40747537/初中各类型化学题-第3页doc">初中各类型化学题第3页.doc</a></font>
<object id="_ds_40746203" name="_ds_40746203" width="670" height="550" type="application/x-shockwave-flash" data="viewer.docstoc/"><param name="FlashVars"
value="doc_id=40746203&mem_id=4492435&doc_type=doc&fullscreen=0&allowdownload= 1" /><param name="movie" value="viewer.docstoc/"/><param name="allowScriptAccess" value="always" /><param name="allowFullScreen" value="true" /></object><br /><font size="1"><a href="docstoc/docs/40746203/初中化学各章重点-2020">初中化学各章重点 2020</a></font>
<object id="_ds_40747551" name="_ds_40747551" width="670" height="550" type="application/x-shockwave-flash" data="viewer.docstoc/"><param name="FlashVars"
value="doc_id=40747551&mem_id=4492435&doc_type=doc&fullscreen=0&allowdownload= 1" /><param name="movie" value="viewer.docstoc/"/><param name="allowScriptAccess" value="always" /><param name="allowFullScreen" value="true" /></object><br /><font size="1"><a href="docstoc/docs/40747551/初中各章知识要点总结(3)doc">初中各章知识要点总结(3).doc</a></font>。

相关文档
最新文档