抢分的机会，兄弟上吧

lcl101 2002-09-17 04:26:11
有那位仁兄转换过人民币的大写，有原码的我给100分
...全文
35 14 打赏 收藏 转发到动态 举报
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
dylanOK 2002-09-17
  • 打赏
  • 举报
 回复
<script>
var arr1=new Array(""," 万,"," 亿,"," 兆,")
var arr2=new Array("","十","百","千")
var arr3=new Array("零","壹","贰","叁","肆","伍","陆","柒","捌","玖");
//壹贰叁肆伍陆柒捌玖

function Translate(num){
var Str = "",mm="";
len=num.toString().length;
cols=Math.ceil(this.len/4);
first=this.len-this.cols*4;
var j=0;
for(var i=first;i<len;i+=4){

++j;
if(i>=0)
num3=num.substring(i,i+4);
else
num3=num.substring(0,first+4);
mm=Translate_easy(num3)
if(mm!=""){
Str+=mm+arr1[this.cols-j];
}
}

return(Str);
}

function Translate_easy(num){//1000
var s="";
this.Str = "";
var len = num.length;
if(len>4) return(s);
for(var d=0;d<len;d++){
if(num.substring(len-d-1)<=0) continue;
s = arr3[num.substring(len-d-1,len-d)]+arr2[d]+s;
}
this.Str = s;
return(s);
}
</script>
<input id=number value=1234567890 onkeyup="document.all.Chinese.value=Translate(document.all.number.value,0)">
<input type=button value=转换 >
<input id=Chinese value="" size=48>
qiushuiwuhen 2002-09-17
  • 打赏
  • 举报
 回复
<script>
function Chinese(num){
var arr1=new Array("仟","佰","拾","亿","仟","佰","拾","万","仟","佰","拾","元","点","角","分")
var arr3=new Array("零","壹","贰","叁","肆","伍","陆","柒","捌","玖")
var point=num.indexOf(".")
if(point<0)point=num.length
var len=arr1.length-point-3
var strRet="",flag=true;
for(i=0;i<num.length;i++){
if(i!=point){
val=arr1[i+len]
if(num.charAt(i)!="0")
{strRet+=arr3[num.charAt(i)]+val;flag=true;}
else
if(val=="亿"||val=="万"||val=="元"||val=="分"){
if(!flag){strRet=strRet.substr(0,strRet.length-1)+val;flag=true;}
}else{
if(flag){flag=false;strRet+="零";}
}
}
}
return strRet.replace("零零零","").replace("零零","零");
}
</script>
<input id=number value=1234567890>
<input type=button value=中文 onclick=alert(Chinese(document.all.number.value))>
方工 2002-09-17
  • 打赏
  • 举报
 回复
转贴自：
http://www.csdn.net/expert/topic/966/966704.xml?temp=.3153345
代码可能有些长。
<script language="JavaScript">
function change2Big(value)
{
var intFen,i;
var strArr,strCheck,strFen,strDW,strNum,strBig,strNow;

if(value=="") //数据为空时返回"零"
return "零";
if (isNaN(value)) //数据非法时提示，并返回空串
{
strErr = "数据"+value+"非法！"
alert(strErr);
return "";
}
strCheck = value+".";
strArr = strCheck.split(".");
strCheck = strArr[0];
if(strCheck.length>12) //数据大于等于一万亿时提示无法处理
{
strErr = "数据"+value+"过大，无法处理！"
alert(strErr);
return "";
}
try
{
i = 0;
strBig = "";
intFen = value*100; //转换为以分为单位的数值
strFen = intFen.toString();
strArr = strFen.split(".");
strFen = strArr[0];
intFen = strFen.length; //获取长度
strArr = strFen.split(""); //将各个数值分解到数组内
while(intFen!=0) //分解并转换
{
i = i+1;
switch(i) //选择单位
{
case 1:strDW = "分";break;
case 2:strDW = "角";break;
case 3:strDW = "元";break;
case 4:strDW = "拾";break;
case 5:strDW = "佰";break;
case 6:strDW = "仟";break;
case 7:strDW = "万";break;
case 8:strDW = "拾";break;
case 9:strDW = "佰";break;
case 10:strDW = "仟";break;
case 11:strDW = "亿";break;
case 12:strDW = "拾";break;
case 13:strDW = "佰";break;
case 14:strDW = "仟";break;
}
switch (strArr[intFen-1]) //选择数字
{
case "1":strNum = "壹";break;
case "2":strNum = "贰";break;
case "3":strNum = "叁";break;
case "4":strNum = "肆";break;
case "5":strNum = "伍";break;
case "6":strNum = "陆";break;
case "7":strNum = "柒";break;
case "8":strNum = "捌";break;
case "9":strNum = "玖";break;
case "0":strNum = "零";break;
}

//处理特殊情况
strNow = strBig.split("");
//分为零时的情况
if((i==1)&&(strArr[intFen-1]=="0"))
strBig = "整";
//角为零时的情况
else if((i==2)&&(strArr[intFen-1]=="0"))
{ //角分同时为零时的情况
if(strBig!="整")
strBig = "零"+strBig;
}
//元为零的情况
else if((i==3)&&(strArr[intFen-1]=="0"))
strBig = "元"+strBig;
//拾－仟中一位为零且其前一位（元以上）不为零的情况时补零
else if((i<7)&&(i>3)&&(strArr[intFen-1]=="0")&&(strNow[0]!="零")&&(strNow[0]!="元"))
strBig = "零"+strBig;
//拾－仟中一位为零且其前一位（元以上）也为零的情况时跨过
else if((i<7)&&(i>3)&&(strArr[intFen-1]=="0")&&(strNow[0]=="零"))
{}
//拾－仟中一位为零且其前一位是元且为零的情况时跨过
else if((i<7)&&(i>3)&&(strArr[intFen-1]=="0")&&(strNow[0]=="元"))
{}
//当万为零时必须补上万字
else if((i==7)&&(strArr[intFen-1]=="0"))
strBig ="万"+strBig;
//拾万－仟万中一位为零且其前一位（万以上）不为零的情况时补零
else if((i<11)&&(i>7)&&(strArr[intFen-1]=="0")&&(strNow[0]!="零")&&(strNow[0]!="万"))
strBig = "零"+strBig;
//拾万－仟万中一位为零且其前一位（万以上）也为零的情况时跨过
else if((i<11)&&(i>7)&&(strArr[intFen-1]=="0")&&(strNow[0]=="万"))
{}
//拾万－仟万中一位为零且其前一位为万位且为零的情况时跨过
else if((i<11)&&(i>7)&&(strArr[intFen-1]=="0")&&(strNow[0]=="零"))
{}
//万位为零且存在仟位和十万以上时，在万仟间补零
else if((i<11)&&(i>8)&&(strArr[intFen-1]!="0")&&(strNow[0]=="万")&&(strNow[2]=="仟"))
strBig = strNum+strDW+"万零"+strBig.substring(1,strBig.length);
//单独处理亿位
else if(i==11)
{
//亿位为零且万全为零存在仟位时，去掉万补为零
if((strArr[intFen-1]=="0")&&(strNow[0]=="万")&&(strNow[2]=="仟"))
strBig ="亿"+"零"+strBig.substring(1,strBig.length);
//亿位为零且万全为零不存在仟位时，去掉万
else if((strArr[intFen-1]=="0")&&(strNow[0]=="万")&&(strNow[2]!="仟"))
strBig ="亿"+strBig.substring(1,strBig.length);
//亿位不为零且万全为零存在仟位时，去掉万补为零
else if((strNow[0]=="万")&&(strNow[2]=="仟"))
strBig = strNum+strDW+"零"+strBig.substring(1,strBig.length);
//亿位不为零且万全为零不存在仟位时，去掉万
else if((strNow[0]=="万")&&(strNow[2]!="仟"))
strBig = strNum+strDW+strBig.substring(1,strBig.length);
//其他正常情况
else
strBig = strNum+strDW+strBig;
}
//拾亿－仟亿中一位为零且其前一位（亿以上）不为零的情况时补零
else if((i<15)&&(i>11)&&(strArr[intFen-1]=="0")&&(strNow[0]!="零")&&(strNow[0]!="亿"))
strBig = "零"+strBig;
//拾亿－仟亿中一位为零且其前一位（亿以上）也为零的情况时跨过
else if((i<15)&&(i>11)&&(strArr[intFen-1]=="0")&&(strNow[0]=="亿"))
{}
//拾亿－仟亿中一位为零且其前一位为亿位且为零的情况时跨过
else if((i<15)&&(i>11)&&(strArr[intFen-1]=="0")&&(strNow[0]=="零"))
{}
//亿位为零且不存在仟万位和十亿以上时去掉上次写入的零
else if((i<15)&&(i>11)&&(strArr[intFen-1]!="0")&&(strNow[0]=="零")&&(strNow[1]=="亿")&&(strNow[3]!="仟"))
strBig = strNum+strDW+strBig.substring(1,strBig.length);
//亿位为零且存在仟万位和十亿以上时，在亿仟万间补零
else if((i<15)&&(i>11)&&(strArr[intFen-1]!="0")&&(strNow[0]=="零")&&(strNow[1]=="亿")&&(strNow[3]=="仟"))
strBig = strNum+strDW+"亿零"+strBig.substring(2,strBig.length);
else
strBig = strNum+strDW+strBig;
strFen = strFen.substring(0,intFen-1);
intFen = strFen.length;
strArr = strFen.split("");
}
return strBig;
}catch(err){
return ""; //若失败则返回原值
}
}

</script>
金额：<input id=rmb type="text"value=0><br>
<input id=rmb2 type="text" size=50 readonly><br>
<button onclick="rmb2.value=change2Big(rmb.value)">change to big</button>
dylanOK 2002-09-17
  • 打赏
  • 举报
 回复
不应该这么长吧……
beming 2002-09-17
  • 打赏
  • 举报
 回复
http://www.csdn.net/expert/topic/966/966704.xml?temp=.3153345

有点帮助而已


－－－－－－－－－－－－－－－－－－－－－－－－－－--------------
==================================================================
注意：此人因发表爱国言论，被斑竹hexiaofen*扣除6分信誉分,问你死未？！

*****************************************************************
lcl101 2002-09-17
  • 打赏
  • 举报
 回复
有没有JAVASCRIPT的原码呀
bencalie 2002-09-17
  • 打赏
  • 举报
 回复
if n*100=0 then
if left(hj,1)="零" then
if right(hj,1)="零" then
hj=hj+"元整"
else
hj=mid(hj,2,len(hj)-1)+"整"
end if
else
if right(hj,1)="零" then
hj=mid(hj,1,len(hj)-1)+"整"
else
hj=hj+"整"
end if
end if
else
if right(hj,1)="零" then
hj=mid(hj,1,len(hj)-1)
else
hj=hj
end if
if mid(m,1,1)="0" or mid(m,1,1)=space(1) then
hj=hj+"零"
else
hj=hj+mid(ch,FormatNumber(mid(m,1,1),0,-1),1)+"角"
end if
if mid(hj,1,1)="零" then
hj=mid(hj,2,len(hj)-1)
else
hj=hj
end if
if mid(m,2,1)="0" then
hj=hj+"整"
else
hj=hj+mid(ch,FormatNumber(mid(m,2,1),0,-1),1)+"分"
end if
end if
if num=".00" then
document.fmSubmit.t1.value="0.00"
else
document.fmSubmit.t1.value=num
end if
document.fmSubmit.t2.value=""
hji=1
call read()
End Sub
SUB read()
MyVar=mid(hj,hji,1)
document.fmSubmit.t2.value=document.fmSubmit.t2.value+MyVar
Select Case MyVar
Case "零" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/0.wav"
Case "壹" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/1.wav"
Case "贰" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/2.wav"
Case "叁" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/3.wav"
Case "肆" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/4.wav"
Case "伍" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/5.wav"
Case "陆" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/6.wav"
Case "柒" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/7.wav"
Case "捌" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/8.wav"
Case "玖" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/9.wav"
Case "拾" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/10.wav"
Case "佰" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/b.wav"
Case "仟" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/q.wav"
Case "万" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/w.wav"
Case "亿" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/y.wav"
Case "元" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/yuan.wav"
Case "分" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/fen.wav"
Case "角" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/jiao.wav"
Case "整" document.all("bgsoundone").src="http://go.163.com/yjsj/wav/z.wav"
Case else hji=0
document.all("bgsoundone").src=""
exit sub
End Select
hji=hji+1
setTimeout "read",400
End Sub
</script>
最完整、最标准的大写金额转换程序，特别是“零”和“整”的转换，最大金额可到仟亿。
<br>
并加入了朗读功能，所以说是最完美的大写金额转换程序！
<br>
如有BUG请高手指教！！！
<form id=fmSubmit name=fmSubmit method="POST">
<p>请输入金额：<input type="text" name="T1" size="20" id="num"> <input type="button" onclick=retu_cn() value="转换大写金额" name="B1"></p>
<br> 大写金额：<input type="text" name="T2" size="55" readonly>
</form>
</body>
</html>
=====================
这是无忧一位叫jt3k的朋友写的
bencalie 2002-09-17
  • 打赏
  • 举报
 回复
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>转换大写金额</title>
<STYLE type=text/css>
INPUT { BORDER-RIGHT: #c0d3dc 1px solid; BORDER-TOP: #c0d3dc 1px solid; BORDER-LEFT: #c0d3dc 1px solid; BORDER-BOTTOM: #c0d3dc 1px solid; font-family: verdana; HEIGHT: 19px}
BODY {font-family:arial,helvetica,Tahoma; font-size: 9pt; color:'094A82'}
</STYLE>
<bgsound id=bgsoundone src="" loop=1>
</head>
<body>
<SCRIPT LANGUAGE="VBScript">
dim hj,hji
sub document_onkeypress()
if window.event.srcelement.id="num" and window.event.keycode="13" then
call retu_cn()
end if
end sub
sub window_onload()
document.fmSubmit.t1.focus()
end sub
SUB retu_cn()
dim n,m_hj,s,ch,ch2,ch3,num
num=Replace(trim(document.fmSubmit.t1.value),",","",1,-1,1)
if num="" then
MsgBox "您还没有输入金额！"
document.fmSubmit.t1.focus()
exit sub
End If
if IsNumeric(num)=False then
MsgBox "您输入的不是金额！"
document.fmSubmit.t1.focus()
exit sub
End If
n=FormatNumber(num,2,-1)
num=n
n=Replace(n,",","",1,-1,1)
If len(n)>15 Then
MsgBox "金额必须小于千亿！"
document.fmSubmit.t1.focus()
exit sub
End If
hj=space(0)
s="840"
ch="壹贰叁肆伍陆柒捌玖"
ch2="仟佰拾 "
ch3="亿万元"
for x=1 to 3
m=cstr(int(n/10^FormatNumber(mid(s,x,1),0,-1)))
m=space(4-len(m))+m
m_hj=space(0)
if m<>" 0" then
for y=1 to 4
if mid(m,y,1)<>space(1) and mid(m,y,1)<>"0" then
m_hj=trim(m_hj+mid(ch,FormatNumber(mid(m,y,1),0,-1),1)+mid(ch2,y,1))
else
if mid(m,y,1)=space(1) or mid(m,y,1)="0" then
m_hj=m_hj
if right(m_hj,1)="零" then
m_hj=m_hj+space(0)
else
m_hj=m_hj+"零"
end if
else
m_hj=m_hj
end if
end if
next
if right(m_hj,1)="零" then
m_hj=mid(m_hj,1,len(m_hj)-1)+mid(ch3,x,1)
if x=3 then
m_hj=m_hj+space(0)
else
m_hj=m_hj+"零"
end if
else
m_hj=m_hj+mid(ch3,x,1)
end if
if right(hj,1)="零" and mid(m_hj,1,1)="零" then
hj=hj+mid(m_hj,2,len(m_hj)-1)
else
hj=hj+m_hj
end if
else
if x=3 then
if right(hj,1)="零" then
if trim(hj)="零" then
hj=hj+space(0)
else
hj=mid(hj,1,len(hj)-1)+"元"
end if
else
if trim(hj)="零" then
hj=hj+space(0)
else
hj=hj+"元"
end if
end if
else
if right(hj,1)="零" then
hj=hj+space(0)
else
hj=hj+"零"
end if
end if
end if
if n-int(n)=0 then
n=n-int(FormatNumber(m,0,-1))*10^int(FormatNumber(mid(s,x,1),0,-1))
else
tt=FormatNumber("0."+mid(cstr(n),Instr(1,n,".")+1,2),2)
n=int(n)
n=n-int(FormatNumber(m,0,-1))*10^int(FormatNumber(mid(s,x,1),0,-1))
n=n+tt
end if
next
m=mid(cstr(n),2,2)
if trim(len(m))<>2 then
m=m+"0"
end if
eastnofail 2002-09-17
  • 打赏
  • 举报
 回复
switch(xxx)
{
case "1":x="壹";
.
.
.
.
.
}
flyycyu 2002-09-17
  • 打赏
  • 举报
 回复
去java版看吧，今天很多例子！
lcl101 2002-09-17
  • 打赏
  • 举报
 回复
to: bencalie(Bencalie)
能给我COPY过来吗
小弟先谢谢了
bencalie 2002-09-17
  • 打赏
  • 举报
 回复
http://51js.1000box.net/showmsg.php?bo=3&msgid=41905
lcl101 2002-09-17
  • 打赏
  • 举报
 回复
帮帮我呀
帮帮我呀
bluefish922 2002-09-17
  • 打赏
  • 举报
 回复
你自己写个CASE语句不行吗
【原创醒目】终极之决战CSDN专家分【抢分醒目】
专家分有什么难赚的？ 1. 挑选人气旺、好赚分的版，比如.net...记住，虽然C/C++是个初学者学习的好地方，但只有傻子才会去那抢分！另外，地球人都知道，扩充话题的分不计在专家分内，所以别跟个火星人一样，在水园乱up
瞬时高并发抢购系统设计方案浅析
注意，重头戏来了，大体上来说，根据一般的抢购经验，往往你的 10w 件商品会在 1 分钟内抢光，而且根据二八法则，80% 的商品会在 20% 的时间内被抢光。 也就是说 8w 件商品可能会在 10s 内被抢购，而且参与抢购这 8...
奥特曼兄弟合砍7.00015万亿美元，弟弟：山姆你给我留点露脸机会吧
眼见风头全被抢走了，杰克公开喊话：山姆，能不能给我一个星期露脸的时间？你需要冷静。大家熟悉的这位OpenAI CEO，也半开玩笑的回复“管好你自己，然后我们一起来搞事。”一段本该是奥特曼家族群聊的对话，发生在...
刘强东终于向自己的兄弟下手了！
曾经这位老板，在某年的老员工授勋仪式上，无比仗义地说： “凡是公司五年以上老员工，如果得病保险报销之外不够的钱，不管花多少，公司出！公司不会不管兄弟，不希望一人重病穷三代的事发生在京东兄弟身上！” ...
在兄弟连的一些感受
这么多人，这么深的夜，这么长的代码，我，只在兄弟连见过……兄弟们学习的劲头这么足，为什么？有压力，才有动力，压力越大动力也就越足。哪来的压力？您别忘了，这里是北京，我们是北漂，没钱，没人，没房，没车，...
JavaScript

87,908

社区成员

224,616

社区内容

发帖
与我相关
我的任务
社区描述
Web 开发 JavaScript
社区管理员
  • JavaScript
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章