<?php

class ConvdBase

{

var $conv_dir; // каталог конвертации - здесь будут DBF-файлы

var $struct; // структура текущей таблицы,

// используется при конвертации данных

function ConvdBase($dir)

{

$this->setoutdir($dir);

}

// имя поля и его тип формата MySQL преобразуем к dBase

// например: code int(10), преобразуем к array('code', 'N', 10, 0)

// если $mysql == true, то возвращаем только тип int

// который записывается в $this->struct

function getfield($f_name, $f_type, $mysql = false)

{

$len = 0;

$perc = 0;

$pos = strpos($f_type, '(');

if($pos)

{

$type = strtolower(substr($f_type, 0, $pos));

sscanf(substr($f_type, $pos), '(%d,%d)', &$len, &$perc);

}

else

$type = strtolower($f_type);

if($mysql)

return $type;

switch($type)

{

case 'double': case 'float':

$len = 19; $perc = 3;

$type = 'N';

break;

case 'enum':

$len = 5;

case 'int': case 'tinyint': case 'smallint':

if(!$len)

$len = 19;

$perc = 0;

// break не нужен

case 'decimal':

$type = 'N';

break;

case 'tinytext': case 'text': case 'longtext':

case 'varchar': case 'char':

if(!$len || $len > 254)

$len = 254;

$type = 'C';

break;

case 'year': case 'datetime': case 'timestamp':

$len = $perc = 0;

$type = 'D';

break;

}

$field = array($f_name, $type, $len, $perc);

return $field;

}

// установка исходящего каталога

function setoutdir($dir)

{

$this->conv_dir = $dir;

@mkdir($this->conv_dir, 0777);

}

// конвертация данных

function convertdata($row)

{

$data = array();

for($i = 0; $i < sizeof($this->struct); $i++)

{

switch($this->struct[$i])

{

case 'year': case 'datetime': case 'timestamp':

$data[] = substr($row[$i], 0, 8);

break;

case 'tinytext': case 'text': case 'longtext':

case 'varchar': case 'char':

if(strlen($row[$i]) > 254)

{

$data[] = substr($row[$i], 0, 254);

break;

}

// break не нужен

case 'smallint': case 'double': case 'float': case 'enum':

case 'int': case 'tinyint': case 'decimal': case 'int':

$data[] = $row[$i];

break;

}

}

return $data;

}

// конвертируем базу

function convert($server, $user, $password, $db_name)

{

// отключить тайм-аут

if( !get_cfg_var('safe_mode') )

set_time_limit(0);

$link = mysql_connect($server, $user, $password);

if(!$link)

exit('Error connect');

mysql_select_db($db_name);

$tables_query = mysql_query('SHOW TABLES', $link);

$tek_table = 0; // порядковый номер таблицы - если обязательно

// требуется имя файла не более 8 символов

while($tables = mysql_fetch_array($tables_query, MYSQL_NUM) )

{

$table = $tables[0];

$field_array = array();

$this->struct = array();

// создаем структуру таблицы

$fields_query = mysql_query('SHOW FIELDS FROM ' . $table);

$tek_field = 0;

while ($field = mysql_fetch_array($fields_query, MYSQL_ASSOC) )

{

$f_name = $field['Field'];

// имена полей dBase не должны быть более 10 символов

if(strlen($f_name) > 10)

$f_name = sprintf('%s%03d', substr($f_name, 0, 7), sizeof($field_array) + 1);

$field_array[] = $this->getfield($f_name, $field['Type']);

$this->struct[] = $this->getfield($tek_field, $field['Type'], true);

}

if(strlen($table) > 8) // см.выше о именах таблиц более 8 символов

$table_name = sprintf('%s%03d', substr($table, 0, 5), $tek_table++);

else

$table_name = $table;

$base = dbase_create( $this->conv_dir . '/' . $table_name . '.DBF', $field_array);

if($base)

{

// таблица создана - перекидываем данные

$rows_query = mysql_query("SELECT * FROM " . $table);

while($row = mysql_fetch_array($rows_query, MYSQL_NUM))

{

$row = $this->convertdata($row);

if($row)

if( !dbase_add_record($base, $row) )

exit('Error add record');

}

dbase_close($base);

}

}

mysql_close($link);

}

}

?>

$dir = './CONVERT_' . date('YmdHi'); // здесь будут DBF

$conv = new ConvdBase($dir);

$conv->convert('localhost', 'user', 'pass', 'base');