Small write digital amount, convert to uppercase Chinese, no error
Function MXB () {
Newchar = "";
Num = Document.form1.money.value;
For (i = Num.Length-1; I> = 0; I -)
{
Num = Num.Replace (",", "") // Replace Tomoney () ","
Num = Num.Replace ("," ") // Replace the space in Tomoney ()
Num = Num.Replace ("¥", "") // Replace the possible 字 字
}
IF (IsNan (NUM))
{// Verify that the input characters are numbers
Alert ("Please check if the lowercase amount is correct");
Return;
}
// Transformation before decimal point
Part = String (NUM) .split (".");
Newchar = "";
For (i = part [0] .length-1; i> = 0; i -) {
IF (part [0] .length> 10) {alert ("The number of bits is too large, can't calculate"); return "";} // If the quantity exceeds picking up the unit, prompt
TmpNewchar = "" "
Perchar = part [0] .Charat (i);
Switch (perchar) {
Case "0": tmpnewchar = "zero" TmpNewcha; Break;
Case "1": tmpnewchar = "" tmpnewchar; Break;
Case "2": tmpnewchar = "" tmpnewchar; buk;
Case "3": tmpnewchar = "叁" TmpNewchar; Break;
Case "4": tmpnewchar = "" TmpNewchar; Break;
Case "5": TmpNewchar = "Wu" TmpNewcha; Break;
Case "6": tmpnewchar = "Lu" TmpNewcha;
Case "7": tmpnewchar = "柒" tmpnewchar; buk;
Case "8": tmpnewchar = "捌" tmpnewchar; buk;
Case "9": tmpnewchar = "玖" tmpnewchar; Break;
}
Switch (part [0] .length-i-1) {
Case 0: tmpnewchar = tmpnewchar "yuan"; BREAK;
Case 1: IF (perchar! = 0) TmpNewchar = TmpNewchar "Pick";
Case 2: if (percha! = 0) TmpNewchar = TmpNewcha ""; break; case 3: if (perchar! = 0) TmpNewchar = TmpNewchar "Break;
Case 4: tmpnewchar = tmpnewchar "10,000"; Break;
Case 5: if (Perchar! = 0) TmpNewchar = TmpNewchar "Pick"; BREAK;
Case 6: IF (Perchar! = 0) TmpNewchar = TmpNewchar ""; Break;
Case 7: IF (Perchar! = 0) tmpnewchar = tmpnewchar ""; BREAK;
Case 8: tmpnewchar = tmpnewchar "100 million"; BREAK;
Case 9: tmpnewchar = tmpnewchar "pick"; BREAK;
}
Newchar = tmpnewchar newchar;
}
// for loop end
IF ("Num. Indexof (". ")! = - 1) {
For (i = 0; i TmpNewchar = "" " Perchar = part [1] .Charat (i) Switch (perchar) { Case "0": tmpnewchar = "zero" TmpNewcha; Break; Case "1": tmpnewchar = "" tmpnewchar; Break; Case "2": tmpnewchar = "" tmpnewchar; buk; Case "3": tmpnewchar = "叁" TmpNewchar; Break; Case "4": tmpnewchar = "" TmpNewchar; Break; Case "5": TmpNewchar = "Wu" TmpNewcha; Break; Case "6": tmpnewchar = "Lu" TmpNewcha; Case "7": tmpnewchar = "柒" tmpnewchar; buk; Case "8": tmpnewchar = "捌" tmpnewchar; buk; Case "9": tmpnewchar = "玖" tmpnewchar; Break; } IF (i == 0) TmpNewchar = TmpNewchar "Corner"; IF (i == 1) tmpnewchar = tmpnewchar "points"; Newchar = newchar tmpnewchar;} } / / Replace all useless Chinese characters While (Newchar.Search ("zero zero")! = -1) { Newchar = Newchar.Replace (Zero Zero "," Zero "); Newchar = newchar.replace ("零", "hundreds"); Newchar = newchar.replace ("100 million", "100 million"); Newchar = newchar.replace ("万", "10,000"); Newchar = newchar.replace ("Zero Yuan", "Yuan"); Newchar = newchar.replace ("Zero Yuan", "Yuan"); Newchar = newchar.replace ("zero", ""); Newchar = newchar.replace ("zero", ""); } Newchar = newchar "whole"; Document.form1.chinamoney.value = newchar; }
