72、语音大小写转换

72、语音大小写转换

脚本说明:

把如下代码加入<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("bgsoundone").src="wav/w.wav"

Case "亿" document.all("bgsoundone").src="wav/y.wav"

Case "" document.all("bgsoundone").src="wav/yuan.wav"

Case "" document.all("bgsoundone").src="wav/fen.wav"

Case "" document.all("bgsoundone").src="wav/jiao.wav"

Case "" document.all("bgsoundone").src="wav/z.wav"

Case else hji=0

document.all("bgsoundone").src=""

exit sub

End Select

hji=hji+1

setTimeout "read",500

End Sub

</script>

<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>

 

Write a comment

Comments: 0