function purgedbf($db = "ctw10005.dbf", $key = "EJE", $id = "2007")
{
$pathdbase = CTW_PATH . "/" . $db;
//$db = dbase_open($ipdbase . $dirdbase . $nombredb . $db, 0);
$rs = dbase_open($pathdbase, 2);
//echo $pathdbase;
$num_rows = dbase_numrecords($rs);
$o_num_rows = dbase_numrecords($rs);
if ($num_rows > 100000) {
$num_rows = 100000;
//Eliminar la Consulta a 50000
}
for ($i = 1; $i <= $num_rows; $i++) {
$field = dbase_get_record_with_names($rs, $i);
if (trim($field[$key]) != $id) {
if (dbase_delete_record($rs, $i)) {
// print "Registro $i Marcado para Eliminar de un total de $o_num_rows; se Busco $field[$key]. <br >";
//break; # Exit the loop
}
}
}
dbase_pack($rs);
dbase_close($rs);
echo "<p>PURGA EFECTUADA DE {$db} SEGUN {$key} sobre {$id} A LAS " . date("H:i:s") . " HRS </p>";
}
public function remover($id)
{
if (dbase_delete_record($this->conexao, $id)) {
return true;
} else {
return false;
}
}
function _deleteRecordFromDBF($index)
{
if (@dbase_delete_record($this->DBFFile, $index)) {
@dbase_pack($this->DBFFile);
}
}
public function delete_all()
{
$rows = $this->fetch_all();
foreach ($rows as $i => $row) {
dbase_delete_record($this->db, $i);
}
//now pack the database to make it permanent
}
**/
require_once "api_conversion.php";
$fields = array(array("bool", DBFFIELD_TYPE_LOGICAL), array("memo", DBFFIELD_TYPE_MEMO), array("date", DBFFIELD_TYPE_DATE), array("number", DBFFIELD_TYPE_NUMERIC, 3, 0), array("string", DBFFIELD_TYPE_CHAR, 50));
$di = dbase_create("test/dbase.dbf", $fields);
$xi = xbase_create("test/xbase.dbf", $fields);
dbase_add_record($di, array("T", "abc", "20060120", 123, "string one"));
dbase_add_record($di, array("F", "def", "20060121", 321, "string two"));
dbase_add_record($di, array("F", "ghi", "20060121", 111, "string trio"));
xbase_add_record($xi, array("T", "abc", "20060120", 123, "string one"));
xbase_add_record($xi, array("F", "def", "20060121", 321, "string two"));
xbase_add_record($xi, array("F", "ghi", "20060121", 111, "string trio"));
dbase_close($di);
xbase_close($xi);
$di = dbase_open("test/dbase.dbf", 2);
$xi = xbase_open("test/xbase.dbf", 2);
dbase_delete_record($di, 2);
xbase_delete_record($xi, 2);
dbase_pack($di);
xbase_pack($xi);
dbase_close($di);
xbase_close($xi);
$di = dbase_open("test/dbase.dbf", 2);
$xi = xbase_open("test/xbase.dbf", 2);
echo "dbase<br>";
echo "index = {$di} <br>";
echo "<br>";
echo "xbase<br>";
echo "index = {$xi} <br>";
echo "header info: ";
print_r(xbase_get_header_info($xi));
dbase_close($di);
echo 'row before inserting is: ';
print_r($row);
// Replace the record
dbase_replace_record($db, $row, 1);
echo 'trying record num 1: ';
$rec = dbase_get_record($db, 1);
$nf = dbase_numfields($db);
for ($i = 0; $i < $nf; $i++) {
echo $rec[$i], "\n";
}
echo 'deleting row 2. before deletion: ';
$rec = dbase_get_record($db, 2);
$nf = dbase_numfields($db);
for ($i = 0; $i < $nf; $i++) {
echo $rec[$i], "\n";
}
echo dbase_delete_record($db, 2);
echo 'before db pack';
echo dbase_pack($db);
echo 'after pack, trying to fetch record 2';
$rec = dbase_get_record($db, 2);
$nf = dbase_numfields($db);
for ($i = 0; $i < $nf; $i++) {
echo $rec[$i], "\n";
}
dbase_close($db);
}
?>
//Load empty DBF file,
//Query wordpress database for fields
//Write the fields into empty DBF file
//Save DBF file in folder
//We do this process for each DBF file, then zip the DBF files for download.
// Get column information
$record_numbers = dbase_numrecords($db);
echo 'Record Numbers: ' . $record_numbers . '<br/>';
$row = dbase_get_record_with_names($db, 1);
for ($i = 1; $i <= $record_numbers; $i++) {
$row = dbase_get_record_with_names($db, $i);
if (substr($row['ACODE1'], 0, 2) == '50' && strlen(trim($row['PCODE'])) > 1) {
echo 'Row: ' . $row['ACODE1'] . ' ' . $row['PCODE'] . ' ' . $row['ATYPE'] . ' ' . $row['ANAME'] . ' ' . $row['MODE'] . '<br/>';
} else {
//unset($row["deleted"]); // drop the field
$delete = dbase_delete_record($db, $i);
echo 'Deleted row number ' . $i . ': ' . $delete . '<br/>';
//$rarr = array();
//foreach ($row as $i=>$vl) $rarr[] = $vl;
//dbase_replace_record($db, $rarr, 1);
//dbase_close($db);
//dbase_replace_record($db, $row, 1);
}
}
dbase_close($db);
//foreach ($row as $key => $value){
//{
//echo 'Row: '.$row['ACODE1'].'<br/>';
//}
//echo $key.': '.$value.'<br/>';
//}
/**
* @inheritdoc
*/
public function offsetUnset($offset)
{
if (isset($this[$offset])) {
dbase_delete_record($this->_dbaseId, $offset + 1);
dbase_pack($this->_dbaseId);
} else {
throw new OutOfRangeException(sprintf('Invalid index %s', $offset));
}
}
