语音大小写转换-JS特效-爱易网页

语音大小写转换

日期：2014-05-18　浏览次数：20238 次

欢迎光临爱易网网页脚本特效中心，点击运行按钮演示特效：

以下是程序代码

脚本说明:
把如下代码加入<body>区域中
<bgsound id=bgsoundone src="" loop=1> 
<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) 
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 
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 
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 
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="wav/0.wav" 
Case "壹" document.all("bgsoundone").src="wav/1.wav" 
Case "贰" document.all("bgsoundone").src="wav/2.wav" 
Case "叁" document.all("bgsoundone").src="wav/3.wav" 
Case "肆" document.all("bgsoundone").src="wav/4.wav" 
Case "伍" document.all("bgsoundone").src="wav/5.wav" 
Case "陆" document.all("bgsoundone").src="wav/6.wav" 
Case "柒" document.all("bgsoundone").src="wav/7.wav" 
Case "捌" document.all("bgsoundone").src="wav/8.wav" 
Case "玖" document.all("bgsoundone").src="wav/9.wav" 
Case "拾" document.all("bgsoundone").src="wav/10.wav" 
Case "佰" document.all("bgsoundone").src="wav/b.wav" 
Case "仟" document.all("bgsoundone").src="wav/q.wav" 
Case "万" document.all("bgsoun</div></div>

<div class="clearfix"></div>
                    </div>
                    <nav aria-label="...">
                        <ul class="pager">
                            <li class="previous"><a href="4667">上一篇：狡猾的按钮特效</a></li>

<li class="next"><a href="2817">下一篇：检查窗口的关闭打开</a></li>
                        </ul>
                    </nav>

<div class="alert alert-warning" role="alert">
                        <strong>免责声明：</strong> 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
                    </div>

<div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/34151' title='京东封杀财付通：终极目标是电商生态圈' target="_blank">
                        京东封杀财付通：终极目标是电商生态圈</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/34269' title='网络旅行游记被曝插入"软广告" 个别人士月入数万' target="_blank">
                        网络旅行游记被曝插入"软广告" 个别人士月入数万</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/34299' title='苹果MacBook Air劣势渐显 或推新产品改变命运' target="_blank">
                        苹果MacBook Air劣势渐显 或推新产品改变命运</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/6889' title='国美电商开打价钱战 牟贵先言行矛盾受质疑' target="_blank">
                        国美电商开打价钱战 牟贵先言行矛盾受质疑</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/6919' title='原万网CTO周雷加盟亿玛 出任CTO一职' target="_blank">
                        原万网CTO周雷加盟亿玛 出任CTO一职</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/34255' title='盛大游戏走向衰落的根源：免费游戏模式惹的祸' target="_blank">
                        盛大游戏走向衰落的根源：免费游戏模式惹的祸</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/34376' title='“世界杯+618”集体磨刀的本质是绑架全民' target="_blank">
                        “世界杯+618”集体磨刀的本质是绑架全民</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/34166' title='苹果多色彩！葫芦里究竟卖的什么药' target="_blank">
                        苹果多色彩！葫芦里究竟卖的什么药</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/34394' title='微软张亚勤趋势判断：未来三十年属于物理化互联网' target="_blank">
                        微软张亚勤趋势判断：未来三十年属于物理化互联网</a></li></div>
                   
                
        </ol>
    </div>
</div>

</div>

</div>
            </div>
            <div class="clearfix"></div>

<footer class=" footer navbar-bottom">
<em>友情链接：</em>
    
      <a href="http://www.aiyiweb.com/" target="_blank">爱易网 </a>            
    
      <a href="http://www.aiyiweb.com/" target="_blank">云虚拟主机技术 </a>            
    
      <a href="http://www.aiyiweb.com/" target="_blank">云服务器技术 </a>            
    
      <a href="http://www.aiyiweb.com/" target="_blank">程序设计技术 </a>            
    
      <a href="http://www.aiyiweb.com/" target="_blank">开发网站 </a>            
    
      <a href="http://www.aiyiweb.com/" target="_blank">APP开发教程 </a>            
    
<br />
<script type="text/javascript">(function(){document.write(unescape('%3Cdiv id="bdcs"%3E%3C/div%3E'));var bdcs = document.createElement('script');bdcs.type = 'text/javascript';bdcs.async = true;bdcs.src = 'http://znsv.baidu.com/customer_search/api/js?sid=15239353030108964139' + '&plate_url=' + encodeURIComponent(window.location.href) + '&t=' + Math.ceil(new Date()/3600000);var s = document.getElementsByTagName('script')[0];s.parentNode.insertBefore(bdcs, s);})();</script>

Copyright © 2013-2026 爱易网页 当前在线：268人　
        网站在9时57分35秒内访问总人数：141431人
    当前 35.52%
　<a href="https://beian.miit.gov.cn" target="_blank">粤ICP备18100884号-2 </a>
<script charset="UTF-8" id="LA_COLLECT" src="//sdk.51.la/js-sdk-pro.min.js"></script>
<script>LA.init({ id: "JszEmKrtpbU59dY5", ck: "JszEmKrtpbU59dY5" })</script>

</footer>

</div>
   
</body>
</html>