诗词对联工具

最新推荐文章于 2023-11-30 17:47:18 发布

IsMe

最新推荐文章于 2023-11-30 17:47:18 发布

阅读量1.2w

点赞数

分类专栏： DHTML 诗词对联文章标签：工具 c function javascript button class

本文链接：https://blog.csdn.net/isme/article/details/355501

版权

对联同时被 3 个专栏收录

9 篇文章 0 订阅

订阅专栏

DHTML

5 篇文章 0 订阅

订阅专栏

诗词

3 篇文章 0 订阅

订阅专栏

<!--

将内容复制保存为一个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);
}
}

IsMe

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
诗词对联工具

将内容复制保存为一个html文件即可。作者：海底捞针create:2004-11update:2005-4-17版权所有，随便用哦:b点击这里，可以直接打开该页面-->诗韵table{border-left:2px solid black;border-top:2px solid black;border-right:1px solid black;border-bottom:1px
复制链接

扫一扫