Chinaunix首页 | 论坛 | 博客
  • 博客访问: 128298
  • 博文数量: 28
  • 博客积分: 2431
  • 博客等级: 大尉
  • 技术积分: 321
  • 用 户 组: 普通用户
  • 注册时间: 2008-05-29 18:40
文章分类

全部博文(28)

文章存档

2011年(3)

2010年(6)

2009年(7)

2008年(12)

分类:

2009-03-18 20:59:09

很郁闷的说,最近要帮老师转换数据库,本来老师用的是dbf的(很久的说),因为不能在数据库里边改,瑶导出来才可以操作,导出excel学好就变成了科学技术法,所以不能上传到教育部的服务器,所以瑶把这个科学技术法搞定,呵呵!

为了躲开这个计数法,方法有三:

1。导出为txt,用excel里边有个数据导入就可以了,此为最简单的方法。

2。利用excel里边的vlookup公式,现在发觉这个公式真的很不错··建议大家学一下

3。最麻烦,但我第一时间想到用这个做,就是用perl。因为我不会excel,所以我没有想那方面的。这次,利用工作之余又可以学到了新的模块了·呵呵··下面是我的代码:

#!/usr/bin/perl -w
  use Encode(qw(decode));
    use strict;
    use Spreadsheet::WriteExcel;
    open (CVS, '数据1.txt') or die "数据1.txt: $!";
    my $workbook  = Spreadsheet::WriteExcel->new('tab.xls');
    my $worksheet = $workbook->add_worksheet();
    # Row and column are zero indexed
    my $row = 0;
    while () {
        chomp;
        # Split on |
        my @Fld = split('\|', $_);
        my $col = 0;
        foreach my $token (@Fld) {
            $worksheet->write_string($row, $col, decode('gb2312',$token));
            $col++;
        }
        $row++;
    }

阅读(2788) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~