我在csdn得分最多的一个帖子:用6行代码写一个将小写金额转成大写的函数

写一个将小写金额转成大写的函数,你要多少行代码?

楼主cocolong2002(龙可可) 2003-08-15 01:06:21 在 PowerBuilder / 基础类 提问

原先借鉴一位老师的要80多行,后来分析后,我写了一个只要6行代码(包括变量定义/return等所有代码)。  
  实现功能例如:  
  Cuper(123.56)返回¥壹佰贰拾叁元伍角陆分  
  最大可到亿元。  
  谁可以在10行代码写出类似函数,有分。:)  
  问题点数:100、回复次数:53Top

2 楼workhand(我可憨了...) 回复于 2003-11-26 08:24:42 得分 0

呵呵,支持一下Top

3 楼klbt(快乐白兔)回复于 2003-11-26 08:33:26 得分 0

友情支持,帮你upTop

4 楼njz168(飞龙在天)回复于 2003-11-26 09:00:28 得分 0

楼主能否把你的6行代码公布一下。有分Top

5 楼pbsql(风云)回复于 2003-11-26 09:14:57 得分 0

6行代码就搞定了,你也太能吹了(也可能是我见识少),我看到过最少的代码是20行左右  
   
  你把6行代码公布一下,我给你200分Top

6 楼qqjj7758(QQJJ)回复于 2003-11-26 09:26:55 得分 0

代码越少可能用到的函数就越多  
  代码的函数还是应该算在其中的  
   
  只要简练易懂就好了   何必在乎那代码要多短呢?Top

7 楼jackzhang168(我是谁)回复于 2003-11-26 09:28:00 得分 0

upTop

8 楼oversecond(学习者)回复于 2003-11-26 09:32:33 得分 0

int   i,s_len,sz[9]={0,0,0,0,0,0,0,0,0}  
  string   str_num,str_ret  
  string   dw[1   to   9]={"分","角","元","拾","佰","仟","万","拾","佰"}  
  string   ch[0   to   9]={"零","壹","贰","叁","肆","伍","陆","柒","捌","玖"}  
  str_num=Right(string(Round(parm_je*100,0),"###########"),9)  
  s_len   =   len(str_num)  
  for   i   =   s_len   to   1   step   -1  
  sz[s_len   -   i   +   1]   =   integer(mid(str_num,i,1))  
  next  
  str_ret   =   ""  
  for   i   =1   to   s_len  
  str_ret   =   "   "+ch[sz[i]]+"   "+dw[i]+str_ret    
  next  
  return   str_retTop

9 楼treesoft(长沙水)回复于 2003-11-26 10:24:15 得分 0

//================================================================================//   [PUBLIC]   函数   f_dec2chinese    
  //--------------------------------------------------------------------------------//   功能描述:将数值类型转为汉字表示  
  //--------------------------------------------------------------------------------//   参数:  
  //  
  // [value]   decimal   adec_number  
  // 描述:数值  
  //--------------------------------------------------------------------------------//   返回: (string)   汉字表示  
  //--------------------------------------------------------------------------------//   作者: treesoft 日期:   2003年11月26日  
 //================================================================================string  ls_numbers[10]={'零','壹','贰','参','肆','伍','陆','柒','捌','玖'}  
  string   ls_units[16]={'兆','仟','佰','拾','亿','仟','佰','拾','万','仟','佰','拾','元','.','角','分'}  
  integer   li_i  
  string   ls_rtn  
  string   ls_char  
  string   ls_source  
   
  ls_source   =   string(adec_number,'###############.00')  
  ls_source   =   space(16   -   len(ls_source))   +   mid(ls_source,len(ls_source)   -   15)  
  for   li_i   =   16   to   1   step   -1  
  ls_char   =   mid(ls_source,li_i,1)  
  if   ls_char   =   '   '   then   exit  
  if   ls_char   =   '.'   then   continue  
  ls_rtn   =   ls_numbers[integer(ls_char)   +   1]+ls_units[li_i]   +   ls_rtn  
  next  
   
  return   ls_rtn  
   
   
  除去变量声明和注释,刚好10代码!       :)Top

10 楼TGWall(Begin-End)回复于 2003-11-26 10:41:22 得分 0

追求干净利落的风格  
  支持ed、支持ing、支持,^_^...   ...Top

11 楼khyhli(流水天际)回复于 2003-11-26 10:56:28 得分 0

可以首先把0-9阿拉伯数字转换为大写:  
  CREATE   proc   value1  
      @id   nvarchar(1),  
      @ids   nvarchar(1)   output    
  as  
   
    if     @id=1  
          begin  
                    set   @ids='壹'  
          end  
    else  
            if   @id=2  
                    begin  
                            set   @ids='贰'  
                    end  
            else  
                      if   @id=3  
                              begin  
                                    set   @ids='叁'  
                              end  
                      else  
                              if   @id=4  
                                      begin  
                                              set   @ids='肆'  
                                      end  
                              else  
                                      if   @id=5  
                                            begin  
                                                      set   @ids='伍'  
                                            end  
                                      else  
                                                if   @id=6  
                                                      begin  
                                                                set   @ids='陆'  
                                                      end  
                                                else  
                                                          if   @id=7  
                                                                  begin  
                                                                           set   @ids='柒'  
                                                                  end  
                                                          else  
                                                                  if   @id=8  
                                                                          begin    
                                                                                 set   @ids='捌'  
                                                                          end  
                                                                  else  
                                                                            if   @id=9  
                                                                                   begin  
                                                                                               set   @ids='玖'  
                                                                                   end  
                                                                            else  
                                                                                   begin  
                                                                                               set   @ids='零'  
                                                                                   end  
  接下来可以把小写金额转换为大写金额:  
  CREATE   proc   value2  
  @num   decimal(18,2)  
  as  
    declare   @num1   varchar(15),@i   int,@n_l   varchar(15),@n_r  varchar(15),@g   int,@c   int,@s   nvarchar(15),@f   nvarchar(1),@q  narchar(30)  
    @v   nvarchar(15),@l   nvarchar(1),@r   nvarchar(1),@k   nvarchar(15)   ,@ids   nvarchar(1)  
    set   @v='亿仟佰拾萬仟佰拾元角分'  
    set   @i=charindex('.',@num)  
    set   @n_l=left(@num,@i-1)  
    set   @n_r=right(@num,len(@num)-@i)  
    set   @num1=@n_l+@n_r  
    set   @g=len(@num1)  
    set   @s=right(@v,@g)  
    set   @c=1  
    set   @q=''  
  while   @c<=@g  
            begin  
                        set   @f=substring(@num1,@c,1)  
                        exec   value1     @f,@ids   output  
                        set   @l=substring(@s,@c,1)  
                        set   @q=@q+@ids+@l  
                        set   @c=@c+1      
            end  
                        set   @q=+'¥'+@q  
            print   @q  
  虽然上述过程超过十行,但是很容易懂的!  
  Top

12 楼pbsql(风云)回复于 2003-11-26 11:16:37 得分 0

oversecond(学习者)与treesoft(长沙水)都是把“100.01”转换成了“一百零拾零元零角一分”,一般人都不会这样转换吧?  
  khyhli(流水天际)弄俩存储过程,比较繁,没仔细看Top

13 楼pbsql(风云)回复于 2003-11-26 11:18:34 得分 0

cocolong2002   (龙可可):期待你的6行代码,把“100.01”转换成“一百元零一分”!Top

14 楼will521(中国DotNet程序员俱乐部 -- www.willsft.com)回复于 2003-11-26 14:13:58 得分 0

贴出来看看Top

15 楼treesoft(长沙水)回复于 2003-11-26 14:29:09 得分 0

to:   pbsql(风云)    
   
  开单据的时候,都地这么显示的。看看现实当中的发票都是以这种格式填写的哦!   如果要按你的要求的我看10行代码是写不出来的!       :)Top

16 楼mittee(最后一条大白鲨[无限深情凝视花花版])回复于 2003-11-26 16:57:23 得分 0

简单的代码是否能把特殊情况考虑进去Top

17 楼ldy(罗大佑)回复于 2003-11-26 17:13:17 得分 0

呵呵,学习Top

18 楼ldy(罗大佑)回复于 2003-11-26 17:25:09 得分 0

我到现在都不太明白怎么算一行代码Top

19 楼luoyunbo()回复于 2003-11-26 17:31:16 得分 0

123.56返回'壹佰贰拾叁元伍角陆分'  
   
  六行代码??????  
   
  不会这么容易吧....难道楼主就是传说中的------  
  公布一下代码吧摆脱了。Top

20 楼nhdj(柳柳荷叶清清水)回复于 2003-11-26 17:43:35 得分 0

贴出来看看Top

21 楼pbsql(风云)回复于 2003-11-26 18:44:16 得分 0

开单据可是只打数字,不打元角分的,那也太简单了点吧Top

22 楼klbt(快乐白兔)回复于 2003-11-26 19:26:41 得分 0

不过,楼主提出的问题很有意义。  
  -----------------------------  
  原先借鉴一位老师的要80多行  
  -----------------------------  
  80行做这个函数确实太长了,精益求精是应该是合格程序员的永恒追求。Top

23 楼kowloons(0分帖先锋)回复于 2003-11-26 19:34:20 得分 0

多用续行符呵呵全合并为一行了Top

24 楼freechinapi(琪琪)回复于 2003-11-26 21:28:51 得分 0

问一下6行源代码的朋友,要是0.56,你的函数显示什么呢?  
  Top

25 楼pbsql(风云)回复于 2003-11-27 09:17:55 得分 0

我给大家贴个我看到的最短的小写金额转换大写金额的函数:  
   
  string   n_data,c_data,n_str  
  integer   i  
  n_data=space(14   -   len(trim(string(abs(num*100),"#############0"))))+trim(string(abs(num*100),"#############0"))  
  for   i=1   to   14   step   1  
      n_str=mid(n_data,i,1)  
      if   n_str<>"   "   then  
          if   not   (mid(n_data,i,2)="00"   or   (n_str="0"   and   (i=4   or   i=8   or   i=12   or   i=14)))   then  
              c_data=c_data+trim(mid("零壹贰叁肆伍陆柒捌玖",integer(n_str)*2   +   1,2))  
          end   if  
          if   not   (n_str="0"   and   i<>4   and   i<>8   and   i<>12)   then  
              c_data=c_data+trim(mid("仟佰拾亿仟佰拾万仟佰拾圆角分",i*2   -   1,2))  
          end   if  
          if   right(c_data,4)="亿万"   then   c_data=left(c_data,len(c_data)   -   2)  
      end   if  
  next  
  if   num<0   then   c_data="(负数)"+c_data  
  if   num=0   then   c_data="零圆"  
  if   n_str="0"   then   c_data=c_data+"整"  
  return   c_dataTop

26 楼cocolong2002(龙可可)回复于 2003-11-29 10:11:19 得分 0

不用继行符,包括变量声明。10以内完成函数。Top

27 楼cocolong2002(龙可可)回复于 2003-11-29 10:15:30 得分 0

风云 说话可要算数哦,你开一个200分的贴,我回给你。Top

28 楼cocolong2002(龙可可)回复于 2003-11-29 10:17:33 得分 0

谢谢各位的支持,我期待着把本贴的100分送出。Top

29 楼sky2311(菜得不能再菜了!)回复于 2003-11-29 13:16:36 得分 0

顶!Top

30 楼sunsunup(細水長流)回复于 2003-11-29 13:25:20 得分 0

轉換一下這個數看看:   10100101.01Top

31 楼sunsunup(細水長流)回复于 2003-11-29 13:26:34 得分 0

再試試100010001Top

32 楼cocolong2002(龙可可)回复于 2003-11-29 13:42:48 得分 0

轉換一下這個數看看:   10100101.01   ¥壹仟零佰壹拾零万零仟壹佰零拾壹元零角零分  
  再試試100010001   超过一亿Top

33 楼insert2003(高级打字员)回复于 2003-11-29 13:51:19 得分 0

代码长短的讨论有什么意义吗?  
  达到目点不就行啦Top

34 楼cocolong2002(龙可可)回复于 2003-11-29 13:58:11 得分 100

int   i  
  string   Str_hz="分角元拾佰仟万拾佰仟亿",str_u="零壹贰叁肆伍陆柒捌玖",s,str_re="¥"  
  s=string(long(   is_number   *100))  
  for   i=1   to   len(s)  
        str_re=str_re+mid(str_u,integer(mid(s,i,1))   *   2   +   1   ,2)+mid(str_hz,(len(s)-i)*2+1,2)  
  next  
  return   str_reTop

35 楼cocolong2002(龙可可)回复于 2003-11-29 14:00:39 得分 0

for   里面只有一句就可以达到要求。Top

36 楼cocolong2002(龙可可)回复于 2003-11-29 14:03:08 得分 0

0.56   返回 ¥伍角陆分Top

37 楼zhouweiwansui(彪悍的论点不需要解释)回复于 2003-11-29 14:58:57 得分 0

6行代码?你真能吹啊Top

38 楼cocolong2002(龙可可)回复于 2003-11-29 15:26:39 得分 0

差不多了Top

39 楼cocolong2002(龙可可)回复于 2003-11-29 15:37:06 得分 0

zhouweiwansui(周维[csdnsc.126.com])  朋友,你看看是不是能把上面的函数中的 S变量放入for中的一句,再算一下是不是6行?弄成6行是完全可以的,为什么说是“吹”??可能是你没有认真看吧?对不起如果因为我的贴子让你产生不快乐的感觉,我先向你道歉。Top

40 楼han9703(枫)回复于 2003-11-29 15:50:59 得分 0

楼主   是不是应该  
  str_re=str_re+mid(str_u,integer(mid(s,i,1))   +   1   ,1)+mid(str_hz,(len(s)-i)+1,1)  
  啊  
  你的*2是什么意思啊Top

41 楼cocolong2002(龙可可)回复于 2003-11-29 16:04:09 得分 0

han9703(枫):在英文数字里每个数的len   是1,而中文字符串每个汉字的len是2。所以*2Top

42 楼han9703(枫)回复于 2003-11-29 16:07:22 得分 0

哦  
  我用的是8.0没这分别Top

43 楼pbsql(风云)回复于 2003-12-01 09:23:39 得分 0

我说的不是这种效果!  
   
  并且就算是这样,你的也不能将0译为零元或零分!Top

44 楼pbsql(风云)回复于 2003-12-01 09:25:42 得分 0

sorry,我错了,可以!  
   
  我说的不是这种效果!所以200分就免了!^_^  
  Top

45 楼benjaminz(RockDJ)回复于 2003-12-01 11:25:13 得分 0

回字有几种写法?说!有几种?  
  你这样写代码,别人看的懂吗?Top

46 楼workhand(我可憨了...)回复于 2003-12-01 14:43:51 得分 0

楼主真是厉害,稍微想想还是可以接受的。  
   
  佩服。Top

47 楼canchuan(残喘)回复于 2003-12-01 17:14:33 得分 0

呵呵,顶,牛。Top

48 楼SummerHeart(夏夜之怀)回复于 2003-12-01 18:10:10 得分 0

支持楼主,更支持   klbt(快乐白兔)   VVTop

49 楼SunMight(人生如梦)回复于 2003-12-02 10:23:26 得分 0

条条大路通罗马,只要对C或汇编等语言有一定认识的人都可以写出来的比较高效简短的程序,变个题目,让大家用汇编写吧:)(声明,我不会汇编!)Top

50 楼cocolong2002(龙可可)回复于 2003-12-02 20:50:36 得分 0

开这贴,原来是希望能给各位有点借鉴作用,看来目的是达了。:)Top

51 楼lmby(鹿门布衣)回复于 2003-12-03 11:08:23 得分 0

我帮你结了。虽然你的转换在某些时候有点欠缺(如0转成零分),不过对活跃思维很有帮助。支持。Top

52 楼lmby(鹿门布衣)回复于 2003-12-03 11:31:46 得分 0

另外,我整理了一下你的程序,让大家看得更清楚一点。不算侵权吧^_^  
   
  int   i  
  string   ls_unit,   ls_digit,   ls_input,   ls_out  
   
  ls_unit   =   "分角元拾佰仟万拾佰仟亿"  
  ls_digit   =   "零壹贰叁肆伍陆柒捌玖"  
  ls_out   =   "¥"  
   
  ls_input   =   string(long(   as_number   *100))//as_numer是输入  
   
  for   i   =   1   to   len(   ls_input   )  
        ls_out   =   ls_out   +   mid(   ls_digit,  integer(mid(ls_input,   i   ,   1   )   )   *   2   +   1   ,2)   +  mid(   ls_unit,(len(ls_input)   -   i   )   *   2   +   1,   2   )  
  next  
   
  return   ls_outTop

53 楼rustical(时光流逝)回复于 2003-12-17 10:09:26 得分 0

的确有新意思!
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值