/** * ---------------------------------------------------------------- * XBase * test_clone.php * * Developer : Erwin Kooi * released at : Jan 2006 * last modified by : Erwin Kooi * date modified : Jan 2006 * * Info? Mail to info@cyane.nl * * -------------------------------------------------------------- * * Demonstration how to clone table meta-data to another and copy records * **/ /* load the required classes */ require_once "Column.class.php"; require_once "Record.class.php"; require_once "Table.class.php"; require_once "WritableTable.class.php"; /* open a template table object and read it */ $tableParent = new XBaseTable("test/bond.DBF"); $tableParent->open(); /* create a new table */ $tableNew = XBaseWritableTable::cloneFrom($tableParent); $tableNew->openWrite("test/created.dbf",true); while ($record=$tableParent->nextRecord()) { $tableNew->appendRecord(); $tableNew->record->copyFrom($record); $tableNew->writeRecord(); } $tableNew->close(); $tableParent->close(); /* open created file*/ $table = new XBaseTable("test/created.dbf"); $table->open(); /* xml output */ echo "
\n";
echo htmlspecialchars($table->toXML());
echo "\n";
/* close the table */
$table->close();
?>