更新时间:2009-09-07
以下是程序代码,包括HTML代码
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>编码译码</title>
<script language="javascript" type="text/javascript">
function readTxt(src){
var ForReading=1;
try{
var fso=new ActiveXObject("Scripting.FileSystemObject");
var f=fso.OpenTextFile(src,ForReading);
var str=f.ReadAll();
document.getElementById("txtContent").innerHTML="<table width='350px' style='text-align:left;'><tr><td width='50px'>"+str.replace(//r/n/ig,"</td></tr><tr><td>").replace(/,/ig,"</td><td>").replace(/<td><//td><td><//td>/ig,"<td>,</td>")+"</td></tr></table>";
return str;
}catch(e){ return "null";}
}
function creatCodeTable(src){
var datastr=readTxt(src);
var arr=new Array();
var errorFlag=false;
if(datastr!="null"){
var arrRow=datastr.split("/r/n");
var arrCell=null;
var j=0;
var i=arrRow.length-1;
while(i>-1&&errorFlag==false){
arrCell=arrRow[i].replace(//s/g,"").split(",");
j=arrCell.length-1;
if(j<2||j>3){
errorFlag=true;
}else if(j==3){
if(arrCell[0]==""&&arrCell[1]==""){
arr.push([",",arrCell[3]]);
}else{errorFlag=true;}
}else{
arr.push([arrCell[0],arrCell[2]]);
}
i--;
}
}
if(errorFlag==false){return arr;}
else{alert("码表结构有误!"); return (new Array());}
}
var codeTableLength=0;
var codeTableArray=null;
var maxCodeLength=0;
function testCodeTable(src){
var arr=creatCodeTable(src);
var length=arr.length;
var prestr="";
var prestr1="";
var curstr="";
var curstr1="";
var errorFlag=false;
if(length>0){
arr.sort(function(x,y){
if(x[1]==y[1]){
return x[0].localeCompare(y[0]);
}else{
return x[1].localeCompare(y[1]);
}
});
if(length>1){
prestr=arr[0][0];prestr1=arr[0][1];
maxCodeLength=prestr1.length;
for(var i=1;i<length&&errorFlag==false;i++){
curstr=arr[i][0];curstr1=arr[i][1];
maxCodeLength=Math.max(maxCodeLength,curstr1.length);
if(prestr==curstr||prestr1==curstr1){errorFlag=true;}
else{prestr=curstr;prestr1=curstr1; }
}
}
}
if(errorFlag==true){
document.getElementById("btnCode").disabled="disabled";
document.getElementById("btnDecode").disabled="disabled";
codeTableLength=0;
codeTableArray=null;
alert("码表编码有重复!");
}
else{
codeTableLength=length;
codeTableArray=arr;
document.getElementById("btnCode").disabled="";
document.getElementById("btnDecode").disabled="";
}
}
function getCode(){
var str=document.getElementById("codeResult").value.replace(//s/g,"").replace(/<[^>]*>/g,"");
var i=str.length-1;
var str1="";
var c="",c1="";
var isOK=true;
var perCodeLength=Math.ceil(Math.log(codeTableLength)/Math.LN2);
var allCodeLength=0;
var allCodeLength1=(i+1)*perCodeLength;
while(i>-1&&isOK==true){
c=str.substr(i,1);
isOK=false;
for(var j=0;j<codeTableLength&&isOK==false;j++){
//alert(escape(c)+"/n"+codeTableArray[j][0]+"/n"+escape(codeTableArray[j][0]));
if(c==codeTableArray[j][0]){
c1=codeTableArray[j][1];
allCodeLength+=c1.length;
if(i%2>0)c1=c1.bold();
str1=c1+str1;
isOK=true;
}
}
i--;
}
if(isOK==false){
alert("要编码的字符串中包含未在码表中的字符!");
}else{
document.getElementById("codeResult1").innerHTML=str1;
document.getElementById("codeRate").value=(allCodeLength/allCodeLength1*100).toFixed(2);
}
}
function getDecode(){
var str=document.getElementById("decodeResult").value.replace(//s/g,"").replace(/<[^>]*>/g,"");
var i=0,j=0;
var isOK=true;
var c="";
var str1="";
while(i<str.length&&isOK==true){
isOK=false;
for(j=1;j<maxCodeLength&&isOK==false&&(i+j<=str.length);j++){
c=str.substr(i,j);
for(var k=0;k<codeTableLength&&isOK==false;k++){
if(codeTableArray[k][1]==c){
str1+=codeTableArray[k][0];
i=i+j-1;
isOK=true;
}
}
}
i++;
}
document.getElementById("decodeResult1").innerHTML=str1;
if(isOK==false)
alert("要译码的字符串有错误!");
}
</script>
</head>
<body style=" text-align:center;"><table width="885px"><tr><td>
<div style="width:385px;">码表位置:<input type="file" id="codeFileLocation" value="" style=" width:300px;height:20px;" οnchange="testCodeTable(this.value);"/>
</div><div id="txtContent" style="width:385px;height:380px;overflow:scroll;"></div></td><td>
<div style="width:550px;height:400px;">在下面的文本框中填入要编码的字符。
<textarea value="" id="codeResult" name="codeResult" style="width:100%;height:50px;"></textarea>
编码结果:<input type="button" id="btnCode" value="编码" οnclick="getCode()" disabled="disabled" style="height:20px;" />压缩比率:<input type="text" value="100.00" id="codeRate" disabled="disabled" style="width:80px; height:20px;">%<div id="codeResult1" style="width:100%;height:100px;overflow:scroll; border:thin #999 dashed;"></div>在下面的文本框中填入要译码的字符。
<textarea value="" id="decodeResult" name="decodeResult" style="width:100%;height:100px;"></textarea>
译码结果:<input type="button" id="btnDecode" value="译码" οnclick="getDecode()" disabled="disabled" style="height:20px;" /><div id="decodeResult1" style="width:100%;height:50px;overflow:scroll; border:thin #999 dashed;"></div></div></td></tr></table>
</body>
</html>
供参考的码表如下
e,0.10849, 101
a,0.08132, 0000
i,0.075525, 0010
r,0.071345, 0011
t,0.07087, 0100
o,0.06764, 0110
n,0.060895, 1000
s,0.05282, 1100
l,0.05244, 1101
c,0.04503, 1111
u,0.03477, 01011
p,0.031065, 01110
m,0.03059, 01111
d,0.029735, 10010
h,0.02622, 11100
g,0.02185, 11101
b,0.02014, 000100
,,0.02, 000101
y,0.019, 000111
.,0.018, 010100
f,0.013965, 100110
v,0.010165, 0001100
w,0.00893, 0001101
k,0.00798, 0101011
x,0.003325, 10011100
!,0.003, 10011111
?,0.003, 10011110
',0.003, 10011101
",0.003, 010101000
z,0.00228, 010101001
q,0.002185, 010101010
j,0.001425, 010101011