分类:
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++;
}