一組檔案資料庫函數_PHP

/**
* 檔案資料庫函數
* 約定：
* 資料庫名為同名目錄
* 資料表名尾碼為 tab
* 索引檔案尾碼為 ind
* 管理檔案名稱為 資料庫同名目錄/manage.ini
* 備忘型欄位以獨立檔案存在，表中保留檔案名稱
* 欄位以定長方式或csv方式儲存，由管理檔案指定
* 每行一條記錄
* 索引檔案以二進位方式包存索引值(定長)和位移量(長整型)
*

** 函數列表(前面有：+ 為已實現，- 為部分實現，其餘為尚未實現)
套用 MySQL 函數集 取名 FILE_DB

* file_affected_rows: 得到 FILE_DB 最後操作影響的列數目。
*-file_close: 關閉 FILE_DB 伺服器串連。
* file_connect: 開啟 FILE_DB 伺服器串連。
*+file_create_db: 建立一個 FILE_DB 新資料庫。
* file_data_seek: 移動內部返回指標。
* file_db_query: 送查詢字串 (query) 到 FILE_DB 資料庫。
* file_drop_db: 移除資料庫。
* file_errno: 返回錯誤資訊代碼。
* file_error: 返回錯誤資訊。
*+file_fetch_array: 返回數組資料。
* file_fetch_field: 取得欄位資訊。
* file_fetch_lengths: 返回單列各欄資料最大長度。
* file_fetch_object: 返回類資料。
*+file_fetch_row: 返回單列的各欄位。
*+file_field_name: 返回指定欄位的名稱。
* file_field_seek: 配置指標到傳回值的某欄位。
* file_field_table: 獲得目前欄位的資料表 (table) 名稱。
* file_field_type: 獲得目前欄位的類型。
* file_field_flags: 獲得目前欄位的標誌。
* file_field_len: 獲得目前欄位的長度。
* file_free_result: 釋放返回佔用記憶體。
* file_insert_id: 返回最後一次使用 INSERT 指令的 ID。
* file_list_fields: 列出指定資料表的欄位 (field)。
* file_list_dbs: 列出 FILE_DB 伺服器可用的資料庫 (database)。
* file_list_tables: 列出指定資料庫的資料表 (table)。
*+file_num_fields: 取得返回欄位的數目。
*+file_num_rows: 取得返回列的數目。
* file_pconnect: 開啟 FILE_DB 伺服器持續串連。
*-file_query: 送出一個 query 字串。
* file_result: 取得查詢 (query) 的結果。
* file_select_db: 選擇一個資料庫。
* file_tablename: 取得資料表名稱。
*/

/**
*
*
$cmp_key;

/** 連結至 FILE_DB 資料庫
* @param 資料庫名
*/
function &file_connect($dbname) {
$filename = $dbname."/manage.ini";
if(!file_exists($filename))
die("資料庫:$dbnamee不存在");
$fp = fopen($filename,"r");
$s = fgets($fp,filesize($filename)+1);
fclose($fp);
$db = unserialize($s);
return $db;
}

/** 關閉 FILE_DB 連結
*
*/
function file_close(&$connection_id) {
unset($connection_id);
}

/** 建立 FILE_DB 資料庫
* @param 資料庫名
*/
function file_create_db($dbname) {
if(! @mkdir($dbname,0700))
$err = "目錄已存在";
$filename = $dbname."/manage.ini";
$ar[path] = "$dbname/";
$s = serialize($ar);
$fp = fopen($filename,"w");
fputs($fp,$s);
fclose($fp);
}

/** 執行 SQL 指令
*
*/
function file_query($query,&$connection_id,$_line = __LINE__) {
// 解析 $query
$query = eregi_replace("[ ]+"," ",$query);
$ar = split(" ",trim(str_replace(" "," ",$query)));
$query = eregi_replace("\r?\n","",$query);
$ch = each($ar);
switch(strtoupper($ch[1])) {
case "CREATE":
if(! eregi("create table (.+) [(] *(.+)[)] *$",$query,$pp))
die("SQL運算式錯,$_line");
$table = $pp[1];
if(empty($connection_id[$table])) {
// 解析欄位運算式
$ar = split(",",$pp[2]);
while(list($key,$value) = each($ar)) {
$str = split(" ",trim($value));
eregi("([a-z0-9]+) ([a-z]+) ?([(]([0-9]+)[)])?(.+)?",$value,$pp);
$field[name] = $pp[1];
$field[type] = $pp[2];
$field[len] = $pp[4];
$field[style] = trim($pp[5]);
$sss[] = $field;
}
$connection_id[$table] = array(
"fields" => $sss,
"filename" => $table.".tab",
"type" => "CSV"
);
}
$fp = fopen($connection_id[path]."manage.ini","w");
fputs($fp,serialize($connection_id));
fclose($fp);
break;
case "SELECT":
if(! eregi("select (.+) from ([^ ]+) *(.+)*$",$query,$pp))
die("SQL運算式錯,$_line");

// 解析SQL語句的控制部分
$exte = $pp[3];
if(! eregi("where ",$exte))
$exte = "where true ".$exte;
if(! eregi("order ",$exte))
$exte .= "order by 0";
if(! eregi("group ",$exte))
$exte = eregi_replace("order ","group by _ order ",$exte);

eregi("where (.+) *group by (.+) order by (.+)",$exte,$regs);
$filter = trim($regs[1]);
$group = trim($regs[2]);
$order = trim($regs[3]);
if($group == "_") $group = "";
if($order == "0") $order = "";
// 讀取資料檔案
if(empty($connection_id[$pp[2]]))
die("表".$pp[2]."不存在");
$table = $connection_id[$pp[2]];
if(!file_exists($connection_id[path].$table[filename])) {
// 資料表尚未建立
return false;
}else {
// 擷取表定義欄位名
for($i=0;$i $defaultfield[] = $table[fields][$i][name];
$defaultfield = array_flip($defaultfield);

// 解析篩選條件運算式
if($filter != "true") {
$filter = eregi_replace(" and "," && ",$filter);
$filter = eregi_replace(" or "," || ",$filter);
$filter = eregi_replace("=","==",$filter);
$filter = eregi_replace("==>","=>",$filter);
$filter = eregi_replace("<==","<=",$filter);
$filter = eregi_replace("===","==",$filter);
while (ereg ('([a-z][a-z0-9_]*)', $filter, $regs)) {
$found = $regs[1];
$filter = eregi_replace("$found","[". $defaultfield][$found]."]", $filter);
}
$filter = eregi_replace("\[","\$tmp][",$filter);
$filter = "\$key=($filter);";
}else
$filter ="";

// 裝入資料
$fp = fopen($connection_id][path].$table[filename],"r");
$key = true;
while($tmp = fgetcsv($fp,4096,"`")) {
if(!empty($filter)) eval($filter);
if($key)
$temp[] = $tmp;
}
fclose($fp);
}
// 解析輸出欄位
$f = split(",",$pp[1]);
$expr = "";
while(list($key,$value) = each($f)) {
if(eregi("(.+)[(](.+)[)]( as (.+))?",$value,$pp)) {
// 有函數
switch(strtoupper($pp[1])) {
case "COUNT":
if(empty($pp[4]))
$n = "cnt";
else
$n = $pp[4];
$expr .= "\$rs[$n]=1;";
$sumname[] = $n;
break;
}
}else if(eregi("(.+) as (.+)",$value,$pp)) {
// 有重新命名
$n = $defaultfield[$pp[1]];
if(!isset($n)) die("欄位名 $n 非法");
$expr .= "\$rs[$pp[2]]=\$temp[\$i][$n];";
}else if($value == "*") {
for($i=0;$i $value = $table[fields][$i][name];
$expr .= "\$rs[$value]=\$temp[\$i][$i];";
}
}else {
$n = $defaultfield[$value];
if(!isset($n)) die("SQL error");
$expr .= "\$rs[$value]=\$temp[\$i][$n];";
}
}

// 取得輸出欄位列表
$i=0;
eval($expr);
$outfield = array_keys($rs);

// 解析分組
if($group) {
$groups = split(",",$group);
for($i=0;$i if(eregi("[0-9]+",$groups[$i])) {
$n = $groups[$i]>0?$groups[$i]-1:0;
$groups[$i] = $outfield[$n];
}
}

// 過錄資料
for($i=0;$i eval($expr);
if(!$group)
$result[] = $rs;
else {
$n = $rs[$groups[0]];
if($sumname) {
for($ii=0;$ii $sumdata[$sumname][$ii]] = $result[$n][$sumname][$ii]];
$result[$n] = $rs;
for($ii=0;$ii $result[$n][$sumname][$ii]] += $sumdata[$sumname][$ii]];
}else
$result[$n] = $rs;
}
}
unset($temp);

// 解析排序
if($order) {
global $cmp_key;
$orders = split(",",$order);
for($i=count($orders)-1;$i>=0;$i--) {
eregi("([0-9]+)?([a-z_][a-z0-9_]*)? *(desc)?",$orders[$i],$regs);
if(!empty($regs[1])) {
$n = $regs[1]-1;
if($n<0) $n = 0;
$cmp_key = $outfield[$n];
}else
$cmp_key = $regs[2];
if(empty($regs[3]))
usort($result, cmp_asc);
else
usort($result, cmp_desc);
}
}
return $result;
break;
case "INSERT":
if(! eregi("insert into table (.+) [(](.+)[)] *values? *[(](.+)[)]",$query,$pp))
die("SQL運算式錯,$_line");
if(empty($connection_id[$pp[1]]))
die("表".$pp[1]."不存在");
$table = $connection_id[$pp[1]];
// 解析目標欄位名
$f = split(",",$pp[2]);
// 檢查欄位是否合法
for($i=0;$i if(!array_scan($table[fields],$f[$i],"name"))
die("欄位名非法 ".$f[$i]);
// 根據表欄位表構造資料數組
for($i=0;$i $data[$table][fields][$i][name]] = "";
// 解析資料
eval("\$d=array($pp[3]);");
// 填表
for($i=0;$i $data[$f[$i]] = $d[$i];
}
$fp = fopen($connection_id[path].$table[filename],"a");
fputs($fp,join("`",$data)."\n");
fclose($fp);
break;
case "UPDATE":
break;
default:
die("錯誤的SQL指令,在".$_line."行");
}


}

/** file_fetch_row: 返回單列的各欄位
*
*/
function file_fetch_row(&$result) {
$ar = each($result);
if(! $ar) return false;
while(list($k,$ch) = each($ar[1]))
$br[] = $ch;
return $br;
}

/** file_fetch_array: 返回數組資料
*
*/
function file_fetch_array(&$result) {
$ar = each($result);
if(! $ar) return false;
while(list($k,$ch) = each($ar[1])) {
$br[] = $ch;
$br[$k] = $ch;
}
return $br;
}

/** file_field_name: 返回指定欄位的名稱
*
*/
function file_field_name(&$result,$n=0) {
$outfield = array_keys($result[0]);
return $outfield[$n];
}

/** file_num_rows: 取得返回列的數目
*
*/
function file_num_rows(&$result) {
return count($result);
}

/** file_num_fields: 取得返回欄位的數目
*
*/
function file_num_fields(&$result) {
return count($result[0]);
}


/** 工作函數集
*/

/** 在數組中檢索
* @param $ar 數組
* @param $val 待檢索的值
* @param $key 鍵
*/
function array_scan($ar,$val,$key=0) {
for($i=0;$i if($ar[$i][$key] == $val)
return true;
return false;
}

/** 排序用工作函數(降序 由usort()調用)
*/
function cmp_desc($a,$b) {
global $cmp_key;
if ($a[$cmp_key] == $b[$cmp_key]) return 0;
return ($a[$cmp_key] > $b[$cmp_key]) ? -1 : 1;
}

/** 排序用工作函數(升序 由usort()調用)
*/
function cmp_asc($a,$b) {
global $cmp_key;
if ($a[$cmp_key] == $b[$cmp_key]) return 0;
return ($a[$cmp_key] > $b[$cmp_key]) ? 1 : -1;
}




// 應用執行個體

file_create_db("test");
$conn = file_connect("test");

$s = "create table board (
sn int primary key auto_increment,
name varchar(15) not null,
email varchar(30),
ip varchar(15),
time datetime,
content tinyblob not null)";
file_query($s,$conn);
//file_query("insert into table board (sn,name,ip) value (15,'w,r,r,oi','$REMOTE_ADDR')",$conn);

//$rs = file_query("select * from board",$conn);
$rs = file_query("select * from board where true group by 2 order by 2 desc",$conn);
//$rs = file_query("select count(*) as js,time as hj,ip as pi,name,sn from board group by name order by sn desc",$conn);
//$rs = file_query("select sn,name,email,io from board where true group by 1 order by 2 desc",$conn);
file_close($conn);

echo "








";echo " ";for($i=0;$i echo " ";echo " ";for($j=0;$j echo " "; $d = file_fetch_row($rs); for($i=0;$i echo " "; echo " ";}echo "

".file_field_name($rs,$i)."
".$d[$i]."

";
?>

