| Casa | Hardware | Redes | Programación | software | Criticar | Sistemas |   
Programación  
  • C /C + + Programming

  • Lenguajes De Programación

  • Delphi Programación

  • Programación Java

  • JavaScript Programación

  • Programación PHP /MySQL

  • Perl Programming

  • Python Programming

  • Rubí Programación

  • Visual Basics Programación
  •  
    Conocimientos Informáticos >> Programación >> Perl Programming >> Content
    Cómo convertir XLS a CSV en Perl
    Las empresas suelen utilizar Excel para almacenar tablas de datos. A menudo , las empresas se encuentra un uso para el que los datos que requiere su conversión en un formato diferente de otro software para su uso. Pero los archivos de Excel no están diseñados para ser leídos por otros programas. Los datos que contienen debe ser convertido a un formato común, como valores separados por comas ( CSV) . Para las personas con una gran cantidad de archivos de Excel para convertir , el proceso habitual es engorroso. Por lo tanto la capacidad de Perl para manejar las tareas de procesamiento de datos de forma rápida y sencilla es muy útil en este caso. Cosas que necesitará
    Perl o Activestate
    Perl CPAN si tiene Perl
    PPM si tiene ActiveState Perl
    Ver Más instrucciones Crea Tu archivo CSV
    < br > 1

    instalar el módulo Perl " Hoja de cálculo :: ParseExcel " en el sistema. Este es el módulo estándar de Perl para leer datos de los archivos de Excel . El proceso de instalación depende del tipo de sistema

    Si tiene ActiveState Perl (es decir , Perl para Windows. ) : .

    Abra una ventana del símbolo del sistema . Vaya a la " papelera " subcarpeta de la carpeta donde se encuentra el programa de Perl ActiveState . Si usted no sabe dónde está, utilice la función de búsqueda de Windows para encontrar " Activestate " y tome nota de la " ruta de directorio " en la carpeta de ActiveState Perl. A continuación, vaya a la ventana del símbolo del sistema y escriba " DIR " seguido por ese camino de directorio y pulse Intro. A continuación, escriba "bin DIR" y pulse Intro.

    Type " ppm " y pulse Intro. Aparecerá un texto y entonces usted será capaz de escribir comandos de nuevo. Tipo "install hoja de cálculo :: ParseExcel " y pulse Intro. Aparecerá algo más de texto y luego la instalación se completará

    Si tienes estándar Perl : .

    Abra una ventana de símbolo o terminal de comandos. En Mac OS X, el programa se llama Terminal . Escriba lo siguiente:

    perl- MCPAN -e install hoja de cálculo :: ParseExcel

    Pulse Intro. Una gran cantidad de texto aparecerá y la instalación se completará .
    2

    Haga su archivo de Excel puede acceder al script Perl. Haga una copia del archivo de Excel con el nombre de " xls_test.xls " de este tutorial y moverlo a la carpeta donde se encuentra el script Perl.
    3

    Cargue el archivo de Excel en su Perl script con este código:

    uso de hoja de cálculo :: ParseExcel ;

    my $ xlsparser = Hoja de cálculo :: ParseExcel - > new ();

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

    my $ xls = $ xls -> hoja de trabajo ( 0 ) ;

    Ahora tenemos un objeto ( "$ xls ") que contiene los datos de la primera hoja de cálculo de nuestro archivo de Excel. Si desea obtener los datos de una hoja de cálculo diferente , sustituya el cero (" 0 ") en la cuarta línea con el número de la hoja de menos uno. Por ejemplo , el número de la primera hoja de cálculo es cero ( " 0 " ) , el número de la tercera hoja de cálculo es de dos ( " 2 " ) y así sucesivamente . Si el archivo de Excel sólo tiene una hoja de cálculo , utilice el código tal y como son .
    4

    Averigüe qué columnas y filas tiene la hoja de cálculo . Utilice este código:

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

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

    Crear una variable para almacenar los datos CSV . Utilice este código:

    my $ csv ='';
    6

    Crear los datos CSV . Usa este código para hacerlo:

    para mi $ row ($ row_first .. $ row_last ) { # Paso a través de cada fila

    para mi $ col ($ col_first .. $ col_last ) { # Paso a través de cada columna

    mi celular $ = $ xls -> get_cell ( $ row , $ col ) ; # Obtener la Red celda actual

    lado menos $ célula;
    < p > = $ $ csv celular -> sin formato ( ) . # Obtener los datos brutos de la célula - sin colores fronterizos ni nada de eso

    if ( $ col == $ col_last ) {
    < p > $ csv = " \\ n" . . # Hacer una nueva línea al final de la fila

    } else {

    $ csv = " " ; " Agregar una coma entre cada elemento

    }

    }

    }
    7

    Guardar los datos en $ csv en un archivo mediante funciones de archivos de escritura del Perl . Asegúrese el nombre del archivo termina en " . csv" para mayor claridad.

    Previous :

    next :
      Artículos relacionados
    ·Cómo capitalizar una cadena en Perl 
    ·Cómo reemplazar un formato incorrecto en UTF - 8 Regex…
    ·Cómo eliminar una variable de matriz en Perl 
    ·Cómo aprender Perl 
    ·Cómo incluir una PerlScript en un documento HTML 
    ·Cómo leer desde la mitad de un array en Perl 
    ·Cómo crear una Declaración Mientras que en Perl 
    ·Cómo poner caracteres especiales en una variable en Pe…
    ·Cómo cambiar un nombre de archivo en Perl 
    ·Cómo cambiar los tipos de datos en Perl 
      Artículos destacados
    ·Cómo averiguar qué versión de Python que tienes 
    ·Cómo leer una cadena de entrada y convertirla en letra…
    ·Cómo utilizar un ListBox en una Consulta 
    ·Cómo publicar en JSON en ColdFusion 
    ·Cómo Multiplicar en Visual Basic 
    ·Cómo hacer un cuadro de texto Mostrar como moneda en V…
    ·Cómo quitar una unidad asignada en VBS 
    ·Cómo acceder a Directorio de Recursos Netbeans 
    ·OCX Herramientas 
    ·¿Qué son los partidos transaccionales 
    Copyright © Conocimientos Informáticos http://ordenador.wingwit.com