如何用SHELL编人民币转换程序，请大家帮写一下。

bjgirl

这是你想要的吧~~
http://www.linuxsir.com/postnuke/modules.php?op=modload&name=News&file=article&sid=533&mode=thread&order=0&thold=0

doni

搜索一下，以前有人贴过。

hp_unix

原帖由 "bjgirl" 发表：
这是你想要的吧~~
http://www.linuxsir.com/postnuke/modules.php?op=modload&name=News&file=article&sid=533&mode=thread&order=0&thold=0

   

     能不能编个在SCO UNIX 下面的 SHELL啊~ ?

admirer

【本版精华集锦】中有！
http://www.chinaunix.net/forum/viewtopic.php?t=149718

bjgirl

原帖由 "admirer" 发表：
【本版精华集锦】中有！
http://www.chinaunix.net/forum/viewtopic.php?t=149718

   
不就是本帖嘛?!
唉~~,还是我给帖出来吧~~

2. #!/bin/bash
3. #penny_ccf@hotmail.com
5. #it's ugly, but it works
8. cconvert(){
10. declare -a cnum;
11. declare -a cmag;
13. cnum[1]="壹"
14. cnum[2]="贰"
15. cnum[3]="叁"
16. cnum[4]="肆"
17. cnum[5]="伍"
18. cnum[6]="陆"
19. cnum[7]="柒"
20. cnum[8]="拔"
21. cnum[9]="玖"
22. cnum[0]="零"
24. cmag[0]=""
25. cmag[1]="拾"
26. cmag[2]="佰"
27. cmag[3]="仟"
28. cmag[4]="万"
29. cmag[5]="拾"
30. cmag[6]="百"
31. cmag[7]="千"
34. tempalpha="$1";
35. ctempmag=$2;
36. if [ $tempalpha == "00000000" ] ; then
37. CSTR="";
38. return 0;
39. fi
40. let templength="${#tempalpha}";
42. CSTR="";
43. for ((m=0;m<templength;m++))
44. do
45. tempi=${tempalpha:m:1};
46. let tempj="$templength-$m-1";
48. if ((( tempi == 0 )) && (( tempj ==4 ))); then
49. CSTR=$CSTR"万";
50. elif (( tempi == 0 )); then
51. CSTR=$CSTR${cnum[0]};
52. else
53. CSTR=$CSTR${cnum[$tempi]}${cmag[$tempj]};
54. fi
56. done
58. CSTR=$(echo $CSTR | sed -e 's/零零*/零/g' -e 's/零$//g' -e 's/零零零万//g');
59. CMAG="";
60. for ((m=0;m<ctempmag;m++))
61. do
62. CMAG=$CMAG"亿";
63. done
65. CSTR=$CSTR$CMAG;
66. }
68. alpha=$1;
69. length=${#alpha};
70. let k="$length/8";
71. let modl="$length%8";
72. MYSTR="";
74. tempstr=${alpha:0:$modl};
75. if ((modl>0)); then cconvert $tempstr $k; fi
77. MYSTR=$MYSTR$CSTR;
78. for ((i=0;i<k;i++))
79. do
80. let pos="$i*8+modl";
81. tempstr=${alpha:$pos:8};
82. let tempmag="$k-$i-1";
83. cconvert $tempstr $tempmag;
84. MYSTR=$MYSTR$CSTR;
85. done
87. echo $MYSTR | sed -e 's/亿零万/亿零/g' -e 's/零万/万/g' -e 's/零亿/亿/g' -e 's/零零*/零/g' -e 's/零$//g';

复制代码

   
[来自]: www.linuxsir.com

yoursmile

原帖由 "bjgirl" 发表：
不就是本帖嘛?!
唉~~,还是我给帖出来吧~~

   

没有 “角” 和“分”。
还是不完美。

lvgq2001

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

复制代码

[/code]

hp_unix

[quote]原帖由 "lvgq2001"][/quote 发表：
   

        调试了,执行不了,请大侠指教~!
        返回错误代码:        

1. 
   
2.               je.sh: Num[0]=零: not found
   
3.               je.sh: Num[6]=陆: not found
   
4.               je.sh: Unit[1]=分: not found
   
5.               je.sh: Unit[7]=万: not found
   
6.               je.sh: Nums[1]=0: not found
   
7.               je.sh: Nums[2]=0: not found
   
8.               je.sh: Nums[3]=0: not found
   
9.               je.sh: bad substitution

复制代码