Chinaunix首页 | 论坛 | 博客

aef25u的ChinaUnix博客

首页　| 　博文目录　| 　关于我

aef25u

  • 博客访问： 225738
  • 博文数量： 36
  • 博客积分： 1188
  • 博客等级： 军士长
  • 技术积分： 802
  • 用 户 组： 普通用户
  • 注册时间： 2010-04-08 21:45
文章分类

全部博文（36）

文章存档

2020年（1）

2017年（2）

2015年（1）

2014年（1）

2013年（1）

2012年（3）

2011年（27）

我的朋友
最近访客
推荐博文
相关博文
Text::Table用于财务报表的输出

分类： WINDOWS

2011-06-05 09:11:16

工作中，需按客户（医院）提供的数据重建核算科室的核算报表，perl帮了我的大忙。Text::Table模块用于报表输出可以让代码简洁直观些。
以下代码只是示例如何从Excel中取数，并用Text::Table格式化输出报表。其中的财务数据的勾兑关系不一定正确，而且输出的报表也不全，缺少人员经费这部分的项目。
 测试.rar   
  1. #!/usr/bin/Perl

  3. use Cwd;
  4. use Win32::OLE;
  5. use Text::Table;
  6. #use Acme::PerlTidy;

  8. my $nll = '×';
  9. my $dir = getcwd();
  10. my $BookName = $dir . '/收入成本.xls';

  12. my @arrSh = qw(1月 2月 3月 4月);

  14. my $Excel = Win32::OLE->new("Excel.Application");
  15. $Excel->{Visible} = 1;
  16. $Book = $Excel->Workbooks->Open($BookName);
  17. foreach my $sheet (@arrSh) {

  19.     $Book->Sheets($sheet)->Select;
  20.     my $ActSheet = $Book->ActiveSheet;
  21.     my $ks = $ActSheet->Range('A3:A20')->{'Value'};
  22.     foreach my $i ( 0 .. 17 ) {
  23.         my $ks_now = $ks->[$i][0];
  24.         my $j = $i + 3;
  25.         my $sr = $ActSheet->Range("B$j:C$j")->{'Value'};
  26.         my $cb = $ActSheet->Range("E$j:M$j")->{'Value'};

  28.         my $ylsr = $sr->[0][0] - $sr->[0][1];
  29.         my $qtcb = $cb->[0][4] + $cb->[0][5];

  31.         my $tb = Text::Table->new();
  32.         $tb->load(
  33.             [ "一、业务收入", $nll, "四、业务费", $nll ],
  34.             [ "药品收入", $sr->[0][1], "1、药品成本", $cb->[0][2] ],
  35.             [ "挂号收入", $nll, "2、高值耗材成本", $cb->[0][3] ],
  36.             [ "门诊治疗收入", $nll, "3、氧气成本", $nll ],
  37.             [ "心超收入(电生理)", $nll, "4、卫生材料", $cb->[0][1]],
  38.             [ "化验收入（检验科）", $nll, "5、低值易耗品", $nll],
  39.             [ "X、CT收入（放射科）", $nll, "6、洗涤费",$nll ],
  40.             [ "理疗收入（理疗科）", $nll, "7、消毒费",$nll ],
  41.             [ "检查收入",$nll, "8、器设维修", $nll ],
  42.             [ "住院治疗收入",$ylsr, "9、保洁费",$nll ],
  43.             [ "×××××××××××",$nll, "10、差旅费",$nll ],
  44.             ["×××××××××××", $nll, "11、水电支出", $cb->[0][0]],
  45.             [ "×××××××××××", $nll, "12、电话费",$nll ],
  46.             [ "×××××××××××", $nll, "13、取暖费",$nll ],
  47.             [ "×××××××××××", $nll, "14、其他",$qtcb ],
  48.             [ "×××××××××××", $nll, "×××××××××××", $nll ],
  49.             [ "×××××××××××", $nll, "×××××××××××", $nll ],
  50.             ["×××××××××××", $nll,"五、折旧摊销费", $cb->[0][7]],
  51.             [ "×××××××××××", $nll, "×××××××××××", $nll ],
  52.             ["×××××××××××",$nll,"手术室费用（备查）", $cb->[0][6]],

  54.         );
  55.         open( FH, ">>Srcb.txt" );
  56.         print FH "$ks_now:$sheet\n";
  57.         print FH "$tb\n";
  58.         close FH;

  60.     }

  62. }
  63. $Book->Save;
  64. $Book->Close;
  65. $Excel->quit;

格式化输出至HTML向CU论坛的ttcn_cu又学了一招

  1. #!/usr/bin/Perl
  2. use Text::Table;
  3. my $nll = '×';
  4. my $tb = Text::Table->new();
  5.         $tb->load(

  7.         [ "一、业务收入", 44, "四、业务费", $nll ],
  8.         [ "药品收入", 22, "1、药品成本", 22 ],
  9.         [ "挂号收入", $nll, "2、高值耗材成本", 22 ],
  10.         [ "门诊治疗收入", $nll, "3、氧气成本", $nll ],
  11.         [ "心超收入(电生理)", $nll, "4、卫生材料", 22],
  12.         [ "化验收入（检验科）", $nll, "5、低值易耗品", $nll],
  13.         [ "X、CT收入（放射科）", $nll, "6、洗涤费",$nll ],
  14.         [ "理疗收入（理疗科）", $nll, "7、消毒费",$nll ],
  15.         [ "检查收入",$nll, "8、器设维修", $nll ],
  16.         [ "住院治疗收入",22, "9、保洁费",$nll ],
  17.         [ "×××××××××××",$nll, "10、差旅费",$nll ],
  18.         ["×××××××××××", $nll, "11、水电支出", 22],
  19.         [ "×××××××××××", $nll, "12、电话费",$nll ],
  20.         [ "×××××××××××", $nll, "13、取暖费",$nll ],
  21.         [ "×××××××××××", $nll, "14、其他",17 ],
  22.         [ "×××××××××××", $nll, "×××××××××××", $nll ],
  23.         [ "×××××××××××", $nll, "×××××××××××", $nll ],
  24.         ["×××××××××××", $nll,"五、折旧摊销费", 22],
  25.         [ "×××××××××××", $nll, "×××××××××××", $nll ],
  26.         ["×××××××××××",$nll,"手术室费用（备查）", 22],
  27. );
  28. my $outputbuff='';

  30. my $line_num= $tb->body_height();
  31. for my $i (0..$line_num-1){
  32.          $outputbuff.="";
  33.          my @row=split(/\s+/,$tb->body($i));
  34.          for (@row){
  35.                 $outputbuff.="$_";
  36.         }
  37.         $outputbuff.="";
  38. }

  40. $outputbuff.="";
  41. open OUTPUT,'>','out1.html';
  42. print OUTPUT "";
  43. print OUTPUT $outputbuff;
  44. close OUTPUT;

  46. open OUTPUT,'>','out2.html';
  47. print OUTPUT "
    48. ";
  48. print OUTPUT $outputbuff;
  49. close OUTPUT;

  51. #############################################
  52. #另外一个使用Text::Table的原因，就是可以很容易地按行（取单行：$tb->body($i)；取多行：$tb->body(0..$i)或$tb->body(0，1，$i)）或按列（$tb->select($i)）取数据，再结合使用切片可以方便地计算出需要的数据
  53. my @temp=split(/\n/,$tb->select(1));
  54. my @col=grep(/\d+/,@temp[1..$#temp]);
  55. print '业务收入＝'.join('+',@col),"\n" ;
    56. 阅读(1899) | 评论(0) | 转发(0) |
    0

    上一篇：perl简化制作PPT

    下一篇：用perl的moose写了个备份文件的小工具

    给主人留下些什么吧！~~
    关于我们 | 关于IT168 | 联系方式 | 广告合作 | 法律声明 | 免费注册

    Copyright 2001-2010 ChinaUnix.net All Rights Reserved 北京皓辰网域网络信息技术有限公司. 版权所有

    感谢所有关心和支持过ChinaUnix的朋友们

    16024965号-6