mirror of
https://github.com/moodle/moodle.git
synced 2025-07-25 00:02:18 +02:00
8e7591654a
This patch removes deprecated PEAR excel export lib in favour of newer PHPExcel, the ODS exporter implementation is finished and a test script is included. The default Excel format is now 2007, file extension is changed automatically to match excel format.
686 lines
27 KiB
PHP
Executable File
686 lines
27 KiB
PHP
Executable File
<?php
|
|
/**
|
|
* PHPExcel
|
|
*
|
|
* Copyright (c) 2006 - 2012 PHPExcel
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
|
*
|
|
* @category PHPExcel
|
|
* @package PHPExcel
|
|
* @copyright Copyright (c) 2006 - 2012 PHPExcel (http://www.codeplex.com/PHPExcel)
|
|
* @license http://www.gnu.org/licenses/old-licenses/lgpl-2.1.txt LGPL
|
|
* @version ##VERSION##, ##DATE##
|
|
*/
|
|
|
|
|
|
/**
|
|
* PHPExcel_ReferenceHelper (Singleton)
|
|
*
|
|
* @category PHPExcel
|
|
* @package PHPExcel
|
|
* @copyright Copyright (c) 2006 - 2012 PHPExcel (http://www.codeplex.com/PHPExcel)
|
|
*/
|
|
class PHPExcel_ReferenceHelper
|
|
{
|
|
/** Constants */
|
|
/** Regular Expressions */
|
|
const REFHELPER_REGEXP_CELLREF = '((\w*|\'[^!]*\')!)?(?<![:a-z\$])(\$?[a-z]{1,3}\$?\d+)(?=[^:!\d\'])';
|
|
const REFHELPER_REGEXP_CELLRANGE = '((\w*|\'[^!]*\')!)?(\$?[a-z]{1,3}\$?\d+):(\$?[a-z]{1,3}\$?\d+)';
|
|
const REFHELPER_REGEXP_ROWRANGE = '((\w*|\'[^!]*\')!)?(\$?\d+):(\$?\d+)';
|
|
const REFHELPER_REGEXP_COLRANGE = '((\w*|\'[^!]*\')!)?(\$?[a-z]{1,3}):(\$?[a-z]{1,3})';
|
|
|
|
/**
|
|
* Instance of this class
|
|
*
|
|
* @var PHPExcel_ReferenceHelper
|
|
*/
|
|
private static $_instance;
|
|
|
|
/**
|
|
* Get an instance of this class
|
|
*
|
|
* @return PHPExcel_ReferenceHelper
|
|
*/
|
|
public static function getInstance() {
|
|
if (!isset(self::$_instance) || (self::$_instance === NULL)) {
|
|
self::$_instance = new PHPExcel_ReferenceHelper();
|
|
}
|
|
|
|
return self::$_instance;
|
|
}
|
|
|
|
/**
|
|
* Create a new PHPExcel_ReferenceHelper
|
|
*/
|
|
protected function __construct() {
|
|
}
|
|
|
|
/**
|
|
* Insert a new column, updating all possible related data
|
|
*
|
|
* @param int $pBefore Insert before this one
|
|
* @param int $pNumCols Number of columns to insert
|
|
* @param int $pNumRows Number of rows to insert
|
|
* @throws Exception
|
|
*/
|
|
public function insertNewBefore($pBefore = 'A1', $pNumCols = 0, $pNumRows = 0, PHPExcel_Worksheet $pSheet = null) {
|
|
$aCellCollection = $pSheet->getCellCollection();
|
|
|
|
// Get coordinates of $pBefore
|
|
$beforeColumn = 'A';
|
|
$beforeRow = 1;
|
|
list($beforeColumn, $beforeRow) = PHPExcel_Cell::coordinateFromString( $pBefore );
|
|
|
|
|
|
// Clear cells if we are removing columns or rows
|
|
$highestColumn = $pSheet->getHighestColumn();
|
|
$highestRow = $pSheet->getHighestRow();
|
|
|
|
// 1. Clear column strips if we are removing columns
|
|
if ($pNumCols < 0 && PHPExcel_Cell::columnIndexFromString($beforeColumn) - 2 + $pNumCols > 0) {
|
|
for ($i = 1; $i <= $highestRow - 1; ++$i) {
|
|
for ($j = PHPExcel_Cell::columnIndexFromString($beforeColumn) - 1 + $pNumCols; $j <= PHPExcel_Cell::columnIndexFromString($beforeColumn) - 2; ++$j) {
|
|
$coordinate = PHPExcel_Cell::stringFromColumnIndex($j) . $i;
|
|
$pSheet->removeConditionalStyles($coordinate);
|
|
if ($pSheet->cellExists($coordinate)) {
|
|
$pSheet->getCell($coordinate)->setValueExplicit('', PHPExcel_Cell_DataType::TYPE_NULL);
|
|
$pSheet->getCell($coordinate)->setXfIndex(0);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
// 2. Clear row strips if we are removing rows
|
|
if ($pNumRows < 0 && $beforeRow - 1 + $pNumRows > 0) {
|
|
for ($i = PHPExcel_Cell::columnIndexFromString($beforeColumn) - 1; $i <= PHPExcel_Cell::columnIndexFromString($highestColumn) - 1; ++$i) {
|
|
for ($j = $beforeRow + $pNumRows; $j <= $beforeRow - 1; ++$j) {
|
|
$coordinate = PHPExcel_Cell::stringFromColumnIndex($i) . $j;
|
|
$pSheet->removeConditionalStyles($coordinate);
|
|
if ($pSheet->cellExists($coordinate)) {
|
|
$pSheet->getCell($coordinate)->setValueExplicit('', PHPExcel_Cell_DataType::TYPE_NULL);
|
|
$pSheet->getCell($coordinate)->setXfIndex(0);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
// Loop through cells, bottom-up, and change cell coordinates
|
|
while (($cellID = ($pNumCols < 0 || $pNumRows < 0) ? array_shift($aCellCollection) : array_pop($aCellCollection))) {
|
|
$cell = $pSheet->getCell($cellID);
|
|
|
|
// New coordinates
|
|
$newCoordinates = PHPExcel_Cell::stringFromColumnIndex( PHPExcel_Cell::columnIndexFromString($cell->getColumn()) - 1 + $pNumCols ) . ($cell->getRow() + $pNumRows);
|
|
|
|
// Should the cell be updated? Move value and cellXf index from one cell to another.
|
|
if ((PHPExcel_Cell::columnIndexFromString( $cell->getColumn() ) >= PHPExcel_Cell::columnIndexFromString($beforeColumn)) &&
|
|
($cell->getRow() >= $beforeRow)) {
|
|
|
|
// Update cell styles
|
|
$pSheet->getCell($newCoordinates)->setXfIndex($cell->getXfIndex());
|
|
$cell->setXfIndex(0);
|
|
|
|
// Insert this cell at its new location
|
|
if ($cell->getDataType() == PHPExcel_Cell_DataType::TYPE_FORMULA) {
|
|
// Formula should be adjusted
|
|
$pSheet->getCell($newCoordinates)
|
|
->setValue($this->updateFormulaReferences($cell->getValue(),
|
|
$pBefore, $pNumCols, $pNumRows, $pSheet->getTitle()));
|
|
} else {
|
|
// Formula should not be adjusted
|
|
$pSheet->getCell($newCoordinates)->setValue($cell->getValue());
|
|
}
|
|
|
|
// Clear the original cell
|
|
$pSheet->getCell($cell->getCoordinate())->setValue('');
|
|
|
|
} else {
|
|
/* We don't need to update styles for rows/columns before our insertion position,
|
|
but we do still need to adjust any formulae in those cells */
|
|
if ($cell->getDataType() == PHPExcel_Cell_DataType::TYPE_FORMULA) {
|
|
// Formula should be adjusted
|
|
$cell->setValue($this->updateFormulaReferences($cell->getValue(),
|
|
$pBefore, $pNumCols, $pNumRows, $pSheet->getTitle()));
|
|
}
|
|
|
|
}
|
|
}
|
|
|
|
|
|
// Duplicate styles for the newly inserted cells
|
|
$highestColumn = $pSheet->getHighestColumn();
|
|
$highestRow = $pSheet->getHighestRow();
|
|
|
|
if ($pNumCols > 0 && PHPExcel_Cell::columnIndexFromString($beforeColumn) - 2 > 0) {
|
|
for ($i = $beforeRow; $i <= $highestRow - 1; ++$i) {
|
|
|
|
// Style
|
|
$coordinate = PHPExcel_Cell::stringFromColumnIndex( PHPExcel_Cell::columnIndexFromString($beforeColumn) - 2 ) . $i;
|
|
if ($pSheet->cellExists($coordinate)) {
|
|
$xfIndex = $pSheet->getCell($coordinate)->getXfIndex();
|
|
$conditionalStyles = $pSheet->conditionalStylesExists($coordinate) ?
|
|
$pSheet->getConditionalStyles($coordinate) : false;
|
|
for ($j = PHPExcel_Cell::columnIndexFromString($beforeColumn) - 1; $j <= PHPExcel_Cell::columnIndexFromString($beforeColumn) - 2 + $pNumCols; ++$j) {
|
|
$pSheet->getCellByColumnAndRow($j, $i)->setXfIndex($xfIndex);
|
|
if ($conditionalStyles) {
|
|
$cloned = array();
|
|
foreach ($conditionalStyles as $conditionalStyle) {
|
|
$cloned[] = clone $conditionalStyle;
|
|
}
|
|
$pSheet->setConditionalStyles(PHPExcel_Cell::stringFromColumnIndex($j) . $i, $cloned);
|
|
}
|
|
}
|
|
}
|
|
|
|
}
|
|
}
|
|
|
|
if ($pNumRows > 0 && $beforeRow - 1 > 0) {
|
|
for ($i = PHPExcel_Cell::columnIndexFromString($beforeColumn) - 1; $i <= PHPExcel_Cell::columnIndexFromString($highestColumn) - 1; ++$i) {
|
|
|
|
// Style
|
|
$coordinate = PHPExcel_Cell::stringFromColumnIndex($i) . ($beforeRow - 1);
|
|
if ($pSheet->cellExists($coordinate)) {
|
|
$xfIndex = $pSheet->getCell($coordinate)->getXfIndex();
|
|
$conditionalStyles = $pSheet->conditionalStylesExists($coordinate) ?
|
|
$pSheet->getConditionalStyles($coordinate) : false;
|
|
for ($j = $beforeRow; $j <= $beforeRow - 1 + $pNumRows; ++$j) {
|
|
$pSheet->getCell(PHPExcel_Cell::stringFromColumnIndex($i) . $j)->setXfIndex($xfIndex);
|
|
if ($conditionalStyles) {
|
|
$cloned = array();
|
|
foreach ($conditionalStyles as $conditionalStyle) {
|
|
$cloned[] = clone $conditionalStyle;
|
|
}
|
|
$pSheet->setConditionalStyles(PHPExcel_Cell::stringFromColumnIndex($i) . $j, $cloned);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
// Update worksheet: column dimensions
|
|
$aColumnDimensions = array_reverse($pSheet->getColumnDimensions(), true);
|
|
if (!empty($aColumnDimensions)) {
|
|
foreach ($aColumnDimensions as $objColumnDimension) {
|
|
$newReference = $this->updateCellReference($objColumnDimension->getColumnIndex() . '1', $pBefore, $pNumCols, $pNumRows);
|
|
list($newReference) = PHPExcel_Cell::coordinateFromString($newReference);
|
|
if ($objColumnDimension->getColumnIndex() != $newReference) {
|
|
$objColumnDimension->setColumnIndex($newReference);
|
|
}
|
|
}
|
|
$pSheet->refreshColumnDimensions();
|
|
}
|
|
|
|
|
|
// Update worksheet: row dimensions
|
|
$aRowDimensions = array_reverse($pSheet->getRowDimensions(), true);
|
|
if (!empty($aRowDimensions)) {
|
|
foreach ($aRowDimensions as $objRowDimension) {
|
|
$newReference = $this->updateCellReference('A' . $objRowDimension->getRowIndex(), $pBefore, $pNumCols, $pNumRows);
|
|
list(, $newReference) = PHPExcel_Cell::coordinateFromString($newReference);
|
|
if ($objRowDimension->getRowIndex() != $newReference) {
|
|
$objRowDimension->setRowIndex($newReference);
|
|
}
|
|
}
|
|
$pSheet->refreshRowDimensions();
|
|
|
|
$copyDimension = $pSheet->getRowDimension($beforeRow - 1);
|
|
for ($i = $beforeRow; $i <= $beforeRow - 1 + $pNumRows; ++$i) {
|
|
$newDimension = $pSheet->getRowDimension($i);
|
|
$newDimension->setRowHeight($copyDimension->getRowHeight());
|
|
$newDimension->setVisible($copyDimension->getVisible());
|
|
$newDimension->setOutlineLevel($copyDimension->getOutlineLevel());
|
|
$newDimension->setCollapsed($copyDimension->getCollapsed());
|
|
}
|
|
}
|
|
|
|
|
|
// Update worksheet: breaks
|
|
$aBreaks = array_reverse($pSheet->getBreaks(), true);
|
|
foreach ($aBreaks as $key => $value) {
|
|
$newReference = $this->updateCellReference($key, $pBefore, $pNumCols, $pNumRows);
|
|
if ($key != $newReference) {
|
|
$pSheet->setBreak( $newReference, $value );
|
|
$pSheet->setBreak( $key, PHPExcel_Worksheet::BREAK_NONE );
|
|
}
|
|
}
|
|
|
|
// Update worksheet: comments
|
|
$aComments = $pSheet->getComments();
|
|
$aNewComments = array(); // the new array of all comments
|
|
foreach ($aComments as $key => &$value) {
|
|
$newReference = $this->updateCellReference($key, $pBefore, $pNumCols, $pNumRows);
|
|
$aNewComments[$newReference] = $value;
|
|
}
|
|
$pSheet->setComments($aNewComments); // replace the comments array
|
|
|
|
// Update worksheet: hyperlinks
|
|
$aHyperlinkCollection = array_reverse($pSheet->getHyperlinkCollection(), true);
|
|
foreach ($aHyperlinkCollection as $key => $value) {
|
|
$newReference = $this->updateCellReference($key, $pBefore, $pNumCols, $pNumRows);
|
|
if ($key != $newReference) {
|
|
$pSheet->setHyperlink( $newReference, $value );
|
|
$pSheet->setHyperlink( $key, null );
|
|
}
|
|
}
|
|
|
|
|
|
// Update worksheet: data validations
|
|
$aDataValidationCollection = array_reverse($pSheet->getDataValidationCollection(), true);
|
|
foreach ($aDataValidationCollection as $key => $value) {
|
|
$newReference = $this->updateCellReference($key, $pBefore, $pNumCols, $pNumRows);
|
|
if ($key != $newReference) {
|
|
$pSheet->setDataValidation( $newReference, $value );
|
|
$pSheet->setDataValidation( $key, null );
|
|
}
|
|
}
|
|
|
|
|
|
// Update worksheet: merge cells
|
|
$aMergeCells = $pSheet->getMergeCells();
|
|
$aNewMergeCells = array(); // the new array of all merge cells
|
|
foreach ($aMergeCells as $key => &$value) {
|
|
$newReference = $this->updateCellReference($key, $pBefore, $pNumCols, $pNumRows);
|
|
$aNewMergeCells[$newReference] = $newReference;
|
|
}
|
|
$pSheet->setMergeCells($aNewMergeCells); // replace the merge cells array
|
|
|
|
|
|
// Update worksheet: protected cells
|
|
$aProtectedCells = array_reverse($pSheet->getProtectedCells(), true);
|
|
foreach ($aProtectedCells as $key => $value) {
|
|
$newReference = $this->updateCellReference($key, $pBefore, $pNumCols, $pNumRows);
|
|
if ($key != $newReference) {
|
|
$pSheet->protectCells( $newReference, $value, true );
|
|
$pSheet->unprotectCells( $key );
|
|
}
|
|
}
|
|
|
|
|
|
// Update worksheet: autofilter
|
|
$autoFilter = $pSheet->getAutoFilter();
|
|
$autoFilterRange = $autoFilter->getRange();
|
|
if (!empty($autoFilterRange)) {
|
|
if ($pNumCols != 0) {
|
|
$autoFilterColumns = array_keys($autoFilter->getColumns());
|
|
if (count($autoFilterColumns) > 0) {
|
|
list($column,$row) = sscanf($pBefore,'%[A-Z]%d');
|
|
$columnIndex = PHPExcel_Cell::columnIndexFromString($column);
|
|
list($rangeStart,$rangeEnd) = PHPExcel_Cell::rangeBoundaries($autoFilterRange);
|
|
if ($columnIndex <= $rangeEnd[0]) {
|
|
if ($pNumCols < 0) {
|
|
// If we're actually deleting any columns that fall within the autofilter range,
|
|
// then we delete any rules for those columns
|
|
$deleteColumn = $columnIndex + $pNumCols - 1;
|
|
$deleteCount = abs($pNumCols);
|
|
for ($i = 1; $i <= $deleteCount; ++$i) {
|
|
if (in_array(PHPExcel_Cell::stringFromColumnIndex($deleteColumn),$autoFilterColumns)) {
|
|
$autoFilter->clearColumn(PHPExcel_Cell::stringFromColumnIndex($deleteColumn));
|
|
}
|
|
++$deleteColumn;
|
|
}
|
|
}
|
|
$startCol = ($columnIndex > $rangeStart[0]) ? $columnIndex : $rangeStart[0];
|
|
|
|
// Shuffle columns in autofilter range
|
|
if ($pNumCols > 0) {
|
|
// For insert, we shuffle from end to beginning to avoid overwriting
|
|
$startColID = PHPExcel_Cell::stringFromColumnIndex($startCol-1);
|
|
$toColID = PHPExcel_Cell::stringFromColumnIndex($startCol+$pNumCols-1);
|
|
$endColID = PHPExcel_Cell::stringFromColumnIndex($rangeEnd[0]);
|
|
|
|
$startColRef = $startCol;
|
|
$endColRef = $rangeEnd[0];
|
|
$toColRef = $rangeEnd[0]+$pNumCols;
|
|
|
|
do {
|
|
$autoFilter->shiftColumn(PHPExcel_Cell::stringFromColumnIndex($endColRef-1),PHPExcel_Cell::stringFromColumnIndex($toColRef-1));
|
|
--$endColRef;
|
|
--$toColRef;
|
|
} while ($startColRef <= $endColRef);
|
|
} else {
|
|
// For delete, we shuffle from beginning to end to avoid overwriting
|
|
$startColID = PHPExcel_Cell::stringFromColumnIndex($startCol-1);
|
|
$toColID = PHPExcel_Cell::stringFromColumnIndex($startCol+$pNumCols-1);
|
|
$endColID = PHPExcel_Cell::stringFromColumnIndex($rangeEnd[0]);
|
|
do {
|
|
$autoFilter->shiftColumn($startColID,$toColID);
|
|
++$startColID;
|
|
++$toColID;
|
|
} while ($startColID != $endColID);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
$pSheet->setAutoFilter( $this->updateCellReference($autoFilterRange, $pBefore, $pNumCols, $pNumRows) );
|
|
}
|
|
|
|
|
|
// Update worksheet: freeze pane
|
|
if ($pSheet->getFreezePane() != '') {
|
|
$pSheet->freezePane( $this->updateCellReference($pSheet->getFreezePane(), $pBefore, $pNumCols, $pNumRows) );
|
|
}
|
|
|
|
|
|
// Page setup
|
|
if ($pSheet->getPageSetup()->isPrintAreaSet()) {
|
|
$pSheet->getPageSetup()->setPrintArea( $this->updateCellReference($pSheet->getPageSetup()->getPrintArea(), $pBefore, $pNumCols, $pNumRows) );
|
|
}
|
|
|
|
|
|
// Update worksheet: drawings
|
|
$aDrawings = $pSheet->getDrawingCollection();
|
|
foreach ($aDrawings as $objDrawing) {
|
|
$newReference = $this->updateCellReference($objDrawing->getCoordinates(), $pBefore, $pNumCols, $pNumRows);
|
|
if ($objDrawing->getCoordinates() != $newReference) {
|
|
$objDrawing->setCoordinates($newReference);
|
|
}
|
|
}
|
|
|
|
|
|
// Update workbook: named ranges
|
|
if (count($pSheet->getParent()->getNamedRanges()) > 0) {
|
|
foreach ($pSheet->getParent()->getNamedRanges() as $namedRange) {
|
|
if ($namedRange->getWorksheet()->getHashCode() == $pSheet->getHashCode()) {
|
|
$namedRange->setRange(
|
|
$this->updateCellReference($namedRange->getRange(), $pBefore, $pNumCols, $pNumRows)
|
|
);
|
|
}
|
|
}
|
|
}
|
|
|
|
// Garbage collect
|
|
$pSheet->garbageCollect();
|
|
}
|
|
|
|
/**
|
|
* Update references within formulas
|
|
*
|
|
* @param string $pFormula Formula to update
|
|
* @param int $pBefore Insert before this one
|
|
* @param int $pNumCols Number of columns to insert
|
|
* @param int $pNumRows Number of rows to insert
|
|
* @return string Updated formula
|
|
* @throws Exception
|
|
*/
|
|
public function updateFormulaReferences($pFormula = '', $pBefore = 'A1', $pNumCols = 0, $pNumRows = 0, $sheetName = '') {
|
|
// Update cell references in the formula
|
|
$formulaBlocks = explode('"',$pFormula);
|
|
$i = false;
|
|
foreach($formulaBlocks as &$formulaBlock) {
|
|
// Ignore blocks that were enclosed in quotes (alternating entries in the $formulaBlocks array after the explode)
|
|
if ($i = !$i) {
|
|
$adjustCount = 0;
|
|
$newCellTokens = $cellTokens = array();
|
|
// Search for row ranges (e.g. 'Sheet1'!3:5 or 3:5) with or without $ absolutes (e.g. $3:5)
|
|
$matchCount = preg_match_all('/'.self::REFHELPER_REGEXP_ROWRANGE.'/i', ' '.$formulaBlock.' ', $matches, PREG_SET_ORDER);
|
|
if ($matchCount > 0) {
|
|
foreach($matches as $match) {
|
|
$fromString = ($match[2] > '') ? $match[2].'!' : '';
|
|
$fromString .= $match[3].':'.$match[4];
|
|
$modified3 = substr($this->updateCellReference('$A'.$match[3],$pBefore,$pNumCols,$pNumRows),2);
|
|
$modified4 = substr($this->updateCellReference('$A'.$match[4],$pBefore,$pNumCols,$pNumRows),2);
|
|
|
|
if ($match[3].':'.$match[4] !== $modified3.':'.$modified4) {
|
|
if (($match[2] == '') || (trim($match[2],"'") == $sheetName)) {
|
|
$toString = ($match[2] > '') ? $match[2].'!' : '';
|
|
$toString .= $modified3.':'.$modified4;
|
|
// Max worksheet size is 1,048,576 rows by 16,384 columns in Excel 2007, so our adjustments need to be at least one digit more
|
|
$column = 100000;
|
|
$row = 10000000+trim($match[3],'$');
|
|
$cellIndex = $column.$row;
|
|
|
|
$newCellTokens[$cellIndex] = preg_quote($toString);
|
|
$cellTokens[$cellIndex] = '/(?<!\d)'.preg_quote($fromString).'(?!\d)/i';
|
|
++$adjustCount;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
// Search for column ranges (e.g. 'Sheet1'!C:E or C:E) with or without $ absolutes (e.g. $C:E)
|
|
$matchCount = preg_match_all('/'.self::REFHELPER_REGEXP_COLRANGE.'/i', ' '.$formulaBlock.' ', $matches, PREG_SET_ORDER);
|
|
if ($matchCount > 0) {
|
|
foreach($matches as $match) {
|
|
$fromString = ($match[2] > '') ? $match[2].'!' : '';
|
|
$fromString .= $match[3].':'.$match[4];
|
|
$modified3 = substr($this->updateCellReference($match[3].'$1',$pBefore,$pNumCols,$pNumRows),0,-2);
|
|
$modified4 = substr($this->updateCellReference($match[4].'$1',$pBefore,$pNumCols,$pNumRows),0,-2);
|
|
|
|
if ($match[3].':'.$match[4] !== $modified3.':'.$modified4) {
|
|
if (($match[2] == '') || (trim($match[2],"'") == $sheetName)) {
|
|
$toString = ($match[2] > '') ? $match[2].'!' : '';
|
|
$toString .= $modified3.':'.$modified4;
|
|
// Max worksheet size is 1,048,576 rows by 16,384 columns in Excel 2007, so our adjustments need to be at least one digit more
|
|
$column = PHPExcel_Cell::columnIndexFromString(trim($match[3],'$')) + 100000;
|
|
$row = 10000000;
|
|
$cellIndex = $column.$row;
|
|
|
|
$newCellTokens[$cellIndex] = preg_quote($toString);
|
|
$cellTokens[$cellIndex] = '/(?<![A-Z])'.preg_quote($fromString).'(?![A-Z])/i';
|
|
++$adjustCount;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
// Search for cell ranges (e.g. 'Sheet1'!A3:C5 or A3:C5) with or without $ absolutes (e.g. $A1:C$5)
|
|
$matchCount = preg_match_all('/'.self::REFHELPER_REGEXP_CELLRANGE.'/i', ' '.$formulaBlock.' ', $matches, PREG_SET_ORDER);
|
|
if ($matchCount > 0) {
|
|
foreach($matches as $match) {
|
|
$fromString = ($match[2] > '') ? $match[2].'!' : '';
|
|
$fromString .= $match[3].':'.$match[4];
|
|
$modified3 = $this->updateCellReference($match[3],$pBefore,$pNumCols,$pNumRows);
|
|
$modified4 = $this->updateCellReference($match[4],$pBefore,$pNumCols,$pNumRows);
|
|
|
|
if ($match[3].$match[4] !== $modified3.$modified4) {
|
|
if (($match[2] == '') || (trim($match[2],"'") == $sheetName)) {
|
|
$toString = ($match[2] > '') ? $match[2].'!' : '';
|
|
$toString .= $modified3.':'.$modified4;
|
|
list($column,$row) = PHPExcel_Cell::coordinateFromString($match[3]);
|
|
// Max worksheet size is 1,048,576 rows by 16,384 columns in Excel 2007, so our adjustments need to be at least one digit more
|
|
$column = PHPExcel_Cell::columnIndexFromString(trim($column,'$')) + 100000;
|
|
$row = trim($row,'$') + 10000000;
|
|
$cellIndex = $column.$row;
|
|
|
|
$newCellTokens[$cellIndex] = preg_quote($toString);
|
|
$cellTokens[$cellIndex] = '/(?<![A-Z])'.preg_quote($fromString).'(?!\d)/i';
|
|
++$adjustCount;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
// Search for cell references (e.g. 'Sheet1'!A3 or C5) with or without $ absolutes (e.g. $A1 or C$5)
|
|
$matchCount = preg_match_all('/'.self::REFHELPER_REGEXP_CELLREF.'/i', ' '.$formulaBlock.' ', $matches, PREG_SET_ORDER);
|
|
if ($matchCount > 0) {
|
|
foreach($matches as $match) {
|
|
$fromString = ($match[2] > '') ? $match[2].'!' : '';
|
|
$fromString .= $match[3];
|
|
$modified3 = $this->updateCellReference($match[3],$pBefore,$pNumCols,$pNumRows);
|
|
|
|
if ($match[3] !== $modified3) {
|
|
if (($match[2] == '') || (trim($match[2],"'") == $sheetName)) {
|
|
$toString = ($match[2] > '') ? $match[2].'!' : '';
|
|
$toString .= $modified3;
|
|
list($column,$row) = PHPExcel_Cell::coordinateFromString($match[3]);
|
|
// Max worksheet size is 1,048,576 rows by 16,384 columns in Excel 2007, so our adjustments need to be at least one digit more
|
|
$column = PHPExcel_Cell::columnIndexFromString(trim($column,'$')) + 100000;
|
|
$row = trim($row,'$') + 10000000;
|
|
$cellIndex = $column.$row;
|
|
|
|
$newCellTokens[$cellIndex] = preg_quote($toString);
|
|
$cellTokens[$cellIndex] = '/(?<![A-Z])'.preg_quote($fromString).'(?!\d)/i';
|
|
++$adjustCount;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if ($adjustCount > 0) {
|
|
krsort($cellTokens);
|
|
krsort($newCellTokens);
|
|
// Update cell references in the formula
|
|
$formulaBlock = str_replace('\\','',preg_replace($cellTokens,$newCellTokens,$formulaBlock));
|
|
}
|
|
}
|
|
}
|
|
unset($formulaBlock);
|
|
|
|
// Then rebuild the formula string
|
|
return implode('"',$formulaBlocks);
|
|
}
|
|
|
|
/**
|
|
* Update cell reference
|
|
*
|
|
* @param string $pCellRange Cell range
|
|
* @param int $pBefore Insert before this one
|
|
* @param int $pNumCols Number of columns to increment
|
|
* @param int $pNumRows Number of rows to increment
|
|
* @return string Updated cell range
|
|
* @throws Exception
|
|
*/
|
|
public function updateCellReference($pCellRange = 'A1', $pBefore = 'A1', $pNumCols = 0, $pNumRows = 0) {
|
|
// Is it in another worksheet? Will not have to update anything.
|
|
if (strpos($pCellRange, "!") !== false) {
|
|
return $pCellRange;
|
|
// Is it a range or a single cell?
|
|
} elseif (strpos($pCellRange, ':') === false && strpos($pCellRange, ',') === false) {
|
|
// Single cell
|
|
return $this->_updateSingleCellReference($pCellRange, $pBefore, $pNumCols, $pNumRows);
|
|
} elseif (strpos($pCellRange, ':') !== false || strpos($pCellRange, ',') !== false) {
|
|
// Range
|
|
return $this->_updateCellRange($pCellRange, $pBefore, $pNumCols, $pNumRows);
|
|
} else {
|
|
// Return original
|
|
return $pCellRange;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Update named formulas (i.e. containing worksheet references / named ranges)
|
|
*
|
|
* @param PHPExcel $pPhpExcel Object to update
|
|
* @param string $oldName Old name (name to replace)
|
|
* @param string $newName New name
|
|
*/
|
|
public function updateNamedFormulas(PHPExcel $pPhpExcel, $oldName = '', $newName = '') {
|
|
if ($oldName == '') {
|
|
return;
|
|
}
|
|
|
|
foreach ($pPhpExcel->getWorksheetIterator() as $sheet) {
|
|
foreach ($sheet->getCellCollection(false) as $cellID) {
|
|
$cell = $sheet->getCell($cellID);
|
|
if (($cell !== NULL) && ($cell->getDataType() == PHPExcel_Cell_DataType::TYPE_FORMULA)) {
|
|
$formula = $cell->getValue();
|
|
if (strpos($formula, $oldName) !== false) {
|
|
$formula = str_replace("'" . $oldName . "'!", "'" . $newName . "'!", $formula);
|
|
$formula = str_replace($oldName . "!", $newName . "!", $formula);
|
|
$cell->setValueExplicit($formula, PHPExcel_Cell_DataType::TYPE_FORMULA);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Update cell range
|
|
*
|
|
* @param string $pCellRange Cell range (e.g. 'B2:D4', 'B:C' or '2:3')
|
|
* @param int $pBefore Insert before this one
|
|
* @param int $pNumCols Number of columns to increment
|
|
* @param int $pNumRows Number of rows to increment
|
|
* @return string Updated cell range
|
|
* @throws Exception
|
|
*/
|
|
private function _updateCellRange($pCellRange = 'A1:A1', $pBefore = 'A1', $pNumCols = 0, $pNumRows = 0) {
|
|
if (strpos($pCellRange,':') !== false || strpos($pCellRange, ',') !== false) {
|
|
// Update range
|
|
$range = PHPExcel_Cell::splitRange($pCellRange);
|
|
$ic = count($range);
|
|
for ($i = 0; $i < $ic; ++$i) {
|
|
$jc = count($range[$i]);
|
|
for ($j = 0; $j < $jc; ++$j) {
|
|
if (ctype_alpha($range[$i][$j])) {
|
|
$r = PHPExcel_Cell::coordinateFromString($this->_updateSingleCellReference($range[$i][$j].'1', $pBefore, $pNumCols, $pNumRows));
|
|
$range[$i][$j] = $r[0];
|
|
} elseif(ctype_digit($range[$i][$j])) {
|
|
$r = PHPExcel_Cell::coordinateFromString($this->_updateSingleCellReference('A'.$range[$i][$j], $pBefore, $pNumCols, $pNumRows));
|
|
$range[$i][$j] = $r[1];
|
|
} else {
|
|
$range[$i][$j] = $this->_updateSingleCellReference($range[$i][$j], $pBefore, $pNumCols, $pNumRows);
|
|
}
|
|
}
|
|
}
|
|
|
|
// Recreate range string
|
|
return PHPExcel_Cell::buildRange($range);
|
|
} else {
|
|
throw new Exception("Only cell ranges may be passed to this method.");
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Update single cell reference
|
|
*
|
|
* @param string $pCellReference Single cell reference
|
|
* @param int $pBefore Insert before this one
|
|
* @param int $pNumCols Number of columns to increment
|
|
* @param int $pNumRows Number of rows to increment
|
|
* @return string Updated cell reference
|
|
* @throws Exception
|
|
*/
|
|
private function _updateSingleCellReference($pCellReference = 'A1', $pBefore = 'A1', $pNumCols = 0, $pNumRows = 0) {
|
|
if (strpos($pCellReference, ':') === false && strpos($pCellReference, ',') === false) {
|
|
// Get coordinates of $pBefore
|
|
list($beforeColumn, $beforeRow) = PHPExcel_Cell::coordinateFromString( $pBefore );
|
|
|
|
// Get coordinates of $pCellReference
|
|
list($newColumn, $newRow) = PHPExcel_Cell::coordinateFromString( $pCellReference );
|
|
|
|
// Verify which parts should be updated
|
|
$updateColumn = (($newColumn{0} != '$') && ($beforeColumn{0} != '$') &&
|
|
PHPExcel_Cell::columnIndexFromString($newColumn) >= PHPExcel_Cell::columnIndexFromString($beforeColumn));
|
|
|
|
$updateRow = (($newRow{0} != '$') && ($beforeRow{0} != '$') &&
|
|
$newRow >= $beforeRow);
|
|
|
|
// Create new column reference
|
|
if ($updateColumn) {
|
|
$newColumn = PHPExcel_Cell::stringFromColumnIndex( PHPExcel_Cell::columnIndexFromString($newColumn) - 1 + $pNumCols );
|
|
}
|
|
|
|
// Create new row reference
|
|
if ($updateRow) {
|
|
$newRow = $newRow + $pNumRows;
|
|
}
|
|
|
|
// Return new reference
|
|
return $newColumn . $newRow;
|
|
} else {
|
|
throw new Exception("Only single cell references may be passed to this method.");
|
|
}
|
|
}
|
|
|
|
/**
|
|
* __clone implementation. Cloning should not be allowed in a Singleton!
|
|
*
|
|
* @throws Exception
|
|
*/
|
|
public final function __clone() {
|
|
throw new Exception("Cloning a Singleton is not allowed!");
|
|
}
|
|
}
|