ELaci!

Végre egy konkrétum, már nagyon vártam eree.

😆
[align=right][snapback]80661[/snapback][/align]

Egy bölcs meg ezt mondta:

Ez itt egy perl átalakító, amely pontosvesszõvel elválasztott mezõket alakít át sxc(xls) formátumba és így kell futtatni:
cat data.csv | conv.pl

data.csv = pontosvesszõvel elválsztott mezõket tartalmazó file
conv.pl = ez a perl program
– a kimeneti file neve a processz azonosító (sxcPID.sxc) lesz
– numerikus cellákat is generál

---

perl program itt kezd?dik:
#!/usr/bin/perl -w
##########################################################
# ! EZ EGY PIPE PROGRAM !
# csv file atalakitasa sxc(xls)-be mezõtípus ellenõrzéssel

use strict;
use Spreadsheet::WriteExcel;

#my $pid = getppid();
my $pid = $$;
my $outfile = „sxc” . „$pid” . „.sxc”;
# my $outfile = „xls” . „$pid” . „.xls”;
my $maxrow = 64999; # az egy munkalapra irhato sorok szama

my $workbook = ”;
my $worksheet = ”;
my $wsnum = 0;
my $row = 0;
my $col = 0;
my $token = ”;

open (STDIN, „-„) or die „Error opening STDIN: $!”;
$workbook = Spreadsheet::WriteExcel->new($outfile);

while () {
chomp; # LF levagas
# s/15//; # CR kiszures
# s/14//; # FF kiszures

# codepage konverzio ha kell: 852 –> 1250
#tr [201351202212213220326224231232240241242243265340353373]
# [374332351325365311315366326334341355363372301323333373];

if ($row == 0) {
$wsnum++;
$worksheet = $workbook->addworksheet(„Munkalap”.”$wsnum”);
}

my @Fld = split(„;”, $_);
$col = 0;
foreach $token (@Fld) {
$token =~ s/^s+//;
$token =~ s/s+$//;
if (length($token) > 15) {
$worksheet->write_string($row, $col, $token);
} else {
if ($token =~ /(^-|^d+)(,?d*)*.?d*$/ && $token ne ‘-‘) {
$token =~ s/,//g;
$worksheet->write_number($row, $col, $token);
} else {
$worksheet->write($row, $col, $token);
}
}
$col++;
}
$row++;

# Ha a sorok száma több mint maxrow (65000)
if ($row > $maxrow) {
$worksheet->write_string($row + 1, 0,”Folytatás a következõ munkalapon…”);
$row = 0;
}
}

$workbook->close($outfile) or die „Error closing output file: $!”;
close(STDIN) or die „Error closing pipe file: $!”;

---

Vége

ELaci :rolleyes:

Irnom kell egy Berkeley DB alkalmazast, de meg nem foglalkoztam/talalkoztam vele, a help alapjan el is indultam, de a komolyabb DB muveletekhez lenne nehany kerdesem olyantol, aki mar foglalkozott vele. Itt talalok olyat? 😉

(a neten kerestem pelda alkalmazasokat, de valoszinuleg rossz helyen 😀 )

„3. Tud valaki kezdõknek szóló C-s helyet valahol a fenti témában?”
par erdekesb hely:
http://leapster.org/linoleum/ (linux)
http://www.cprogramming.com/ (c++)
http://lidn.sourceforge.net/ (devhelp konyvek)
http://www.silicontao.com/ProgrammingGuide/index.html (alapok)
[align=right][snapback]28524[/snapback][/align]