PHP reads Execel content

Last Update:2017-01-13 Source: Internet

Author: User

Tags abs chr file size ord pack prev sprintf strlen

Developer on Alibaba Coud: Build your first app with APIs, SDKs, and tutorials on the Alibaba Cloud. Read more ＞

?

Define (' Abc_critical ', 0);

Define (' Abc_error ', 1);

Define (' Abc_alert ', 2);

Define (' Abc_warning ', 3);

Define (' Abc_notice ', 4);

Define (' Abc_info ', 5);

Define (' Abc_debug ', 6);

Define (' Abc_trace ', 7);

Define (' Abc_var_dump ', 8);

Define (' Abc_no_log ',-1);

$php _version = Split ("\.", Phpversion ());

if ($php _version[0] = = 4 && $php _version[1] <= 1) {

if (!function_exists (' Var_export ')) {

function Var_export ($exp, $ret) {

Ob_start ();

Var_dump ($EXP);

$result = Ob_get_contents ();

Ob_end_clean ();

return $result;

}}}function PRINT_BT ()

{

print "<code>\n";

$cs = Debug_backtrace ();

for ($i = 1; $i < count ($cs); $i + +)

{

$item = $cs [$i];

for ($j = 0; $j < count ($item [' args ']); $j + +)

if (is_string ($item [' args '] [$j])

$item [' args '] [$j] = "". $item [' args '] [$j]. "\"";

$args = Join (",", $item [' args ']);

if (Isset ($item [' class '])

$str = sprintf ('%s (%d):%s%s%s (%s) ')

$item [' File '],

$item [' line '],

$item [' class '],

$item [' type '],

$item [' function '],

$args);

Else

$str = sprintf ("%s" (%d):%s (%s))

$item [' File '],

$item [' line '],

$item [' function '],

$args);

Echo $str. "<br>\n";

}print "</code>\n";

}function _die ($STR)

{

Print "Script died with reason: $str <br>\n";

PRINT_BT ();

Exit ();

}class Debugout

{

var $priorities = array (abc_critical => ' CRITICAL '),

Abc_error => ' ERROR ',

Abc_alert => ' ALERT ',

Abc_warning => ' WARNING ',

Abc_notice => ' NOTICE ',

Abc_info => ' INFO ',

Abc_debug => ' DEBUG ',

Abc_trace => ' TRACE ',

Abc_var_dump => ' DUMP '

);

var $_ready = false;

var $_currentpriority = Abc_debug;

var $_consumers = array ();

var $_filename;

var $_fp;

var $_logger_name;

function Debugout ($name, $logger _name, $level) {

$this->_filename = $name;

$this->_currentpriority = $level;

$this->_logger_name = $logger _name;

if ($level > Abc_no_log) {

$this->_openfile ();

}

Register_shutdown_function (Array ($this, "close"));

} function log ($message, $priority = abc_info) {

if ($priority > $this->_currentpriority) {

return false;

}

return $this->_writeline ($message, $priority, strftime ('%b%d%h:%m:%s '));

function dump ($variable, $name) {

$priority = Abc_var_dump;

if ($priority > $this->_currentpriority) {

return false;

} $time = Strftime ('%b%d%h:%m:%s ');

$message = Var_export ($variable, true);

Return fwrite ($this->_fp,

sprintf ('%s%s [%s] variable%s =%s \ r \ n ',

$time,

$this->_logger_name,

$this->priorities[$priority],

$name,

$message)

);

} function info ($message) {

return $this->log ($message, abc_info);

} function Debug ($message) {

return $this->log ($message, abc_debug);

} function Notice ($message) {

return $this->log ($message, Abc_notice);

} function Warning ($message) {

return $this->log ($message, abc_warning);

function Trace ($message) {

return $this->log ($message, abc_trace);

Function error ($message) {

return $this->log ($message, abc_error);

}

function _writeline ($message, $priority, $time) {

if (fwrite ($this->_fp, sprintf ("%s [%s]%s\r\n", $time, $this->_logger_name, $this->priorities[$priority], $message))) {

Return Fflush ($this->_fp);

} else {

return false;

}} function _openfile () {

if ($this->_fp = @fopen ($this->_filename, ' a ') = = False) {

return false;

return true;

function Close () {

if ($this->_currentpriority!= abc_no_log) {

$this->info ("Logger stoped");

Return fclose ($this->_fp);

} }

function Factory ($name, $logger _name, $level) {

$instance = new Debugout ($name, $logger _name, $level);

return $instance;

function &getwritersingleton ($name, $logger _name, $level = abc_debug) {

Static $instances;

if (!isset ($instances)) {

$instances = Array ();

} $signature = Serialize (Array ($name, $level));

if (!isset ($instances [$signature])) {

$instances [$signature] = Debugout::factory ($name, $logger _name, $level);

}

return $instances [$signature];

function Attach (& $logObserver) {

if (!is_object ($logObserver)) {

return false;

} $logObserver->_listenerid = Uniqid (rand ());

$this->_listeners[$logObserver->_listenerid] = & $logObserver;

}}define (' Abc_bad_date ',-1);

Class exceldateutil{

function Xls2tstamp ($date) {

$date = $date >25568 $date: 25569;

$ofs = (70 * 365 + 17+2) * 86400;

Return ($date * 86400)-$ofs;

}function Getdatearray ($xls _date) {

$ret = Array ();

if ($xls _date = = 60) {

$ret [' Day '] = 29;

$ret [' month '] = 2;

$ret [' year '] = 1900;

return $ret;

else if ($xls _date < 60) {

$xls _date++;

}

$l = $xls _date + 68569 + 2415019;

$n = (int) ((4 * $l)/146097);

$l = $l-(int) ((146097 * $n + 3)/4);

$i = (int) ((4000 * ($l + 1))/1461001);

$l = $l-(int) ((1461 * $i)/4) + 31;

$j = (int) (($l)/2447);

$ret [' Day '] = $l-(int) ((2447 * $j)/80);

$l = (int) ($J/11);

$ret [' month '] = $j + 2-(A * $l);

$ret [' year '] = + * ($n -49) + $i + $l;

return $ret;

}function Isinternaldateformat ($format) {

$retval =false;

Switch (format) {

Case 0X0E:

Case 0X0F:

Case 0X10:

Case 0X11:

Case 0x12:

Case 0X13:

Case 0X14:

Case 0X15:

Case 0x16:

Case 0X2D:

Case 0X2E:

Case 0X2F:

Case 0XA4:

Case 0XA5:

Case 0XA6:

Case 0XA7:

Case 0XA8:

Case 0XA9:

Case 0XAA:

Case 0XAB:

Case 0XAC:

Case 0XAD:

$retval = true; Break

Default: $retval = false; Break

return $retval;

}}define (' Excel_font_rid ', 0x31);

Define (' Xf_script_none ', 0);

Define (' Xf_script_superscript ', 1);

Define (' Xf_script_subscript ', 2);

Define (' Xf_underline_none ', 0x0);

Define (' Xf_underline_single ', 0x1);

Define (' xf_underline_double ', 0x2);

Define (' xf_underline_single_accounting ', 0x3);

Define (' xf_underline_double_accounting ', 0x4);

Define (' Xf_style_italic ', 0x2);

Define (' Xf_style_strikeout ', 0x8);

Define (' Xf_boldness_regular ', 0x190);

Define (' Xf_boldness_bold ', 0X2BC);

Class Excelfont {

function Basicfontrecord () {

Return Array (' Size ' => 10,

' Script ' => Xf_script_none,

' Undeline ' => xf_underline_none,

' Italic ' => false,

' Strikeout ' => false,

' Bold ' => false,

' Boldness ' => xf_boldness_regular,

' Palete ' => 0,

' Name ' => ' Arial ');

Function Getfontrecord (& $WB, $ptr) {

$retval = Array (' size ' => 0,

' Script ' => Xf_script_none,

' Undeline ' => xf_underline_none,

' Italic ' => false,

' Strikeout ' => false,

' Bold ' => false,

' Boldness ' => xf_boldness_regular,

' Palete ' => 0,

' Name ' => ');

$retval [' size '] = (ord ($WB [$ptr]) + 256*ord ($WB [$ptr +1]))/20;

$style =ord ($WB [$ptr +2]);

if ($style & Xf_style_italic)!= 0) {

$retval [' italic '] = true;

} if (($style & Xf_style_strikeout)!= 0) {

$retval [' strikeout '] = true;

$retval [' palete '] = Ord ($WB [$ptr +4]) +256*ord ($WB [$ptr +5]);

$retval [' boldness '] = Ord ($WB [$ptr +6]) +256*ord ($WB [$ptr +7]);

$retval [' bold '] = $retval [' boldness '] = = Xf_boldness_regular? False:true;

$retval [' script '] = Ord ($WB [$ptr +8]) +256*ord ($WB [$ptr +9]);

$retval [' underline '] = Ord ($WB [$ptr +10]);

$length = Ord ($WB [$ptr +14]);

if ($length >0) {

if (Ord ($WB [$ptr +15]) = = 0) {

$retval [' name '] = substr ($WB, $ptr +16, $length);

} else {

$retval [' name '] = excelfont::getunicodestring ($WB, $ptr +15, $length);

} return $retval;

Function toString (& $record, $index) {

$retval = sprintf ("Font Index =%d \nfont Size =%d\nitalic =%s\nstrikeoout=%s\npalete=%s\nboldness =%s bold=%s\n Script =%d\n underline =%d\n fontname=%s<hr> ",

$index,

$record [' Size '],

$record [' italic '] = = true? True ': ' false ',

$record [' strikeout '] = = true? True ': ' false ',

$record [' Palete '],

$record [' Boldness '],

$record [' bold '] = = true? True ': ' false ',

$record [' Script '],

$record [' Underline '],

$record [' name ']

);

return $retval;

Function getunicodestring (& $string, $offset, $length) {

$bstring = "";

$index = $offset + 1;

for ($k = 0; $k < $length; $k + +)

{

$bstring = $bstring. $string [$index];

$index + 2;

Return substr ($bstring, 0, $length);

function Exceltocss ($rec, $app _font=true, $app _size=true, $app _italic=true, $app _bold=true) {

$ret = "";

if ($app _font==true) {

$ret = $ret. " Font-family: ". $rec [' name ']."; ";

} if ($app _size==true) {

$ret = $ret. " Font-size: ". $rec [' Size ']." Pt ";

} if ($app _bold==true) {

if ($rec [' bold ']==true] {

$ret = $ret. " Font-weight:bold; ";

} else {

$ret = $ret. " Font-weight:normal; ";

} if ($app _italic==true) {

if ($rec [' Italic ']==true) {

$ret = $ret. " Font-style:italic; ";

} else {

$ret = $ret. " Font-style:normal; ";

} return $ret;

}}define (dp_empty, 0);

Define (Dp_string_source, 1);

Define (Dp_file_source, 2);

Class Excelparserutil

{

function Str2long ($STR) {

Return ord ($str [0]) + 256* (ord ($str [1]) +

256* (Ord ($str [2]) + 256* (Ord ($str [3])));

}}

Class Dataprovider

{

function Dataprovider ($data, $dataType)

{

Switch ($dataType)

{

Case Dp_file_source:

if (! ($this->_data = @fopen ($data, "RB"))

Return

$this->_size = @filesize ($data);

if (! $this->_size)

_die ("Failed to determine file size.");

Break

Case Dp_string_source:

$this->_data = $data;

$this->_size = strlen ($data);

Break

Default

_die ("Invalid data type provided.");

} $this->_type = $dataType;

Register_shutdown_function (Array ($this, "close"));

}function get ($offset, $length)

{

if (! $this->isvalid ())

_die ("Data provider is empty.");

if ($this->_baseofs + $offset + $length > $this->_size)

_die ("Invalid offset/length.");

Switch ($this->_type)

{

Case Dp_file_source:

{

if (@fseek ($this->_data, $this->_baseofs + $offset, seek_set) = = 1)

_die ("Failed to seek file position specified by Offest.");

Return @fread ($this->_data, $length);

}case Dp_string_source:

{

$RC = substr ($this->_data, $this->_baseofs + $offset, $length);

return $RC;

}default:

_die ("Invalid data type or class is not initialized.");

}}function GetByte ($offset)

{

return $this->get ($offset, 1);

}function Getord ($offset)

{

Return Ord ($this->getbyte ($offset));

}function Getlong ($offset)

{

$str = $this->get ($offset, 4);

Return Excelparserutil::str2long ($STR);

}function GetSize ()

{

if (! $this->isvalid ())

_die ("Data provider is empty.");

return $this->_size;

}function Getblocks ()

{

if (! $this->isvalid ())

_die ("Data provider is empty.");

return (int) ($this->_size-1)/0x200)-1;

}function Readfromfat ($chain, $gran = 0x200)

{

$RC = ';

for ($i = 0; $i < count ($chain); $i + +)

$RC. = $this->get ($chain [$i] * $gran, $gran);

return $RC;

}function Close ()

{

Switch ($this->_type)

{

Case Dp_file_source:

@fclose ($this->_data);

Case Dp_string_source:

$this->_data = null;

Default

$_type = Dp_empty;

Break

}}function IsValid ()

{

return $this->_type!= dp_empty;

}var $_type = Dp_empty;

var $_data = null;

var $_size =-1;

var $_baseofs = 0;

}class Excelfileparser {

var $DP = null;

var $max _blocks;

var $max _sblocks;

var $fat;

var $sfat;

var $formats;

var $xf;

var $fonts;

var $dbglog;

This article is an English version of an article which is originally in the Chinese language on aliyun.com and is provided for information purposes only. This website makes no representation or warranty of any kind, either expressed or implied, as to the accuracy, completeness ownership or reliability of the article or any translations thereof. If you have any concerns or complaints relating to the article, please send an email, providing a detailed description of the concern or complaint, to info-contact@alibabacloud.com. A staff member will contact you within 5 working days. Once verified, infringing content will be removed immediately.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More

PHP reads Execel content

Contact Us

What's Trending

Top 10 Tags

Top 10 Keywords

A Free Trial That Lets You Build Big!

Sales Support

After-Sales Support

PHP reads Execel content

Contact Us

What's Trending

Top 10 Tags

Top 10 Keywords

Trending Topic

A Free Trial That Lets You Build Big!

Sales Support

After-Sales Support