>

美洲杯在线投注_2019美洲杯外围投注[投注官网]

热门关键词: 美洲杯在线投注,2019美洲杯外围投注[投注官网]

美洲杯在线投注用Perl操作Excel文档的实例代码

- 编辑:美洲杯在线投注 -

美洲杯在线投注用Perl操作Excel文档的实例代码

在Linux或者Unix上操作(生成)Excel,CPAN上提供了Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel这两个模块。
下面就来看看 Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel的使用方法。

PHPExcel 是用来操作Office Excel 文档的一个PHP类库,它基于微软的OpenXML标准和PHP语言。可以使用它来读取、写入不同格式的电子表格,如 Excel (BIFF) .xls, Excel 2007 (OfficeOpenXML) .xlsx, CSV, Libre/OpenOffice Calc .ods, Gnumeric, PDF, HTML等等。

首先,要在服务器上安装相应的模块。
安装 Excel 模块的 PPM 命令

一、Drupal 通过Library 调用 PHPExcel 将PHPExcel 下载后,上传到Drupal目录:sites/all/libraries/PHPExcel
如果你的项目中安装了libraries模块,可以通过libraries_load($name);来调用。
如果没有安装libraries模块,可以简单的使用下列代码来调用:

复制代码 代码如下:

复制代码 代码如下:

ppm> install OLE::Storage_Lite
ppm> install Spreadsheet::ParseExcel
ppm> install Spreadsheet::WriteExcel

require("sites/all/libraries/PHPExcel/PHPExcel/IOFactory.php");

来看两个例子吧。
例1:读取excel文件

注意为了确保Excel全部导入,程序可以会话很长的时间来进行。所以在代码开头部分加入:

复制代码 代码如下:

复制代码 代码如下:

#!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel;

set_time_limit(0);

my $parser = Spreadsheet::ParseExcel->new();
my $workbook = $parser->Parse('Book1.xls');

来确保运行时间不受限制。
二、Drupal 读取Excel并导入到数据库 Drupal 实现上传Excel文件后,读取Excel 内容,写入到数据库,打印导入结果消息。
归纳起来有这样几点:
1.Drupal 读取Excel 多行多列内容,列数从1到n,行数也是1到n。
2.Drupal 根据数据库结构 n 个字段分别用于存放Excel 1到n列,如果Excel 的列数很多,可以把n列值存放在1个字段中。
3.这里我解决的是Excel n列值存放到MySQL n个字段中(n不是很大)

for my $worksheet ( $workbook->worksheets() ) {

这就是在Drupal最后提交上传文件后的函数:

my ( $row_min, $row_max ) = $worksheet->row_range();
my ( $col_min, $col_max ) = $worksheet->col_range();

复制代码 代码如下:

for my $row ( $row_min .. $row_max ) {
for my $col ( $col_min .. $col_max ) {

<?php
function excel_upload_form_submit($form, &$form_state) {
  set_time_limit(0);
  $timestamp = time();
  // 确保Excel文件上传了
  if ($file = file_美洲杯在线投注,save_upload('file')) {
    $row = 0; //解析行数
    $paseRows = 0; //跳过行数 没有值的行
    $insertRows = 0; //插入行数
    $table = array(
      'dbfield1′,
      'dbfield2′,
      'dbfield3,
      'dbfield4′,
      'dbfield5′,
      …
      'dbfieldn',
    );
    require("sites/all/libraries/PHPExcel/PHPExcel/IOFactory.php");
    if(($handle = fopen ( $file->filepath, "r" )) !== FALSE) {
      $PHPExcel = new PHPExcel ();
      $PHPReader = new PHPExcel_Reader_Excel2007 ();
      if (! $PHPReader->canRead ( $file->filepath )) {
        $PHPReader = new PHPExcel_Reader_Excel5 ();
        if (! $PHPReader->canRead ( $file->filepath )) {
          echo 'no Excel';
          return;
        }
      }
      $PHPExcel = $PHPReader->load ( $file->filepath );
      $currentSheet = $PHPExcel->getSheet ( 0 );
      /**取得一共有多少列*/
      $allColumn = $currentSheet->getHighestColumn();
      //取得共有多少列,若不使用此静态方法,获得的$col是文件列的最大的英文大写字母
      $col = PHPExcel_Cell::columnIndexFromString($currentSheet->getHighestColumn());
      /**取得一共有多少行*/
      $allRow = $currentSheet->getHighestRow();
      //循环读取每个单元格的内容。注意行从1开始,列从A开始
      for($rowIndex = 2; $rowIndex <= $allRow; $rowIndex ) {
        $token_db = $row_db = $field = array();
        $i = 0;
        $query = ”;
        for($colIndex = 0; $colIndex <= $col; $colIndex ) {
          //$addr = $colIndex.$rowIndex;
          //$cell = $currentSheet->getCell($addr)->getValue();
          $cell = $currentSheet->getCellByColumnAndRow($colIndex, $rowIndex)->getValue();
          $cell = trim($cell);
          if($cell instanceof PHPExcel_RichText) {
            //富文本转换字符串
            $cell = $cell->__toString();
          }
          if ($colIndex == 'A' && !intval($cell)) {
            $paseRows ;
            break;
          }
          $field[] = $table[$i];
          $token_db[] = "'%s'";
          $row_db[] = $cell;
          $query .= $table[$i]." = '%s', ";
          $i ;
        }
        $row ;
        if ($row_db) {
          db_query('INSERT INTO {db_import} ('. implode(', ', $field) .', created) VALUES('. implode(', ', $token_db) .', %d)', array_merge($row_db, array($timestamp)));
          $insertRows ;
        }
      }
      fclose ( $handle );
    }
    drupal_set_message(t('文件 @file 导入成功.', array('@file' => $file->filename)));
    drupal_set_message("解析".$row."条数据完毕,新增共".$insertRows."条数据,没有试题类型ID的".$paseRows."条数据。");
  }
  else {
    drupal_set_message(t('File to import not found.'), 'error');
    $form_state['redirect'] = 'admin/content/db/import';
    return;
  }
}
?>

本文由计算机教程发布,转载请注明来源:美洲杯在线投注用Perl操作Excel文档的实例代码