Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> perl Programmering >> Content

    Konvertera XLS till CSV på Perl

    Företag använder ofta Excel för att lagra tabeller med data . Ofta kommer dessa företag att hitta en användning för att data som kräver omvandla den till ett annat format för andra program att använda . Men Excel-filer inte är avsedda att läsas av andra program . De uppgifter som de innehåller måste omvandlas till ett gemensamt format , såsom Kommaavgränsade värden ( CSV ​​) -filer . För personer med en massa Excel-filer att konvertera , är den vanliga processen besvärlig . Så Perl förmåga att hantera databehandling uppgifter snabbt och enkelt komma väl till hands i det här fallet . Saker du behöver
    Perl eller activestate Perl
    CPAN om du har Perl
    PPM om du har activestate Perl
    Visa fler instruktioner , Skapa din CSV -fil

    1

    Installera Perl module " kalkylblad :: parseexcel " på ditt system . Detta är den standard Perl-modul för att läsa data från Excel-filer . Processen för installation beror på ditt system typ
    p Om du har activestate Perl ( dvs. Perl för Windows . ) : .

    Öppna en kommandotolk . Gå till " bin " undermapp i mappen där din activestate Perl -programmet ligger . Om du inte vet var det är , använder du Windows sökfunktionen för att hitta " activestate " och gör en anteckning om " sökvägen " till activestate Perl mappen . Gå sedan till din Kommandotolken och skriv " DIR " följt av den sökväg och tryck sedan på Retur . Skriv sedan " DIR bin " och tryck på Retur .

    Type " ppm " och tryck på Retur . Viss text visas och sedan kommer du att kunna skriva kommandon igen . Typ " install kalkylblad :: parseexcel " och tryck på Retur . Lite mer text kommer att visas och sedan installationen kommer att slutföras
    p Om du har standard Perl : .

    Öppna Kommandotolken eller terminalfönster . I Mac OS X , är det program som heter Terminal . Skriv följande :

    perl - MCPAN - e install Kalkylblad :: parseexcel

    Tryck på Retur . En hel del text visas och sedan installationen kommer att vara komplett .
    2

    Gör din Excel-fil tillgänglig för din Perl-skript . Gör en kopia av Excel- filen med namnet " xls_test.xls " för denna tutorial och flytta den till den mapp där din Perl-skript ligger .
    3

    Ladda din Excel- fil till din perl script med denna kod :

    använda kalkylblad :: parseexcel ,

    min $ xlsparser = kalkylblad :: parseexcel - > ny ( ) ;

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

    min $ xls = $ xls - > kalkylblad ( 0 ) ;

    nu har vi ett objekt ( " $ xls " ) som håller data från det första kalkylbladet i vår Excel-fil . Om du vill hämta data från ett annat kalkylblad , byt noll ( " 0 " ) i den fjärde raden med antalet kalkylbladet minus ett . Till exempel är det första kalkylbladet partens nummer noll ( " 0 " ) , är den tredje kalkylbladet nummer två ( " 2 " ) och så vidare. Om din Excel-fil endast har ett kalkylblad , använda koden som - är .
    4

    reda på vad kolumner och rader kalkylbladet har . Använd denna kod :

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

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

    Skapa en variabel för att lagra CSV-data . Använd denna kod :

    min $ csv = '' ;
    6

    Skapa CSV-data . Använd denna kod för att göra det :

    för min $ rad ( $ row_first .. $ row_last ) { # Steg igenom varje rad

    för min $ col ( $ col_first .. $ col_last ) { # Steg igenom varje kolumn

    min $ cell = $ xls - > get_cell ( $ rad , $ col ) , # Få aktuell cell

    nästa såvida $ cell ,

    $ csv = $ cell - > oformaterad ( ) , . # Få cellens rådata - inga gränsar färgar eller något liknande

    if ( $ col == $ col_last ) {

    $ csv = " \\ n "; . . # Gör en ny rad i slutet av raden

    } else {

    $ csv = " , " , " Lägg till ett kommatecken mellan varje objekt

    }

    }

    }
    7

    Spara data i $ csv till en fil med Perl akt - skrivande funktioner . Kontrollera ditt filnamnet slutar på " . CSV " för tydlighetens skull .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man gör en Twitter Stream API i Perl
    ·Hur man fångar Perl syntaxfel
    ·Hur att rensa upp i Start & Slut på en sträng i Perl
    ·Hur man skapar en platt fil
    ·Hur till Installera Perl på Windows XP
    ·Ta bort en fil i Perl
    ·Vad är meningen med Pseudokod
    ·Hur man bygger ett Perl Module RPM
    ·Suzuki 250 Quad Specifikationer
    ·Hur man tar bort den första raden i en sträng i Groov…
    Utvalda artiklarna
    ·Hur Downcast i VB.NET
    ·Java Tutorial på Random Method
    ·Hur Rotera Vittnesmål på en webbplats
    ·Hur du använder Update Med Select Subquery
    ·Hur man använder tecken klass i Java
    ·Hur Kontrollera om musen är över DIV JavaScript
    ·Hur man testar för Intersecten av två linjerna i Pyth…
    ·Inaktivera magic_quotes_gpc
    ·Hur Till Flytta ett adressfält Med JavaScript
    ·Lägga till kontroller till en aspx-sida
    Copyright © Dator Kunskap http://www.dator.xyz