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

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

楼主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

的确有新意思！