请把下面的JSSCRIPT大小写转换程序转换成VBSCRIPT程序

[xzgtliu]

请把下面的JSSCRIPT大小写转换程序转换成VBSCRIPT程序

<script>
document.write(Chinese("1.01"));
document.write("<br/>"+Chinese("15700.4"));
document.write("<br/>"+Chinese("143260.3"));
document.write("<br/>"+Chinese("164372.4"));
document.write("<br/>"+Chinese("52508.6"));

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="",lastChar="";
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;
else{
lastChar=strRet.substr(strRet.length-1)
if(val=="亿"||val=="万"||val=="元"||val=="分"){
if(lastChar=="零")strRet=strRet.substr(0,strRet.length-1);
lastChar=strRet.substr(strRet.length-1)
if(!((val=="万"&&lastChar=="亿")||(val=="分"&&lastChar=="角")))strRet+=val
}else{
if(lastChar!="零")strRet+="零";
}
}
}
}
return strRet
}
</script>

[colee]

up

[wangwl]

Dim Arr1(1 to 15)
Dim Arr2(1 to 10)
Dim i
'初始化一下数组……，
'Arr1从1-15分别为：分，角……
'Arr2从1-10分别为：壹、贰……
Dim DotPos = InStr(num, ".")
Dim LeftNum = Left(num, DotPos)
Dim RightNum = Right(num, DotPos+1)
Dim ResLeft, ResRight
If not CInt(LeftNum) = 0 then LeftNum = ""
num = LeftNum & RightNum
For i = 0 to 9
Replace(num, CStr(i), Arr2(i+1))
End For

For i = 1 to Length(num)
If not Mid(num,i,1) = "零" then ResultNum = ResultNum+Mid(num, i, 1)+Arr1(Length(num)-i+1)
End For
Replace(ResultNum, "零", "")

好久没写VBScript了，不知道对不对，呵呵
高手指正一下，谢谢

[Reker熊]

这里有一个现成的大小写转换程序，看对你有没有用

<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
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=hj
hji=1
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>
最完整、最标准的大写金额转换程序，特别是“零”和“整”的转换，最大金额可到仟亿。
<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>

[Reker熊]

好像在asp版我也回复了，呵呵，多余了

[xzgtliu]

up

[xzgtliu]

up