| Home  | Casa  | Hardware  | Networking  | Programmazione  | Software  | Domanda  | Sistemi  |   
Programmazione  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Java Programming

  • Programmazione Javascript

  • PHP /MySQL Programmazione

  • Perl Programming

  • Python Programming

  • rubino Programmazione

  • Nozioni di base di Visual Programming
  •  
    Conoscenza Informatica >> Programmazione >> Perl Programming >> Content
    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
    < br > 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 ;
    < p > $ csv = $ cella - > non formattato ( ) . # ottenere i dati grezzi della cella - senza coloranti di confine o qualcosa di simile

    if ( $ col == $ col_last ) {
    < p > $ 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 .

    Previous :

    next :
      Articoli Correlati
    ·Suzuki 250 Specifiche Quad 
    ·Come scrivere uno script Perl in VI 
    ·Come generare una password casuale 
    ·Come creare uno script in Perl Telnet Semplice 
    ·Come aprire un file e scrivere una riga in un altro fil…
    ·Come utilizzare una funzione Perl Grep 
    ·Qual è la sintassi Perl per codifica URL 
    ·Django vs . Perl 
    ·Come rimuovere la prima riga di una stringa in Groovy 
    ·Come eliminare un file in Perl 
      Articoli in evidenza
    ·Come utilizzare la casella di testo in Visual Basic 6.0…
    ·Come fare un Array Button Uso di ActionScript 
    ·Caratteristiche API 
    ·Come creare un BlogSkin per Blogger 
    ·Come controllare il codice PHP per solo numeri interi i…
    ·PHP Flash Integrazione Tutorial 
    ·Che cosa è TK Format 
    ·Come ottenere i nomi dei campi di un dataset 
    ·Come leggere l'ultima riga di un file in Python 
    ·Come spostare ViewState alla Parte inferiore della pagi…
    Copyright © Conoscenza Informatica http://it.wingwit.com