Virksomheder almindeligt brug Excel til at gemme tabeller af data. Ofte vil disse virksomheder med at finde en anvendelse for , at data , der kræver konvertere det til et andet format for anden software til at bruge. Men Excel-filer er ikke designet til at blive læst af andre programmer. De data , de indeholder skal konverteres til et fælles format, såsom Kommasepareret værdi ( CSV) filer. For folk med en masse Excel-filer til at konvertere , er den sædvanlige proces besværlig. Så Perl evne til at håndtere edb- opgaver hurtigt og nemt kommer i handy i denne sag. Ting du har brug
Perl eller ActiveState Perl
CPAN hvis du har Perl
PPM , hvis du har ActiveState Perl
Vis Flere Instruktioner
Opret din CSV-fil
< br > 1
Installer Perl modulet " regneark :: ParseExcel " på dit system. Dette er standard Perl -modul til at læse data fra Excel-filer . Processen med installation , afhænger af dit system typen
p Hvis du har ActiveState Perl (dvs. Perl for Windows. ) : .
Åbn en kommandoprompt vindue . Gå til " bin " undermappe til den mappe , hvor din ActiveState Perl -program er placeret. Hvis du ikke ved, hvor det er, skal du bruge Windows søgefunktionen til at finde " ActiveState " og gøre et notat af " stien " til den ActiveState Perl mappen. Så gå til din kommandopromptvinduet og skriv " DIR " efterfulgt af at stien og derefter trykke på Retur. Derefter skrive " DIR bin " og tryk på Retur.
Type " ppm " og derefter trykke på Retur . Noget tekst vises, og så vil du være i stand til at skrive kommandoer igen. Type " install Regneark :: ParseExcel ", og tryk på Retur . Nogle mere tekst vil blive vist , og derefter installationen vil blive afsluttet
p Hvis du har standard Perl : .
Åbn en kommandoprompt eller terminal vindue . I Mac OS X , er programmet hedder Terminal. Indtast følgende : Hej
perl - MCPAN - e install Regneark :: ParseExcel
Tryk på Retur . En masse tekst vil blive vist , og derefter installationen vil være komplet .
2
Gør din Excel-fil tilgængelig for din Perl script. Lav en kopi af Excel-fil med navnet " xls_test.xls " for denne tutorial og flytte den ind i mappen , hvor din Perl script er placeret.
3
Læg Excel-fil ind i din Perl script med denne kode : Hej
brug regneark :: ParseExcel ,
min $ xlsparser = regneark :: ParseExcel -> nyt ();
min $ xlsbook = $ parser -> parse ( xsl_test.xls ');
min $ xls = $ xls -> regneark (0 )
nu har vi et objekt ( "$ xls " ) der holder data fra det første regneark i vores Excel-fil. Hvis du ønsker at få data fra et andet regneark , skal du udskifte nul ( "0") i fjerde linje med antallet af regnearket minus én. For eksempel er det første regneark nummer nul ( "0" ) , den tredje regneark nummer er to ( "2" ) og så videre . Hvis din Excel-fil har kun ét regneark , bruge koden som det er.
4
Find ud af hvad kolonner og rækker dit regneark har . Brug denne kode : Hej
min ( $ row_first , $ row_last ) = $ xls -> row_range ();
min ( $ col_first , $ col_last ) = $ xls -> col_range ( )
5
Opret en variabel til at gemme CSV data. Brug denne kode : Hej
min $ csv = '';
6
Opret CSV data. Brug denne kode til at gøre det : Hej
for min $ row ( $ row_first .. $ row_last ) { # Trin gennem hver række
for min $ col ( $ col_first .. $ col_last ) { # Trin gennem hver kolonne
min $ celle = $ xls -> get_cell ( $ row , $ col ) # Få den aktuelle celle
næste medmindre $ cellen,
< p > $ csv = $ celle -> uformateret (); . # Få cellens rådata - ingen grænsekonflikter farver eller noget lignende
if ($ col == $ col_last ) {
< p > $ csv = " \\ n"; . . # Lav en ny linje i slutningen af rækken
} else {
$ csv = " , ", " Tilføj et komma mellem hver post
}
}
}
7
Gem data i $ csv til en fil ved hjælp af Perl sagsakter - skrivning funktioner. Sørg dit filnavn ender på " . csv " for klarhed.