shell人民币大写转换 (含纯sed版)

Shell_HAT

我在本版看过的几个：

1. #!/usr/bin/sh
   
2. if [ -f moneytmp ]
   
3. then
   
4. rm moneytmp
   
5. fi
   
6. echo "please input number"
   
7. read money
   
8. int=`echo $money | cut -d "." -f1`
   
9. echo $money | grep "\." && dec=`echo $money | cut -d "." -f2`
   
10. intlength=`echo $int | wc -c`
    
11. intlength=`expr $intlength - 1`
    
12. con=$intlength
    
13. declength=`echo $dec | wc -c`
    
14. declength=`expr $declength - 1`
    
15. while [ ${i:=1} -le $intlength ]
    
16. do
    
17. num=`echo $int | cut -c $i`
    
18. case $num in
    
19. 1) echo "壹\c" >> moneytmp ;;
    
20. 2) echo "贰\c" >> moneytmp ;;
    
21. 3) echo "叁\c" >> moneytmp ;;
    
22. 4) echo "肆\c" >> moneytmp ;;
    
23. 5) echo "伍\c" >> moneytmp ;;
    
24. 6) echo "陆\c" >> moneytmp ;;
    
25. 7) echo "柒\c" >> moneytmp ;;
    
26. 8) echo "捌\c" >> moneytmp ;;
    
27. 9) echo "玖\c" >> moneytmp ;;
    
28. 0)
    
29. case $con in
    
30. 1) echo "元\c" >> moneytmp ; i=`expr $i + 1` ; con=`expr $con - 1` ; continue ;;
    
31. 5) echo "万\c" >> moneytmp ; i=`expr $i + 1` ; con=`expr $con - 1` ; continue ;;
    
32. 9) echo "亿\c" >> moneytmp ; i=`expr $i + 1` ; con=`expr $con - 1` ; continue ;;
    
33. *) echo "零\c" >> moneytmp ; i=`expr $i + 1` ; con=`expr $con - 1` ; continue ;;
    
34. esac
    
35. ;;
    
36. esac
    
37. case $con in
    
38. 1) echo "元\c" >> moneytmp ;;
    
39. 2) echo "拾\c" >> moneytmp ;;
    
40. 3) echo "佰\c" >> moneytmp ;;
    
41. 4) echo "仟\c" >> moneytmp ;;
    
42. 5) echo "万\c" >> moneytmp ;;
    
43. 6) echo "拾\c" >> moneytmp ;;
    
44. 7) echo "佰\c" >> moneytmp ;;
    
45. 8) echo "仟\c" >> moneytmp ;;
    
46. 9) echo "亿\c" >> moneytmp ;;
    
47. 10) echo "拾\c" >> moneytmp ;;
    
48. 11) echo "佰\c" >> moneytmp ;;
    
49. 12) echo "仟\c" >> moneytmp ;;
    
50. esac
    
51. i=`expr $i + 1`
    
52. con=`expr $con - 1`
    
53. done
    
54. while [ ${j:=1} -le $declength ]
    
55. do
    
56. num=`echo $dec | cut -c $j`
    
57. case $num in
    
58. 1) echo "壹\c" >> moneytmp ;;
    
59. 2) echo "贰\c" >> moneytmp ;;
    
60. 3) echo "叁\c" >> moneytmp ;;
    
61. 4) echo "肆\c" >> moneytmp ;;
    
62. 5) echo "伍\c" >> moneytmp ;;
    
63. 6) echo "陆\c" >> moneytmp ;;
    
64. 7) echo "柒\c" >> moneytmp ;;
    
65. 8) echo "捌\c" >> moneytmp ;;
    
66. 9) echo "玖\c" >> moneytmp ;;
    
67. 0) echo "零\c" >> moneytmp ;;
    
68. esac
    
69. case $j in
    
70. 1) echo "角\c" >> moneytmp ;;
    
71. 2) echo "分\c" >> moneytmp ;;
    
72. esac
    
73. j=`expr $j + 1`
    
74. done
    
75. echo >> moneytmp
    
76. cat moneytmp | sed "s/零零/零/g" | sed "s/零零/零/g" | sed "s/零元/元/;s/零万/万/;s/零亿/亿/" | sed "s/亿万/亿/"

复制代码

Shell_HAT

1. #zh.ksh
   
2. [ $# != 1 ] && echo eg:$0 1236.36 && exit
   
3. printf "%.2f" $1 >/dev/null 2>&1 3>&1 || {
   
4. print "非法输入,请重输!!!"; exit
   
5. }
   
6. Num[0]="零" Num[1]="壹" Num[2]="贰" Num[3]="叁" Num[4]="肆" Num[5]="伍"
   
7. Num[6]="陆" Num[7]="柒" Num[8]="捌" Num[9]="玖"
   
8. Unit[1]="分" Unit[2]="角" Unit[3]="元" Unit[4]="拾" Unit[5]="佰" Unit[6]="仟"
   
9. Unit[7]="万" Unit[11]="亿"
   
10. [ `echo $1 | grep "-"` ] && {
    
11. NumStr=`echo $1 | sed 's/^.//'`
    
12. RedFlag="(负)"
    
13. } || {
    
14.         NumStr=$1
    
15.         RedFlag=""
    
16. }
    
17. i=1
    
18. for TmpC in `printf "%.2f" $NumStr | nawk -F "." '{ print $1 $2 }' | sed 's/./& /g'`
    
19. do
    
20.         Nums[$i]=$TmpC
    
21.         i=`expr $i + 1`
    
22. done
    
23. j=${#Nums[@]}      
    
24. k=1
    
25. ChnNum=""
    
26. while
    
27.         [ $j -eq 0 ] && break
    
28.         [ $k -gt 11 ] && {
    
29.                 ChnNum=${Num[${Nums[$j]}]}${Unit[`expr $k - 8 `]}$ChnNum
    
30.                 j=`expr $j - 1`
    
31.                 k=`expr $k + 1`
    
32.                 continue
    
33.         }
    
34.         [ $k -gt 7 -a $k -lt 11 ] && {
    
35.     ChnNum=${Num[${Nums[$j]}]}${Unit[`expr $k - 4 `]}$ChnNum
    
36.     j=`expr $j - 1`
    
37.     k=`expr $k + 1`
    
38.     continue
    
39. }
    
40. ChnNum=${Num[${Nums[$j]}]}${Unit[$k]}$ChnNum
    
41. do
    
42.   j=`expr $j - 1`
    
43.   k=`expr $k + 1`
    
44. done
    
45. ChnNum=`print $RedFlag$ChnNum |
    
46. sed 's/零分/整/
    
47.          s/零角/零/g
    
48.          s/零拾/零/g
    
49.          s/零佰/零/g
    
50.          s/零仟/零/g
    
51.          s/零整/整/g
    
52.          s/角整/角/g
    
53.          s/零零零零万/零/'`
    
54. while
    
55.   [ `print $ChnNum | grep "零零"` ] || {
    
56.      ChnNum=`print $ChnNum  |
    
57.                 sed 's/零元/元/
    
58.                             s/零万/万/
    
59.                       s/零亿/亿/
    
60.                          s/^元//
    
61.                          s/^零//
    
62.                          s/^整$/零元&/`
    
63.      break
    
64. }
    
65. do
    
66.         ChnNum=`print $ChnNum | sed 's/零零/零/g'`
    
67. done
    
68. echo $ChnNum    $1

复制代码

Shell_HAT

1. #!/bin/sh
   
2. #执行 dig2ch.sh ?????????????.??
   
3. #支持最大到15位数字包括小数点
   
4. numberchar()
   
5. {
   
6. numlist=`expr $1 + 1`
   
7. c_number="零 壹 贰 叁 肆 伍 陆 柒 捌 玖"
   
8. echo $c_number | awk '{print $"'$numlist'"}'
   
9. return 0
   
10. }
    
11. 
    
12. rmbchar()
    
13. {
    
14. numlist=`expr $1 + 1`
    
15. c_number="分 角 null 元 拾 佰 仟 万 拾 佰 仟 亿 拾 佰 仟"
    
16. if [ $1 -eq 2 ] ; then
    
17. echo ""
    
18. else
    
19. echo $c_number | awk '{print $"'$numlist'"}'
    
20. fi
    
21. return 0
    
22. }
    
23. 
    
24. money2chinese()
    
25. {
    
26. i=0
    
27. len=`echo $1 | awk '{print length($0)}'`
    
28. fundstr=$1
    
29. chinese=""
    
30. zerotype=0
    
31. allzero=1
    
32. while [ $i -lt $len ]
    
33. do
    
34. j=`expr $i + 1`
    
35. case `echo $fundstr | awk '{print substr($0,"'$j'", 1)}'` in
    
36. -) chinese="负"
    
37. ;;
    
38. .) if [ -z "$chinese" ]
    
39. then
    
40. chinese=`numberchar 0`
    
41. fi
    
42. if [ $zerotype -eq 1 ]
    
43. then
    
44. chinese=$chinese"`rmbchar 3`"
    
45. zerotype=0
    
46. fi
    
47. ;;
    
48. 0) if [ `expr $len - $i` -eq 12 ]
    
49. then
    
50. chinese=$chinese"`rmbchar 11`"
    
51. fi
    
52. if [ `expr $len - $i` -eq 8 ]
    
53. then
    
54. if [ $allzero -eq 0 ]
    
55. then
    
56. chinese=$chinese"`rmbchar 7`"
    
57. fi
    
58. fi
    
59. zerotype=1
    
60. ;;
    
61. *) if [ `expr $len - $i` -lt 12 ]
    
62. then
    
63. allzero=0
    
64. fi
    
65. if [ $zerotype -eq 1 ]
    
66. then
    
67. chinese=$chinese"`numberchar 0`"
    
68. fi
    
69. num1_9=`echo $fundstr | awk '{print substr($0,"'$j'", 1)}'`
    
70. chinese=$chinese"`numberchar $num1_9`"
    
71. num1_9=`expr $len - $i - 1`
    
72. chinese=$chinese"`rmbchar $num1_9`"
    
73. zerotype=0
    
74. ;;
    
75. esac
    
76. i=`expr $i + 1`
    
77. done
    
78. if [ `expr $fundstr : '.*\(..\)'` -eq "00" ]
    
79. then
    
80. chinese=$chinese"整"
    
81. fi
    
82. echo $chinese
    
83. return 0
    
84. }
    
85. if [ -z "`expr $1 : '[0-9].*\.\([0-9].\)'`" ]
    
86. then
    
87. echo "bad number\n"
    
88. exit 0
    
89. else
    
90. money2chinese $1
    
91. fi

复制代码

Shell_HAT

1. #!/bin/ksh
   
2. # Program Name : Num2Chn.sh
   
3. # Programmer   : 吕永辉(仙桃市信用联社)
   
4. # 首先判断输入的是否为数字
   
5. printf "%.2f" $1 >/dev/null 2>&1 3>&1 || {
   
6.    echo "输入非法!!!";exit
   
7. }
   
8. # 定义数字数组
   
9. Num[0]="零" Num[1]="壹" Num[2]="贰" Num[3]="叁" Num[4]="肆" Num[5]="伍"
   
10. Num[6]="陆" Num[7]="柒" Num[8]="捌" Num[9]="玖"
    
11. # 定义金额单位数组
    
12. Unit[1]="分" Unit[2]="角" Unit[3]="元" Unit[4]="拾" Unit[5]="佰" Unit[6]="仟"
    
13. Unit[7]="万" Unit[11]="亿"
    
14. # 处理负数的情况(红字)
    
15. [ `echo $1 | grep "-"` ] && {
    
16. NumStr=`echo $1 | sed 's/^.//'`
    
17. RedFlag="(红)"
    
18. } || {
    
19. NumStr=$1
    
20. RedFlag=""
    
21. }
    
22. # 初始化输入数字数组
    
23. i=1
    
24. for TmpC in `printf "%.2f" $NumStr | awk -F "." '{print $1$2}' | sed 's/./& /g'`
    
25. do
    
26.   Nums[$i]=$TmpC
    
27.   i=`expr $i + 1`
    
28. done
    
29. j=${#Nums[@]}       # 为循环计数变量附初值为输入数字的长度
    
30. k=1                 # 为循环定位变量附初值(用于确定金额单位)
    
31. ChnNum=""           # 初始化大写金额字符串
    
32. while
    
33.   [ $j -eq 0 ] && break
    
34.   [ $k -gt 11 ] && {
    
35.     ChnNum=${Num[${Nums[$j]}]}${Unit[`expr $k - 8 `]}$ChnNum
    
36.     j=`expr $j - 1`
    
37.     k=`expr $k + 1`
    
38.     continue
    
39. }
    
40.   [ $k -gt 7 -a $k -lt 11 ] && {
    
41.     ChnNum=${Num[${Nums[$j]}]}${Unit[`expr $k - 4 `]}$ChnNum
    
42.     j=`expr $j - 1`
    
43.     k=`expr $k + 1`
    
44.     continue
    
45. }
    
46.   ChnNum=${Num[${Nums[$j]}]}${Unit[$k]}$ChnNum
    
47. do
    
48.   j=`expr $j - 1`
    
49.   k=`expr $k + 1`
    
50. done
    
51. ChnNum=`echo $RedFlag$ChnNum | sed 's/零分/整/' | sed 's/零角/零/g' \
    
52.             | sed 's/零拾/零/g' | sed 's/零佰/零/g' | sed 's/零仟/零/g'\
    
53.             | sed 's/零整/整/' | sed 's/零零零零万/零/'`
    
54. # 下面的循环用于去掉字符串中连续的零
    
55. while
    
56.   [ `echo $ChnNum | grep "零零"` ] || {
    
57.      ChnNum=`echo $ChnNum  | sed 's/零元/元/'| sed 's/零万/万/' \
    
58.        | sed 's/零亿/亿/' | sed 's/^元//' | sed 's/^零//' | sed 's/^整$/零元&/`
    
59.      break
    
60. }
    
61. do
    
62.   ChnNum=`echo $ChnNum | sed 's/零零/零/g'`
    
63. done
    
64. echo $ChnNum

复制代码