詩詞對聯工具

<!--

將內容複製保存爲一個html文件即可。
作者：海底撈針
create:2004-11
update:2005-4-17
版權所有，隨便用哦:b

點擊這裏，可以直接打開該頁面

-->
<html>
<head>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<title>詩韻</title>
<style>
table{border-left:2px solid black;border-top:2px solid black;border-right:1px solid black;border-bottom:1px solid black;font-size:12px}
td{border-right:1px solid black;border-bottom:1px solid black}
.gtable{border-left:0px ;border-top:0px ;border-right:0px ;border-bottom:0px }
.gtd{border-left:0px ;border-top:0px ;border-right:0px ;border-bottom:0px }
.htable{border-left:1px solid #c0c0c0;border-top:1px solid #c0c0c0;border-right:0px;border-bottom:0px}
.htd{border-right:1px solid #c0c0c0;border-bottom:1px solid #c0c0c0}
.ddiv{font-family:楷體_GB2312;font-size:50;position:absolute;top:0;left:0;color:#ffff00;z-index:1;width:100%;height:100%}

.ddivp{font-family:楷體_GB2312;font-size:50;position:absolute;top:0;left:0;color:#00ff00;z-index:1;width:100%;height:100%}
.ddivz{font-family:楷體_GB2312;font-size:50;position:absolute;top:0;left:0;color:#bb9955;z-index:1;width:100%;height:100%}
.ddivpz{font-family:楷體_GB2312;font-size:50;position:absolute;top:0;left:0;color:#ccff88;z-index:1;width:100%;height:100%}

.tdiv{font-family:宋體;font-size:12px;position:absolute;top:0;left:0;color:blue;z-index:10:width:100%;height:100%}
.cdiv{position:relative;width:100%;height:100%}
.input{font-size:12x;font-family:宋體}
</style>
<script language=javascript>
//P:平,Q平，或仄
//Z:仄,Y仄，或平
//
var ju5=new Array("YZPPZ","PPZZP","QPPZZ","YZZPP");
//var dui5=new Array(new Array(0,1,1),
//  new Array(2,3,1),
//  new Array(3,1,0),
//  new Array(1,3,0));

//var lv5=new Array(new Array(0,1,2,3,0,1,2,3),
//  new Array(3,1,2,3,0,1,2,3),
//  new Array(2,3,0,1,2,3,0,1),
//  new Array(1,3,0,1,2,3,0,1));

//var lv5=new Array(new Array(0,1,0,1),
//  new Array(2,1,0,1),
//  new Array(1,0,1,0),
//  new Array(3,0,1,0));

var ju7=new Array("YZQPPZZ","QPYZZPP","QPYZPPZ","YZPPZZP")
//var dui7=new Array(new Array(0,1,1),
//  new Array(2,3,1),
//  new Array(3,1,0),
//  new Array(1,3,0));

//var lv7=new Array(new Array(1,3,0,1,2,3,0,1),
//  new Array(2,3,0,1,2,3,0,1),
//  new Array(3,1,2,3,0,1,2,3),
//  new Array(0,1,2,3,0,1,2,3));
//var lv7=new Array(new Array(3,0,1,0),
//  new Array(1,0,1,0),
//  new Array(2,1,0,1),
//  new Array(0,1,0,1));

var dui=new Array(new Array(0,1,1),
  new Array(2,3,1),
  new Array(3,1,0),
  new Array(1,3,0));

var lv=new Array(new Array(0,1,0,1,"仄起仄收"),
  new Array(2,1,0,1,"仄起平收"),
  new Array(1,0,1,0,"平起仄收"),
  new Array(3,0,1,0,"平起平收"));

var xmlpz;  //詩韻xml documentElement;
var xmpcp;  //詞譜
var help="使用說明：/r/n"+
"===================================/r/n"+
"1、看律詩平仄句型：/r/n"+
"    在5/7言列表，選擇5言或7言；在首句，選擇首句舉行，然後按“顯示句型”/r/n"+
"2、看詞譜（白香詞譜）：/r/n"+
"    在詞牌列表選擇詞牌，然後按“顯示詞譜”/r/n"+
"3、看詩韻（平水韻部）/r/n"+
"    首先選擇上平、下平、上聲、去聲、入聲，將在右邊列表出現韻部/r/n"+
"    在韻部列表選擇，將在右邊文本框顯示出該韻部所有字/r/n"+
"4、顯示句子平仄：/r/n"+
"    在最右邊文本框(就是這裏拉)輸入句子，然後按“顯示文本框內容平仄”，將顯示出平仄信息；/r/n"+
"    如果句子中有標點、“======”、回車，會將其作爲斷句符號。/r/n"+
"    在顯示平仄信息時，可能會有些字在我收集的平水韻部找不到，沒辦法:(。也希望大家能豐富完善該韻部。/r/n"+
"===================================/r/n"+
"    本來想寫一個幫助驗格律詩詞平仄及韻是否正確的工具的，寫了這麼一點，也沒空寫下去了，以後有空再寫完吧:b/r/n"+
"/r/n"+
"                 海底撈針    /r/n"+
"    2004-11月初稿，2005-4-17修改/r/n";
function listJu(b5or7,i){
//根據參數五言或七言、首句起收的平仄類型，返回該句式律詩平仄格式
i=parseInt(i);
b5or7=parseInt(b5or7);
var ju=(b5or7==5)?ju5 : ju7;
var js=lv[i];
var res="<b>"+js[4]+"</b><br>";
for(var j=0;j<4;j++){
  var d=dui[js[j]];
  res+=ju[d[0]]+", "+ju[d[1]]+"。<br>";
}
res=res.replace(/Y/g,"<font color=red>仄</font>");
res=res.replace(/Z/g,"仄");
res=res.replace(/Q/g,"<font color=red>平</font>");
res=res.replace(/P/g,"平");
return res;
}
function getPath(ch){
var ns=xmlpz.selectNodes('//yun[contains(text(),"'+ch+'")]');
var res="";
for(var i=0;i<ns.length;i++){
  if(i>0)
   res+="<br>";
  var n=ns[i].parentNode;
  var nt=n.getAttribute("type");
//  alert(nt);
  if(nt=="上平" || nt=="下平")
   res+="平:";
  else
   res+="仄:";
  res+=nt+";"+ns[i].getAttribute("type");
}
return res;
}
function getPingZe(ch){
var ns=xmlpz.selectNodes('//yun[contains(text(),"'+ch+'")]');
var res=0;
for(var i=0;i<ns.length;i++){
  var n=ns[i].parentNode;
  var nt=n.getAttribute("type");
  if(nt=="上平" || nt=="下平")
   res |= 1;
  else
   res |=2;
}
return res;
}
function getWordFmt(ch,bOnlyPZ){
var fh="!,;.?'/"，；。？“”’‘！　/r/t";
var x="<div class=cdiv><div class=";
if(fh.indexOf(ch)>=0)
  return x+"ddiv>"+ch+"</div></div>";
var pz=getPingZe(ch);
var pzclass=new Array("ddiv","ddivp","ddivz","ddivpz");
x+=pzclass[pz]+">"+ch+"</div>";
if(bOnlyPZ)
  return x+"</div>";
return x+"<div class=tdiv>"+getPath(ch)+"</div></div>";
}
function getWordTd(ch,bOnlyPZ){
return "<td width=50px class=htd>"+getWordFmt(ch,bOnlyPZ && ! chkAll.checked)+"</td>";
}
function getFmtJu(st,lMaxLen){

//填詞牌名
function fillCi(){
var pc=xmlcp.childNodes;
for(var i=0;i<pc.length;i++){
  var opt=document.createElement("OPTION");
  opt.value=pc[i].getAttribute("i");
  opt.text=pc[i].getAttribute("name");
  opt.ds=pc[i].getAttribute("ds");
  cipai.options.add(opt);
}
}

詩詞對聯工具

使用.net 中的動態方法編程備忘錄2（使用發出動態方法的意義）

使用.net 中的動態方法編程備忘錄1（如何查看生成的動態方法的代碼）

詩詞對聯工具

2005-05，在烹泉香舍對聯

在ASP.net中，不引用第三方類庫的、輕便的、將報表導出到Excel中的方法

https://yachay.unat.edu.pe/blog/index.php?comment_area=format_blog&comment_component=blog&comment_co

linux以太網驅動總結