Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Perl Programming >> .

Come convertire XLS in CSV su Perl

Aziende comunemente utilizzare Excel per memorizzare le tabelle di dati. Spesso , le aziende potranno trovare un impiego per quei dati che richiedono la conversione in un formato diverso per altri software da usare. Ma i file di Excel non sono progettati per essere letti da altri programmi. I dati in essi contenuti deve essere convertito in un formato comune , come ad esempio Comma Separated Value ( CSV) . Per le persone con un sacco di file di Excel per la conversione , il processo di solito è ingombrante . Quindi la capacità di Perl per gestire le attività di trattamento dei dati viene rapidamente e facilmente in aiuto in questo caso . Cose che ti serviranno
Perl o ActiveState Perl
CPAN se avete Perl
PPM se avete ActiveState Perl
Mostra altri Istruzioni Crea il tuo file CSV

1

Installare il modulo Perl " Spreadsheet :: ParseExcel " sul vostro sistema . Questo è il modulo Perl standard per la lettura dei dati da file Excel . La procedura di installazione dipende dal tipo di sistema

Se hai ActiveState Perl (cioè , Perl per Windows . ) : .

Aprire una finestra del prompt dei comandi . Vai alla " bin" sottocartella della cartella in cui si trova il programma di ActiveState Perl . Se non sai dove si trova, utilizzare la funzione di ricerca di Windows per trovare " ActiveState " e prendere nota del " percorso di directory " alla cartella ActiveState Perl . Poi vai alla finestra del prompt dei comandi e digitare " DIR ", seguito da quello percorso di directory e quindi premere Invio. Quindi digitare "bin DIR " e premere Invio .

Tipo " ppm ", quindi premere Invio. Del testo apparirà e poi sarete in grado di digitare di nuovo i comandi . Tipo "install Spreadsheet :: ParseExcel " e premere Invio . Alcuni più testo apparirà e quindi l'installazione sarà completata

Se avete standard di Perl : .

Aprire una finestra del prompt dei comandi o un terminale . In Mac OS X , il programma si chiama Terminal . Digitare quanto segue :

perl- MCPAN -e install Spreadsheet :: ParseExcel

Premere Invio. Un sacco di testo apparirà e quindi l'installazione sarà completa .
2

Fai il file di Excel accessibili allo script Perl . Creare una copia del file di Excel con il nome di " xls_test.xls " per questo tutorial e spostarlo nella cartella in cui si trova lo script Perl .
3

Caricare il file di Excel nella vostra Perl script con questo codice:

uso Spreadsheet :: ParseExcel ;

my $ xlsparser = Spreadsheet :: ParseExcel - > new ( ) ;

mio xlsbook $ = $ parser - > parse ( ' xsl_test.xls ');

my $ = $ xls xls - > foglio di lavoro ( 0 ) ;

Ora abbiamo un oggetto ( " $ xls " ) che detiene i dati del primo foglio di lavoro del nostro file di Excel . Se si desidera ottenere dati da un foglio di lavoro diverso , sostituire lo zero ( "0" ) nella quarta riga con il numero del foglio di lavoro meno uno. Per esempio , il numero del primo foglio è zero ( " 0 " ) , il numero del terzo foglio è di due ( " 2" ) e così via . Se il file di Excel ha un solo foglio di lavoro , utilizzare il codice come - è .
4

Scopri cosa colonne e righe foglio di calcolo ha. Utilizzare questo codice:

mio ( $ row_first , $ row_last ) = $ xls - > row_range ();

mio ( $ col_first , $ col_last ) = $ xls - > col_range ( ) ;
5

Creare una variabile per memorizzare i dati CSV . Utilizzare questo codice:

my $ csv ='';
6

Creare i dati CSV . Usa questo codice per farlo :

per il mio $ riga ( $ row_first .. $ row_last ) { # Passaggio attraverso ogni riga

per il mio $ col ( $ col_first .. $ col_last ) { # Passo attraverso ogni colonna

mia cella $ = $ xls - > get_cell ( $ row , $ col) ; # Prendi il corrente cella

prossimo a meno che $ cella ;

$ csv = $ cella - > non formattato ( ) . # ottenere i dati grezzi della cella - senza coloranti di confine o qualcosa di simile

if ( $ col == $ col_last ) {

$ csv = " \\ n"; . . # Fai una nuova riga alla fine della riga

} else {

$ csv = " , " ; " aggiungere una virgola tra ogni voce

}

}

}
7

salvare i dati in $ csv in un file utilizzando le funzioni di file - scrittura di Perl . assicurarsi il nome del file termina con " . csv" per chiarezza .

 

Programmazione © www.354353.com