Perl o Activestate
Perl CPAN si tiene Perl
PPM si tiene ActiveState Perl
Ver Más instrucciones Crea Tu archivo CSV
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.