Add php files

modules/EcmFkBooks/class.dbf.php

@@ -0,0 +1,127 @@
+<?php
+class dbf_class {
+        
+    var $dbf_num_rec;           //Number of records in the file
+    var $dbf_num_field;         //Number of columns in each row
+    var $dbf_names = array();   //Information on each column ['name'],['len'],['type']
+    //These are private....
+    var $_raw;               //The raw input file
+    var $_rowsize;           //Length of each row
+    var $_hdrsize;           //Length of the header information (offset to 1st record)
+    var $_memos;             //The raw memo file (if there is one).
+
+    function dbf_class($filename) 
+	{
+        if ( !file_exists($filename)) {
+            echo 'Not a valid DBF file !!!(1)'; exit;
+        } 
+        $tail=substr($filename,-4);
+        if (strcasecmp($tail, '.dbf')!=0) {
+            echo 'Not a valid DBF file !!!'; exit;
+        }
+                
+        //Read the File
+        $handle = fopen($filename, "r");
+        if (!$handle) { echo "Cannot read DBF file - tutaj"; exit; }
+        $filesize = filesize($filename);
+        $this->_raw = fread ($handle, $filesize);
+        fclose ($handle);
+        //Make sure that we indeed have a dbf file...
+        if(!(ord($this->_raw[0]) == 3 || ord($this->_raw[0]) == 131) && ord($this->_raw[$filesize]) != 26) {
+            echo 'Not a valid DBF file !!!'; exit;
+        }
+        // 3= file without DBT memo file; 131 ($83)= file with a DBT.
+        $arrHeaderHex = array();
+        for($i=0; $i<32; $i++){
+            $arrHeaderHex[$i] = str_pad(dechex(ord($this->_raw[$i]) ), 2, "0", STR_PAD_LEFT);
+        }
+        //Initial information
+        $line = 32;//Header Size
+        //Number of records
+        $this->dbf_num_rec=  hexdec($arrHeaderHex[7].$arrHeaderHex[6].$arrHeaderHex[5].$arrHeaderHex[4]);
+        $this->_hdrsize= hexdec($arrHeaderHex[9].$arrHeaderHex[8]);//Header Size+Field Descriptor
+        //Number of fields
+        $this->_rowsize = hexdec($arrHeaderHex[11].$arrHeaderHex[10]);
+        $this->dbf_num_field = floor(($this->_hdrsize - $line ) / $line ) ;//Number of Fields
+                
+        //Field properties retrieval looping
+        for($j=0; $j<$this->dbf_num_field; $j++){
+            $name = '';
+            $beg = $j*$line+$line;
+            for($k=$beg; $k<$beg+11; $k++){
+                if(ord($this->_raw[$k])!=0){
+                    $name .= $this->_raw[$k];
+                }
+            }
+            $this->dbf_names[$j]['name']= $name;//Name of the Field
+            $this->dbf_names[$j]['len']= ord($this->_raw[$beg+16]);//Length of the field
+            $this->dbf_names[$j]['type']= $this->_raw[$beg+11];
+        }
+		/*
+        if (ord($this->_raw[0])==131) { //See if this has a memo file with it...
+            //Read the File
+            $tail=substr($tail,-1,1);   //Get the last character...
+            if ($tail=='F'){            //See if upper or lower case
+                $tail='T';              //Keep the case the same
+            } else {
+                $tail='t';
+            }
+			
+            $memoname = substr($filename,0,strlen($filename)-1).$tail;
+			
+			$memoname = $filemane;
+			echo $memoname.'<br>';
+            $handle = fopen($memoname, "r");
+            if (!$handle) { echo "Cannot read DBT file - tutaj"; exit; }
+            $filesize = filesize($memoname);
+            $this->_memos = fread ($handle, $filesize);
+            fclose ($handle);
+			*/
+        
+    }
+    
+    function getRow($recnum) {
+        $memoeot = chr(26).chr(26);
+        $rawrow = substr($this->_raw,$recnum*$this->_rowsize+$this->_hdrsize,$this->_rowsize);
+        $rowrecs = array();
+        $beg=1;
+        if (ord($rawrow[0])==42) {
+            return false;   //Record is deleted...
+        }
+        for ($i=0; $i<$this->dbf_num_field; $i++) {
+            $col=trim(substr($rawrow,$beg,$this->dbf_names[$i]['len']));
+            if ($this->dbf_names[$i]['type']!='M') {
+
+                $rowrecs[]=$col;
+            } else {
+                $memobeg=$col*512;  //Find start of the memo block (0=header so it works)
+                $memoend=strpos($this->_memos,$memoeot,$memobeg);   //Find the end of the memo
+                $rowrecs[]=substr($this->_memos,$memobeg,$memoend-$memobeg);
+            }
+            $beg+=$this->dbf_names[$i]['len'];
+        }
+        return $rowrecs;
+    }
+    
+    function getRowAssoc($recnum) {
+        $rawrow = substr($this->_raw,$recnum*$this->_rowsize+$this->_hdrsize,$this->_rowsize);
+        $rowrecs = array();
+        $beg=1;
+        if (ord($rawrow[0])==42) {
+            return false;   //Record is deleted...
+        }
+        for ($i=0; $i<$this->dbf_num_field; $i++) {
+            $col=trim(substr($rawrow,$beg,$this->dbf_names[$i]['len']));
+            if ($this->dbf_names[$i]['type']!='M') {
+                $rowrecs[$this->dbf_names[$i]['name']]=$col;
+            } else {
+                $memobeg=$col*512;  //Find start of the memo block (0=header so it works)
+                $memoend=strpos($this->_memos,$memoeot,$memobeg);   //Find the end of the memo
+                $rowrecs[$this->dbf_names[$i]['name']]=substr($this->_memos,$memobeg,$memoend-$memobeg);
+            }
+            $beg+=$this->dbf_names[$i]['len'];
+        }
+        return $rowrecs;
+    }
+}
+?>