批处理之家 - Powered by Discuz! Board

use utf8;
use Encode;
binmode(STDOUT, ":encoding(gbk)");
our @unit_f = ("", "角"); #分省略，最后补上
our @part = ("", "萬", "亿"); #元省略，最后补上
our @unit = ("", "拾", "佰", "仟"); #同上
our @cnum = qw/零壹贰叁肆伍陆柒捌玖拾/;
my ($inp, $str, $sect) = (undef, "", "");
my ($ni, $nf, $i);
my ($fa, $fb);
$inp=50050001.51;
($ni, $nf) = split(/\./, sprintf("%.2f", $inp));
$i = 0;
#处理整数部分
while ($ni ne "") {
$ni=~s/(\d{0,4})$//; #每四位数为一段进行截取
$sect = &func($1);
# 如果某段大写返回为空（全0的情况），则缩略
# 例如壹亿，而不是壹亿萬
if ($sect ne "") {
$str = $sect . $part[$i] . $str;
}
$i++;
}
$str = $str."元";
#处理角和分
@unit = (@unit_f);
$sect = &func($nf);
if ($sect ne "") {
$str = $str . $sect;
$str = $str ."分" unless ($sect=~/角$/);
}
print $str;
sub func {
our @unit;
our @cnum;
my @ints = reverse( split("", $_[0]) ); #反转成 (个,十,佰,仟)
my $prev = 1;
my $begin = 0;
my $i;
my $str = "";
#如果低位连续出现零，略过。
#例如，一百零拾零元简写为：一百元
while (
defined $ints[$begin]
and
$ints[$begin] == 0
) {
$begin++;
}
foreach $i ($begin .. $#ints) {
if (
$ints[$i] == 0
) {
if ($prev != 0) {
$str = $cnum[$ints[$i]] . $str; #零
$prev = 0;
}
next;
}
$prev = $ints[$i];
$str = $cnum[$ints[$i]] . $unit[$i] . $str;
}
return $str;
}

复制代码

@echo off & title RMB & chcp 936 & setlocal enabledelayedexpansion
set "unit=仟佰拾个" & set "unit1=角分" & set "num=零壹贰叁肆伍陆柒捌玖"
for %%x in (
0
0.00
8
0.2
0.0
987654321.12
0.09
3.02
7.60
50.00
987654321
987654320
987654300
987654000
987650000
987650321
987654021
987654301
987650021
987654001
987650301
987650001
900000321
900000000
900000021
900000001
900000000.03
900000000.00
900000000.10
) do for /f "tokens=1-2 delims=." %%a in (
"%%x"
) do (
echo %%x
set "dgt=%%a" & set "I="
for /l %%i in (-16 1 -1) do (
set /a "j=%%i+1, s=j>>31, j=s&j|~s&1, k=(%%i+1) %% 4 - 1"
for /f "tokens=1-2" %%j in ("!j! !k!") do (
if "!dgt:~%%i,%%j!" neq "" (
for %%n in (!dgt:~%%i^,%%j!) do set "I=!I!!num:~%%n,1!!unit:~%%k,1!"
)
)
)
set "I=A!I:~-24,-16!亿!I:~-16,-8!万!I:~-8!元"
set "I=!I:A亿=A!"
set "I=!I:A万=A!"
set "I=!I:零个=个!"
set "I=!I:零拾个=个!"
set "I=!I:零佰个=个!"
set "I=!I:零仟个=个!"
set "I=!I:个=!"
set "I=!I:亿万元=亿元!"
set "I=!I:亿万=亿零!"
set "I=!I:零仟=零!"
set "I=!I:零佰=零!"
set "I=!I:零拾=零!"
set "I=!I:零零=零!"
set "I=!I:零零=零!"
set "T=%%b00" & set "F="
for %%i in (0 1) do for %%n in (!T:~%%i^,1!) do set "F=!F!!num:~%%n,1!!unit1:~%%i,1!"
set "F=!F:零分=D!"
set "F=!F:零角D=整!"
set "F=!F:零角=零!"
set "F=!F:D="!
set "R=!I!!F!"
set "R=!R:A元整=零元整!"
set "R=!R:A元零=!"
set "R=!R:A元=!"
set "R=!R:A=!"
echo !R! & echo.
)
pause

复制代码

use IO::Handle;
use utf8;
use Encode;
STDOUT->autoflush(1);
STDERR->autoflush(1);
binmode(STDOUT, ":encoding(gbk)");
our @unit_f = ("", "角"); #分省略，最后补上
our @part = ("", "萬", "亿"); #元省略，最后补上
our @unit = ("", "拾", "佰", "仟"); #同上
our @cnum = qw/零壹贰叁肆伍陆柒捌玖拾/;
foreach (
1.01,
900000000,
0.0,
7.2,
12300100.12,
101010101
) {
printf &main($_) . "\n";
}
<STDIN>;
sub main {
my $inp = shift;
my ($str, $sect) = ("", "");
my ($ni, $nf, $i) = ("", "", undef);
return "零元" if ($inp == 0);
#整数部分和小数部分
($ni, $nf) = split(/\./, sprintf("%.2f", $inp));
#处理整数部分
$i = 0;
while ($ni ne "") {
$ni=~s/(\d{0,4})$//; #每四位数为一段进行截取
$sect = &func($1, \@unit);
# 如果某段大写返回为空（0000），则缩略
# 例如壹亿，而不是壹亿萬
if ($sect ne "") {
$str = $sect . $part[$i] . $str;
}
$i++;
}
$str .="元" if ($str ne "");
#处理角和分
$sect = &func($nf, \@unit_f);
if ($sect ne "") {
$str = $str . $sect;
$str = $str ."分" unless ($sect=~/角$/);
}
return $str;
}
sub func {
our @cnum;
my ($num, $unit) = (shift, shift);
my @ints = reverse( split("", $num) ); #反转成 (个,十,佰,仟)
my $prev = 1;
my $begin = 0;
my $i;
my $str = "";
#略过低位连续出现的零
#例如，一百零拾零元简写为：一百元
while (
defined $ints[$begin]
and
$ints[$begin] == 0
) {
$begin++;
}
foreach $i ($begin .. $#ints) {
if (
$ints[$i] == 0
) {
if ($prev != 0) {
$str = $cnum[$ints[$i]] . $str; #零
$prev = 0;
}
next;
}
$prev = $ints[$i];
$str = $cnum[$ints[$i]] . $unit->[$i] . $str;
}
return $str;
}

复制代码