/*************************************************
^^^^^^^^文本数据库自定义函数集0.2测试版^^^^^^^^^^^
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
此函数集适用于：以文本格式存储数据，以一行为一条记录，以分隔符分隔字段的文本结构数据库。
联系方法：xbrid@163.com
技术支持：http://PHPLink.126.com
版权所有：PHP初学者联盟，未经允许不得删除版权信息
程序编写：xbrid
修改日期：2003.04.30
**************************************************/
/*
使用方法：
注意：在文本数据库中，如果使用关键字，此关键字最好要唯一，否则其删除修改时只会操作第一条记录。
text_append($filename,$linecon)→数据追加函数，返回1为成功，0为不成功
text_locate($filename,$keyword,$cutword,$colnum)→数据查找函数，如果查找到则返回此条记录，否则返回0
text_delete($filename,$keyword,$cutword,$colnum)→数据删除函数，如果有此记录则删除并返回1，否则返回0
text_modify($filename,$keyword,$cutword,$colnum,$modify)→数据修改函数，如果有此记录并修改成功返回1，否则返回0
text_insert($filename,$keyword,$cutword,$colnum,$insert)→数据插入函数，插入在关键字记录前
text_insertb($filename,$keyword,$cutword,$colnum,$insert)→数据插入函数，插入在关键字记录前
text_sort($filename,$cutword,$colnum,$mode)→数据排序函数，排序后文件被排序后生成的文件覆盖
text_select($filename,$keyword,$cutword,$colnum)→多条记录查找函数，返回多条与关键字相同的记录
text_find($filename,$keyword,$cutword,$colnum)→模糊查询函数，返回字段中包含关键字的所有记录
$filename→文件名
$linecon→要追加的内容
$keyword→查找或删除等操作时使用的关键字，此关键字要唯一。
$cutword→分隔符
$colnum→关键字（字段）所在的列，列是从0开始排列的
$modify→要修改的内容
修改或追加的内容要与本函数库适用的格式相符合
*/
//数据库追加函数
function text_append($filename,$linecon)
{
$fp=fopen($filename,"a");
flock($fp,2);
$file=fwrite($fp,$linecon);
fclose($fp);
return $file;
}
//文本数据库查找函数→结果是返回第一条记录
function text_locate($filename,$keyword,$cutword,$colnum)
{
$filelist=file($filename);
$listnum=count($filelist);
for ($i=0;$i<$listnum;$i++) {
$list=explode($cutword,$filelist[$i]);
if ($keyword==$list[$colnum]) {
return $list;
}
}
return 0;
}
//文本数据库删除记录函数
function text_delete($filename,$keyword,$cutword,$colnum)
{
$filelist=file($filename);
$listnum=count($filelist);
$fp=fopen($filename,"w");
flock($fp,2);
$yesno=1;
for ($i=0;$i<$listnum;$i++) {
$list=explode($cutword,$filelist[$i]);
if ($keyword==$list[$colnum] and $yesno==1) {
$yesno=0;
$returnkey=1;
continue;
}
fputs($fp,$filelist[$i]);
}
fclose($fp);
if (empty($returnkey)) $returnkey=0;
return $returnkey;
}
//文本数据库修改记录函数
function text_modify($filename,$keyword,$cutword,$colnum,$modify)
{
$filelist=file($filename);
$listnum=count($filelist);
$fp=fopen($filename,"w");
flock($fp,2);
$yesno=1;
for ($i=0;$i<$listnum;$i++) {
$list=explode($cutword,$filelist[$i]);
if ($keyword==$list[$colnum] and $yesno==1) {
fputs($fp,$modify);
$yesno=0;
$returnkey=1;
continue;
}
fputs($fp,$filelist[$i]);
}
fclose($fp);
if (empty($returnkey)) $returnkey=0;
return $returnkey;
}
//文本数据库插入记录函数→插入以关键字为记录的前面
function text_insert($filename,$keyword,$cutword,$colnum,$insert)
{
$filelist=file($filename);
$listnum=count($filelist);
$fp=fopen($filename,"w");
flock($fp,2);
for ($i=0;$i<$listnum;$i++) {
$list=explode($cutword,$filelist[$i]);
if ($keyword==$list[$colnum]) {
fputs($fp,$insert);
}
fputs($fp,$filelist[$i]);
}
fclose($fp);
}
//文本数据库插入记录函数→插入以关键字为记录的后面
function text_insertb($filename,$keyword,$cutword,$colnum,$insert)
{
$filelist=file($filename);
$listnum=count($filelist);
$fp=fopen($filename,"w");
flock($fp,2);
for ($i=0;$i<$listnum;$i++) {
fputs($fp,$filelist[$i]);
$list=explode($cutword,$filelist[$i]);
if ($keyword==$list[$colnum]) {
fputs($fp,$insert);
$returnkey=1;
}
}
fclose($fp);
if (empty($returnkey)) $returnkey=0;
return $returnkey;
}
//文本数据库排序
function text_sort($filename,$cutword,$colnum,$mode)
{
$list=file($filename);
for ($i=0;$i<count($list);$i++) {
$list1= explode($cutword, $list[$i]);
$list2[($list[$i])]=$list1[$colnum];
}
if ($mode=="a") {
@asort($list2);
@reset($list2);
}
if ($mode=="d") {
@arsort($list2);
@reset($list2);
}
for ($all=0;$all<=count($list2);$all++) {
$newlist[] = key($list2);
if (!(next($list2))) break;
}
$fp=fopen($filename,"w");
flock($fp,2);
$listnum=count($newlist);
for ($i=0;$i<$listnum;$i++) {
fputs($fp,$newlist[$i]);
}
fclose($fp);
}
//文本数据库多条记录查找函数→返回所有与关键字相同的数据
function text_select($filename,$keyword,$cutword,$colnum)
{
$filelist=file($filename);
$listnum=count($filelist);
for ($i=0;$i<$listnum;$i++) {
$list=explode($cutword,$filelist[$i]);
if ($keyword==$list[$colnum]) {
$newlist[]=$filelist[$i];
}
}
if (empty($newlist)) return 0;
else return $newlist;
}
//文本数据库模糊查找函数→返回所有包含关键字的数据
function text_find($filename,$keyword,$cutword,$colnum)
{
$filelist=file($filename);
$listnum=count($filelist);
for ($i=0;$i<$listnum;$i++) {
$list=explode($cutword,$filelist[$i]);
if (eregi($keyword,$list[$colnum])) {
$newlist[]=$filelist[$i];
}
}
if (empty($newlist)) return 0;
else return $newlist;
}
//自定义的数组排序
function array_sort($list,$cutword,$colnum,$mode)
{
for ($i=0;$i<count($list);$i++) {
$list1= explode($cutword, $list[$i]);
$list2[$list[$i]]=$list1[$colnum];
}
if ($mode=="a") {
@asort($list2);
@reset($list2);
}
if ($mode=="d") {
@arsort($list2);
@reset($list2);
}
for ($all=0;$all<count($list2);$all++) {
$newlist[]=key($list2);
if (!(next($list2))) break;
}
return $newlist;
}
/*************************************************
^^^^^^^^文本数据库自定义函数集0.2测试版^^^^^^^^^^^
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
此函数集适用于：以文本格式存储数据，以一行为一条记录，以分隔符分隔字段的文本结构数据库。
联系方法：xbrid@163.com
技术支持：http://PHPLink.126.com
版权所有：PHP初学者联盟，未经允许不得删除版权信息
程序编写：xbrid
写作日期：2003.04.30
**************************************************/
/*
使用方法：
text_append($filename,$linecon)→数据追加函数
$filename是文件名，$linecon是要追加的内容，此内容的格式要与文件的分隔格式相同
函数返回值：1为成功，0为不成功。
text_locate($filename,$keyword,$cutword,$colnum)→数据查找函数
$filename为文件名，$keyword为查找关键字，$cutword为分隔符，$colnum为关键字所在的列段，列段的起始号为0
函数返回值：有此记录则返回此记录的数组（以分隔符分隔后的数据），否则返回0
注意：返回的数据值是字段值，此条记录是数据库中的查找结果的第一条记录。
text_delete($filename,$keyword,$cutword,$colnum)→数据删除函数，关键字要唯一，否则会删除所有与关键字相同的记录
$filename为文件名，$keyword为删除关键字，$cutword为分隔符，$colnum为关键字所在的列段，列段的起始号为0
函数返回值：有此记录则删除并返回1，否则返回0
text_modify($filename,$keyword,$cutword,$colnum,$modify)→数据修改函数
$filename为文件名，$keyword为修改关键字，$cutword为分隔符，$colnum为关键字所在的列段，列段的起始号为0
$modify为修改后内容，格式要与文件分隔格式相同
函数返回值：有此记录则修改，并返回1，否则返回0
此函数不改变此记录所在行
text_insert($filename,$keyword,$cutword,$colnum,$insert)→数据插入函数，插入位置在关键字前
$filename为文件名，$keyword为关键字，$cutword为分隔符，$colnum为关键字所在的列段，列段的起始号为0
$insert为要插入的内容，其格式要与文件分隔格式相同
函数返回值：有关键字记录则在其前插入并返回1，否则不对文件作修改并返回0
text_insertb($filename,$keyword,$cutword,$colnum,$insert)→数据插入函数，插入位置在关键字后
$filename为文件名，$keyword为修改关键字，$cutword为分隔符，$colnum为关键字所在的列段，列段的起始号为0
$insert为要插入的内容，其格式要与文件分隔格式相同
函数返回值：有关键字记录则在其后插入并返回1，否则不对文件作修改并返回0
text_sort($filename,$cutword,$colnum,$mode)→数据排序函数
$filename为文件名，$cutword为分隔符，$colnum为关键字所在的列段，列段的起始号为0，$mode为排列方式，a为升序d为降序
函数返回值：此函数无返回值，排序后此文件被重新排序的文件覆盖，此函数使用时要注意此点。
text_select($filename,$keyword,$cutword,$colnum)→多条数据查找函数
$filename为文件名，$keyword为查找关键字，$cutword为分隔符，$colnum为关键字所在的列段，列段的起始号为0
函数返回值：如果有关键字的记录则返回所有与关键字相同的记录数据，否则返回0
注意：返回的是记录数据，与数据库的格式相同，需要重新进行分隔。
text_find($filename,$keyword,$cutword,$colnum)→数据模糊查询函数
$filename为文件名，$keyword为查找关键字，$cutword为分隔符，$colnum为关键字所在的列段，列段的起始号为0
函数返回值：返回查找字段中包含此关键字的所有记录数据，否则返回0
注意：返回的是记录数据，是多条数据，与数据库的格式相同，需要重新进行分隔。
array_sort($list,$cutword,$colnum,$mode)→《数组》排序函数
$list为数组名，$cutword为分隔符，$colnum为关键字所在的列段，列段的起始号为0，$mode为排列方式，a为升序d为降序
函数返回值：返回值是排序后的数组，格式与排序前的一样，显示内容时，需要进行重新分隔处理。
*/
?>