dbase_delete_record

Example 225. Mark a record that contains a given value for deletion

# Path to dbf file
$db_file = '/tmp/sushi_eaten.dbf';

# Set the search term
$term = 'Inari';

# Set the field to search
$key = 'name';

# Open dbf file for reading and writing
$id = @ dbase_open ($db_file, 2)
    or die ("Could not open dbf file <i>$db_file</i>."); 

# Find the number of rows in the dbf file
$num_rows = dbase_numrecords ($id);

# Loop through the entries in the dbf file
# Look for the one where the name field is set to inari
for ($i=1; $i <= $num_rows; $i++)
{
    $field = dbase_get_record_with_names ($id, $i);
    
    if (trim ($field[$key]) == $term)
    {
        print "Search term <i>$term</i> found in record $i.  Flagging record for deletion...\n";

        if (dbase_delete_record ($id, $i))
        {
            print "Record $i successfully flagged for deletion.\n\n";
            break; # Exit the loop
        }
    }
} 

print "----------Looking for entries flagged for deletion----------\n\n";

# Loop through the entries in the dbf file
# Show entries where the delete field is set to 1
for ($i=1; $i <= $num_rows; $i++)
{
    $field = dbase_get_record_with_names ($id, $i);
    
    if ($field['deleted'])
        print "Record $i is flagged for deletion.\n";
} 

# close the dbf file
dbase_close ($id);