C语言版的DBF本地数据库文件操作函数
2008-01-11 00:36
405 查看
几个月前，翻出以前的一些1993 - 1995年的C/C++老代码，陆续粘贴到了BLOG上，一来以免不小心遗失（以前很多好代码都丢了），二来可供C/C++爱好者，特别是初学者借鉴参考，本以为就这些了，没料到月头又找出一些更老的代码，都是1991年及以前的，前几天我发上来的《C语言版的磁盘文件分片归并排序函数》就是其中之一。今天准备把1991年用TURBOC 2.0写的DBF本地数据库文件操作函数完整的贴在这里，前几个月发的文章《C++老代码 -- DBF数据文件操作类DBFile》应该是我当时从C向C++过渡时根据这里的C代码改写的。
其实还有个通用的用B+树建立本地数据索引文件的工具代码，本想在《C语言版的磁盘文件分片归并排序函数》之后贴上来，但是由于目前32位计算机与以前的16位计算机的数据类型长度不一样，而索引文件是分索引节点块写道磁盘文件上的，数据类型长度不同必定引起移植错误（以前没想这么多 ^_^ ），再看到《C语言版的磁盘文件分片归并排序函数》很受朋友们捧场（一天的电击量达到了1000多），错误多了会挨骂的，所以，只能等春节后找几天时间改一下（代码很长很复杂的）后再贴出来。顺便在此感谢大家的捧场，也感谢CSDN编辑把文章挂在了首页，才能让这么多的朋友光临。
需要说明的是，1991年我正好业余学习计算机语言2年多时间，其中包括学习BASIC、PASCAL及汇编等，所以C语言可能掌握的不大好，更谈不上代码设计，加上我又不懂英语，标识符命名也不规范等，因此有什么不对的地方可以写信给我（maozefa@hotmail.com），也可留言，但是代码在16位机上绝对是可行的，记得我以前经常用的，但是要用到32位机上，和DBF文件有关的几个结构的数据类型要改一下，很简单的，只是把int变为short就行了的（好像就2处地方），我自己没改是因为该代码与2个通用排序函数不一样，目前实用价值不大，就让它保持原样吧！
下面是代码，没写测试程序：
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : MDBFIO.H *
* 编 制 人 : 湖北省公安县统计局 毛 泽 发 *
* 日 期 : 1991.8 *
***************************************************************************
*/
#include <stdio.h>
#define MAXFILES 10
#define MAXFIELD 128 /* ... ... 记录最大字段数 */
#define MAXNAMES 11 /* ... ... 字段名最大长度 */
#define MAXFIESIZE 254 /* ... ... 字符字段最大位数 */
#define MAXWIDTH 19 /* ... ... 数据字段最大位数 */
#define MAXDEC 15 /* ... ... 数据小数最大位数 */
#define DBFFILE 3 /* ... ... 头结构开始标记 */
#define DBFSTREND 0x000d /* ... ... 头结构结束标记 */
#define DBFEND 26 /* ... ... 文件结束标记 */
#define DELFLAG '*' /* 记录删除标记 */
#define TOP 0l /* 首记录标志 */
#define BOTTOM -1 /* 末记录标志 */
#define SPACE 32
/* 内部字段信息结构 */
typedef struct dbfield{
char name[MAXNAMES]; /* 字段名 */
char type; /* 字段类型 */
void far *tech; /* 字段数据地址 */
unsigned char width, dec; /* 字段长度及小数位 */
char nul[14]; /* 保留字节 */
}DBFIELD;
/* DBF 文件头结构 */
typedef struct dbfstr {
unsigned char dbf3; /* DBASE 数据文件标记 */
unsigned char date_n,date_y,date_r; /* 年月日变量 */
unsigned long record; /* 记录数变量 */
unsigned int ldb,lrd; /* 头结构.记录长度变量 */
char nul[20]; /* 头结构保留字节变量 */
}DBFSTR;
/* DBF 文件把柄结构 */
typedef struct dbfile {
FILE *fdb; /* 文件指针 */
DBFSTR stru; /* 文件头结构 */
DBFIELD *start; /* 字段结构首指针 */
char fields; /* 字段数 */
}DBFILE;
/* 外部字段信息结构 */
struct dbf{
char name[MAXNAMES]; /* 字段名变量 */
char type; /* 字段类型变量 */
unsigned char width,dec; /* 字段长度及小数位变量 */
};
/* db_error DBASE 文件操作出错信息:
0: 无错误; 1: 打开文件过多; 2: 文件未找到; 3: 读文件头失败; 4: 写文件头失败;
5: 关闭文件失败; 6: 打开文件失败; 7: 移动文件指针出错.
*/
extern unsigned char db_error;
int db_getfields(DBFSTR str); /* 计算并返回文件字段数 */
void undberror(void); /* 清除 DB_ERROR 错误信息 */
int db_getstr(DBFILE *f); /* 读文件头信息, 成功返回 1,否则 0 */
DBFILE *db_use(char *fname); /* 打开一个已存在文件,返回指针供读写, 出错返回 NULL */
/* 根据外部字段结构创建一个 .DBF 文件,成功返回指针供读写,出错返回 NULL */
DBFILE *db_create(char *fname, struct dbf *fd);
/* 关闭一个文件,FLAG = 0,不更新文件头,否则更新;成功返回 1,否则 0 */
int db_close(DBFILE *f, int flag);
/* 写文件头信息,FLAG = 0 不写字段信息,成功返回 1,否则 0 */
int db_writestr(DBFILE *f, int flag);
long db_cpyrec(DBFILE *fo, DBFILE *fi, long fosta, long fista, long n,int *fields);
long db_fappend(DBFILE *fo, DBFILE *fi, long starec, long n, int *fields);
int db_copy(char *tofname, char *ffname, int flag, long starec, long n,int *fields);
long db_goto(DBFILE *f, long record);
long db_getrecnum(DBFILE *f);
long db_skip(DBFILE *f, long n);
int db_delete(DBFILE *f, long recs);
int db_recall(DBFILE *f, long recs);
int db_pack(char *fname);
/*** DBFIO.H END ***/
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : DB_CLOSE.C *
* 编制人日期 : 湖北省公安县统计局 毛 泽 发 (1991.8) *
***************************************************************************
*/
#include <dos.h>
#include <stdlib.h>
#include "dbfio.h"
#ifdef TURBOC
#include <alloc.h>
#else
#include <malloc.h>
#endif
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_DATE *
* 参 数: DAT 数据文件头结构指针 *
* 功 能: 读系统当前时间到头结构中 *
* 返 回 值: *
***************************************************************************
*/
void db_date(DBFSTR *dat)
{
char *p, q[5];
union REGS inr;
inr.h.ah = 0x2a;
intdos(&inr, &inr);
p = itoa(inr.x.cx, q, 10) + 2;
dat->date_n = atoi(p);
dat->date_y = inr.h.dh;
dat->date_r = inr.h.dl;
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_CLOSE *
* 参 数: f DBASE 数据文件指针 *
* 功 能: 关闭一个 DBASE 数据文件 *
* 返 回 值: 成功 1,否则 0 *
***************************************************************************
*/
int db_close(DBFILE *f, int flag)
{
if(!f->fdb) return 0; /* 无效文件号 */
if(flag){ /* 如已向文件写数据,更新文件头结构 */
db_date(&f->stru);
if(!db_writestr(f, 0)) return 0;
}
if(fclose(f->fdb) == EOF){
db_error = 5;
return 0;
}
free(f->start);
f->fdb = NULL;
return 1;
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: db_writestr *
* 参 数: f:DBASE 数据文件指针,flag = 0不写字段信息,否则整个文件头信息 *
* 功 能: 写文件头信息到数据文件 *
* 返 回 值: 成功 1,否则 0 *
***************************************************************************
*/
int db_writestr(DBFILE *f, int flag)
{
int dbend = DBFSTREND;
if(fseek(f->fdb, 0l, 0)) return 0;
if(!fwrite(&f->stru, sizeof(DBFSTR), 1, f->fdb)) goto err;
if(flag){
if(fwrite(f->start, sizeof(DBFIELD), f->fields, f->fdb) != f->fields)
goto err;
if(!fwrite(&dbend, sizeof(int), 1, f->fdb)) goto err;
}
return 1;
err:
db_error = 4;
}
/*** DB_CLOSE.C END ***/
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : DB_COPY.C *
* 编制人日期 : 湖北省公安县统计局 毛 泽 发 (1991.8) *
***************************************************************************
*/
#include "dbfio.h"
#ifdef TURBOC
#include <alloc.h>
#else
#include <malloc.h>
#endif
#include <string.h>
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_COPY *
* 参 数: tofname:复制文件名;ffname:被复制文件名;flag:0 只复制结构,1 包*
* 括记录;starec:起始记录(0-N); n:记录数;如 n = 0,start及以下全 *
* 部记录;fileds:字段序号表,以 -1 结尾,如fields = 0 复制全部字段*
* 功 能: 按条件复制一个文件内容到另一文件中 *
* 返 回 值: 成功 0,被复制文件不存在 -1, 复制失败 -2 *
***************************************************************************
*/
int db_copy(char *tofname, char *ffname, int flag, long starec, long n,
int *fields)
{
DBFILE *fi, *fo, *db_findfile();
register int i = 0, j;
if((fo = db_findfile()) == NULL) return -2;
if((fo->fdb = fopen(tofname, "w+b")) == NULL){
db_error = 6;
return -2;
}
if((fi = db_use(ffname)) == NULL) return -1;
memcpy((char *)&fo->stru, (char *)&fi->stru, sizeof(DBFSTR));
if(!fields){
fo->start = fi->start;
fo->fields = fi->fields;
}
else{
for(; fields[i] >= 0 && fields[i] < fi->fields && i < MAXFIELD; i ++);
j = sizeof(DBFIELD) * i;
if((fo->start = (DBFIELD *)malloc(j)) == NULL){
db_close(fi, 0);
fclose(fo->fdb);
fo->fdb = NULL;
return -2;
}
memset(fo->start, 0, j);
fo->fields = i;
fo->stru.lrd = 0;
for(i = 0; i < fo->fields; i ++){
j = fields[i];
memcpy((char *)&fo->start[i], (char *)&fi->start[j], sizeof(DBFIELD));
fo->stru.lrd += fo->start[i].width;
}
fo->stru.lrd += 1;
fo->stru.ldb = i * 32 + 34;
}
if(flag) db_cpyrec(fo, fi, 0l, starec, n, fields);
db_close(fi, 0);
i = db_writestr(fo, 1);
if(fields) free(fo->start);
fclose(fo->fdb);
fo->fdb = NULL;
if(!i){
remove(tofname);
return -2;
}
}
/*** DB_COPY.C END ***/
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : DB_CPYRE.C *
* 编制人日期 : 湖北省公安县统计局 毛 泽 发 (1991.8) *
***************************************************************************
*/
#include "dbfio.h"
#ifdef TURBOC
#include <alloc.h>
#else
#include <malloc.h>
#endif
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_CPYREC *
* 参 数: fo,fi:分别为复制.被复制文件指针;fosta,fista:分别为fo,fi所指文*
* 件起始记录;n:记录数,n = 0,包括 fista 在内以下全部记录;fields;*
* 字段序号表,为 NULL 复制全部字段 *
* 功 能: 复制 fi 文件的记录到 fo 文件,如 fo 与 fi 或者 fields 字段数. *
* 对应字段类型.长度及小数不匹配,数据库会出错 *
* 返 回 值: fo 文件实际记录数(注:必须调用 DB_CLOSE 关库后,文件记录才更新)*
***************************************************************************
*/
long db_cpyrec(DBFILE *fo, DBFILE *fi, long fosta, long fista, long n,
int *fields)
{
register unsigned long i;
unsigned long p, q;
register int j, k;
char *buf;
if((buf = (char *)malloc(fi->stru.lrd)) == NULL) return 0l;
if(db_goto(fo, fosta) == -1l || db_goto(fi, fista) == -1l) return 0l;
if(!n) n = fi->stru.record - fista;
if(!fields){
for(i = 0l; i < n; i ++){
if(!fread(buf, fi->stru.lrd, 1, fi->fdb)) break;
if(*buf == DELFLAG){
i --; n --;
continue;
}
if(!fwrite(buf, fo->stru.lrd, 1, fo->fdb)) break;
}
}
else{
char *s, *p;
int m, h;
if((s = (char *)malloc(fo->stru.lrd)) == NULL) return 0l;
for(i = 0l; i < n; i ++){
p = s;
if(!fread(buf, fi->stru.lrd, 1, fi->fdb)) break;
if(*buf == DELFLAG){
i --; n --;
continue;
}
*p ++ = *buf;
for(m = 0; fields[m] >= 0; m ++){
for(k = 0, j = 1; k < fields[m]; j += fi->start[k].width, k ++);
for(h = k, k = j, j += fi->start[h].width; k < j; k ++) *p ++ = buf[k];
}
if(!fwrite(s, fo->stru.lrd, 1, fo->fdb)) break;
}
free(s);
}
free(buf);
fo->stru.record = fosta + i;
return fo->stru.record;
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_FAPPEND *
* 参 数: starec:为被追加文件起始记录.其余参数 同 DB_CPYREC. *
* 功 能: 追加 fi 文件的记录到 fo 文件尾部,其它同 DB_CPYREC *
* 返 回 值: fo 文件实际记录数,其它同 DB_CPYREC *
***************************************************************************
*/
long db_fappend(DBFILE *fo, DBFILE *fi, long starec, long n, int *fields)
{
return(db_cpyrec(fo, fi, fo->stru.record, starec, n, fields));
}
/*** DB_CPYRE.C END ***/
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : DB_CREAT.C *
* 编制人日期 : 湖北省公安县统计局 毛 泽 发 (1991.8) *
***************************************************************************
*/
#include "dbfio.h"
#ifdef TURBOC
#include <alloc.h>
#else
#include <malloc.h>
#endif
#include <string.h>
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_VERIFIELD *
* 参 数: fd:外部字段结构数组首指针,末尾字段名首字符应为 "" *
* 功 能: 检验并校正字段类型.长度和小数位 *
* 返 回 值: 字段数 *
***************************************************************************
*/
int db_verifield(struct dbf *fd)
{
register int i, j;
for(i = 0; fd[i].name[0] && i < MAXFIELD; i ++){
if(fd[i].type > 'b' && fd[i].type < 'o') fd[i].type -= 32;
if(fd[i].type != 'N') fd[i].dec = 0;
if(fd[i].width == 0) fd[i].width = 1;
switch(fd[i].type){
case 'C':
if(fd[i].width > MAXFIESIZE) fd[i].width = MAXFIESIZE;
break;
case 'N':
if(fd[i].dec > MAXDEC) fd[i].dec = MAXDEC;
if(fd[i].width > MAXWIDTH) fd[i].dec = MAXWIDTH;
if((fd[i].width - fd[i].dec) < 2) fd[i].width = fd[i].dec + 2;
break;
case 'L':
fd[i].width = 1; break;
case 'D':
fd[i].width = 8; break;
case 'M':
fd[i].width = 10; break;
default:
if(fd[i].name[0]){
fd[i].type = 'C'; i -= 2;
}
}
}
return i;
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: db_create *
* 参 数: fname:文件名; fd:同上 *
* 功 能: 以写/读方式创建一个 DBASE 数据文件 *
* 返 回 值: 成功 DBFILE 指针, 出错 NULL *
***************************************************************************
*/
DBFILE *db_create(char *fname, struct dbf *fd)
{
DBFILE *f, *db_findfile();
register int n, i = 0;
if((f = db_findfile()) == NULL) return NULL;
if((f->fields = db_verifield(fd)) == NULL) return NULL;
n = sizeof(DBFIELD) * f->fields;
if((f->start = (DBFIELD *)malloc(n)) == NULL) return NULL;
memset(f->start, 0, n);
if((f->fdb = fopen(fname, "w+b")) == NULL){
free(f->start);
db_error = 6;
return NULL;
}
/* 将定义的外部字段信息拷贝到内部字段结构中 */
for(n = 0; i < f->fields; i ++){
strcpy(f->start[i].name, fd[i].name);
f->start[i].type = fd[i].type;
f->start[i].width = fd[i].width;
f->start[i].dec = fd[i].dec;
n += fd[i].width;
}
/* 初始化文件头结构 */
f->stru.dbf3 = DBFFILE;
f->stru.record = 0l;
f->stru.ldb = f->fields * 32 + 34;
f->stru.lrd = n + 1;
memset(f->stru.nul, 0, 20);
db_date(&f->stru);
if(!db_writestr(f, 1)){
db_close(f, 0);
remove(fname);
return NULL;
}
return f;
}
/*** DB_CREAT.C END ***/
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : DB_DEL.C *
* 编制人日期 : 湖北省公安县统计局 毛 泽 发 (1991.8) *
***************************************************************************
*/
#include "dbfio.h"
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_DELETE *
* 参 数: f:DBASE 数据文件指针;recs:记录号 *
* 功 能: 给记录打上删除标记 *
* 返 回 值: 成功 DELFLAG, 出错 EOF *
***************************************************************************
*/
int db_delete(DBFILE *f, long recs)
{
if(db_goto(f, recs) == -1) return EOF;
return(fputc(DELFLAG, f->fdb));
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_RECALL *
* 参 数: 同 DB_DELETE *
* 功 能: 恢复打上删除标记的记录 *
* 返 回 值: 成功 SPACE, 出错 EOF *
***************************************************************************
*/
int db_recall(DBFILE *f, long recs)
{
if(db_goto(f, recs) == -1) return EOF;
return(fputc(32, f->fdb));
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_PACK *
* 参 数: fname:DBASE 数据文件名 *
* 功 能: 重新组合数据库,以去掉带删除标记的记录 *
* 返 回 值: 成功 0 ,出错非零 *
***************************************************************************
*/
int db_pack(char *fname)
{
if(db_copy("$$$$$$$$.$$$", fname, 1, 0l, 0l, NULL)) return -1;
if(remove(fname) == -1) return -1;
return(rename("$$$$$$$$.$$$", fname));
}
/*** DB_DEL.C END ***/
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : DB_SEEK.C *
* 编制人日期 : 湖北省公安县统计局 毛 泽 发 (1991.8) *
***************************************************************************
*/
#include "dbfio.h"
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_GOTO *
* 参 数: f: DBASE 文件指针;record:记录号 = TOP 首记录, = BOTTOM 末记录*
* 功 能: 移动文件指针到指定的记录号 *
* 返 回 值: 成功:指针在文件的实际位置(字节数),出错 -1 *
***************************************************************************
*/
long db_goto(DBFILE *f, long record)
{
if(record == BOTTOM) record = f->stru.record - 1;
if(record < 0 || record > f->stru.record) record = f->stru.record;
record = record * f->stru.lrd + f->stru.ldb;
if(fseek(f->fdb, record, 0)){
db_error = 7;
return -1l;
}
return record;
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_GETRECNUM *
* 参 数: f: DBASE 文件指针 *
* 功 能: 返回当前文件指针所在位置的记录号(注:指针不一定指在记录首字节)*
* 返 回 值: 记录号,出错 -n *
***************************************************************************
*/
long db_getrecnum(DBFILE *f)
{
long record;
if((record = ftell(f->fdb)) == -1l){
db_error = 7;
return -1l;
}
record = (record - f->stru.ldb) / f->stru.lrd;
return record;
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_SKIP *
* 参 数: f: DBASE 文件指针; n:记录数 *
* 功 能: 文件指针从当前记录处移动 N 个记录位置 *
* 返 回 值: 同 DB_GOTO *
***************************************************************************
*/
long db_skip(DBFILE *f, long n)
{
long record;
if((record = db_getrecnum(f)) == -1l) return -1l;
return(db_goto(f, record + n));
}
/*** DB_SEEK.C END ***/
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : DB_USE.C *
* 编制人日期 : 湖北省公安县统计局 毛 泽 发 (1991.8) *
***************************************************************************
*/
#include "dbfio.h"
#ifdef TURBOC
#include <alloc.h>
#else
#include <malloc.h>
#endif
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: db_getstr *
* 参 数: f 数据文件指针 *
* 功 能: 读数据文件头信息 *
* 返 回 值: 成功 1,否则 0 *
***************************************************************************
*/
int db_getstr(DBFILE *f)
{
/* 读文件头结构 */
if(!fread(&f->stru, sizeof(DBFSTR), 1, f->fdb) || f->stru.dbf3 != DBFFILE)
goto err;
/* 读字段结构 */
f->fields = db_getfields(f->stru);
if((f->start = (DBFIELD *)malloc(sizeof(DBFIELD) * f->fields)) == NULL)
goto err;
if(fread(f->start, sizeof(DBFIELD), f->fields, f->fdb) != f->fields){
free(f->start);
goto err;
}
return 1;
err:
db_error = 3;
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_USE *
* 参 数: 以读/写方式打开一个已存在的数据文件 *
* 功 能: fname 数据文件名 *
* 返 回 值: 成功 DBFILE 文件指针, 出错 NULL *
***************************************************************************
*/
DBFILE *db_use(char *fname)
{
DBFILE *f, *db_findfile();
if((f = db_findfile()) == NULL) return NULL; /* 数据文件打开数超过 MAXFILES */
if((f->fdb = fopen(fname, "r+b")) == NULL){
db_error = 2;
return NULL; /* 文件不存在 */
}
if(!db_getstr(f)){
fclose(f->fdb);
f->fdb = NULL;
return NULL; /* 非 DBASE 数据文件或读文件头信息有错 */
}
return f; /* 返回文件指针 */
}
/*** DB_USE.C END ***/
Ok，欢迎大家光临！
更新(2008.8.6)：果然贴漏了一个文件，现补齐在下面：
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : DB_INIT.C *
* 编制人日期 : 湖北省公安县统计局 毛 泽 发 (1991.8) *
***************************************************************************
*/
#include "dbfio.h"
static DBFILE db_str[MAXFILES]; /* DBASE 数据文件指针数组 */
static char inits = 0;
unsigned char db_error = 0;
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: initdbfstr *
* 参 数: *
* 功 能: 初始化 DBASE 数据文件指针数组 db_str[] *
* 返 回 值: *
***************************************************************************
*/
void initdbfstr(void)
{
register int i;
undberror();
for(i = 0; i < MAXFILES; i ++)
db_str[i].fdb = NULL; /* 文件指针初始化为 NULL */
inits = 1;
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: db_findfile *
* 参 数: *
* 功 能: 在 db_str[] 中查找未使用的文件指针 *
* 返 回 值: 成功 DBFILE 指针, 否则 NULL *
***************************************************************************
*/
DBFILE *db_findfile(void)
{
register int i;
if(!inits) initdbfstr(); /* 初始化 DBASE 数据文件指针数组 */
for(i = MAXFILES - 1; i >= 0 && db_str[i].fdb; i --);
if(i == -1){
db_error = 1;
return NULL;
}
return(&db_str[i]);
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: db_getfields *
* 参 数: str 文件头结构变量 *
* 功 能: 计算数据文件字段数 *
* 返 回 值: 数据文件字段数 *
***************************************************************************
*/
int db_getfields(DBFSTR str) /* 计算并返回文件字段数 */
{
return((str.ldb - 34) / 32); /* (文件头结构长 - 34) / 32 */
}
void undberror(void)
{
db_error = 0;
}
/*** DB_INIT.C END ***/
其实还有个通用的用B+树建立本地数据索引文件的工具代码，本想在《C语言版的磁盘文件分片归并排序函数》之后贴上来，但是由于目前32位计算机与以前的16位计算机的数据类型长度不一样，而索引文件是分索引节点块写道磁盘文件上的，数据类型长度不同必定引起移植错误（以前没想这么多 ^_^ ），再看到《C语言版的磁盘文件分片归并排序函数》很受朋友们捧场（一天的电击量达到了1000多），错误多了会挨骂的，所以，只能等春节后找几天时间改一下（代码很长很复杂的）后再贴出来。顺便在此感谢大家的捧场，也感谢CSDN编辑把文章挂在了首页，才能让这么多的朋友光临。
需要说明的是，1991年我正好业余学习计算机语言2年多时间，其中包括学习BASIC、PASCAL及汇编等，所以C语言可能掌握的不大好，更谈不上代码设计，加上我又不懂英语，标识符命名也不规范等，因此有什么不对的地方可以写信给我（maozefa@hotmail.com），也可留言，但是代码在16位机上绝对是可行的，记得我以前经常用的，但是要用到32位机上，和DBF文件有关的几个结构的数据类型要改一下，很简单的，只是把int变为short就行了的（好像就2处地方），我自己没改是因为该代码与2个通用排序函数不一样，目前实用价值不大，就让它保持原样吧！
下面是代码，没写测试程序：
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : MDBFIO.H *
* 编 制 人 : 湖北省公安县统计局 毛 泽 发 *
* 日 期 : 1991.8 *
***************************************************************************
*/
#include <stdio.h>
#define MAXFILES 10
#define MAXFIELD 128 /* ... ... 记录最大字段数 */
#define MAXNAMES 11 /* ... ... 字段名最大长度 */
#define MAXFIESIZE 254 /* ... ... 字符字段最大位数 */
#define MAXWIDTH 19 /* ... ... 数据字段最大位数 */
#define MAXDEC 15 /* ... ... 数据小数最大位数 */
#define DBFFILE 3 /* ... ... 头结构开始标记 */
#define DBFSTREND 0x000d /* ... ... 头结构结束标记 */
#define DBFEND 26 /* ... ... 文件结束标记 */
#define DELFLAG '*' /* 记录删除标记 */
#define TOP 0l /* 首记录标志 */
#define BOTTOM -1 /* 末记录标志 */
#define SPACE 32
/* 内部字段信息结构 */
typedef struct dbfield{
char name[MAXNAMES]; /* 字段名 */
char type; /* 字段类型 */
void far *tech; /* 字段数据地址 */
unsigned char width, dec; /* 字段长度及小数位 */
char nul[14]; /* 保留字节 */
}DBFIELD;
/* DBF 文件头结构 */
typedef struct dbfstr {
unsigned char dbf3; /* DBASE 数据文件标记 */
unsigned char date_n,date_y,date_r; /* 年月日变量 */
unsigned long record; /* 记录数变量 */
unsigned int ldb,lrd; /* 头结构.记录长度变量 */
char nul[20]; /* 头结构保留字节变量 */
}DBFSTR;
/* DBF 文件把柄结构 */
typedef struct dbfile {
FILE *fdb; /* 文件指针 */
DBFSTR stru; /* 文件头结构 */
DBFIELD *start; /* 字段结构首指针 */
char fields; /* 字段数 */
}DBFILE;
/* 外部字段信息结构 */
struct dbf{
char name[MAXNAMES]; /* 字段名变量 */
char type; /* 字段类型变量 */
unsigned char width,dec; /* 字段长度及小数位变量 */
};
/* db_error DBASE 文件操作出错信息:
0: 无错误; 1: 打开文件过多; 2: 文件未找到; 3: 读文件头失败; 4: 写文件头失败;
5: 关闭文件失败; 6: 打开文件失败; 7: 移动文件指针出错.
*/
extern unsigned char db_error;
int db_getfields(DBFSTR str); /* 计算并返回文件字段数 */
void undberror(void); /* 清除 DB_ERROR 错误信息 */
int db_getstr(DBFILE *f); /* 读文件头信息, 成功返回 1,否则 0 */
DBFILE *db_use(char *fname); /* 打开一个已存在文件,返回指针供读写, 出错返回 NULL */
/* 根据外部字段结构创建一个 .DBF 文件,成功返回指针供读写,出错返回 NULL */
DBFILE *db_create(char *fname, struct dbf *fd);
/* 关闭一个文件,FLAG = 0,不更新文件头,否则更新;成功返回 1,否则 0 */
int db_close(DBFILE *f, int flag);
/* 写文件头信息,FLAG = 0 不写字段信息,成功返回 1,否则 0 */
int db_writestr(DBFILE *f, int flag);
long db_cpyrec(DBFILE *fo, DBFILE *fi, long fosta, long fista, long n,int *fields);
long db_fappend(DBFILE *fo, DBFILE *fi, long starec, long n, int *fields);
int db_copy(char *tofname, char *ffname, int flag, long starec, long n,int *fields);
long db_goto(DBFILE *f, long record);
long db_getrecnum(DBFILE *f);
long db_skip(DBFILE *f, long n);
int db_delete(DBFILE *f, long recs);
int db_recall(DBFILE *f, long recs);
int db_pack(char *fname);
/*** DBFIO.H END ***/
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : DB_CLOSE.C *
* 编制人日期 : 湖北省公安县统计局 毛 泽 发 (1991.8) *
***************************************************************************
*/
#include <dos.h>
#include <stdlib.h>
#include "dbfio.h"
#ifdef TURBOC
#include <alloc.h>
#else
#include <malloc.h>
#endif
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_DATE *
* 参 数: DAT 数据文件头结构指针 *
* 功 能: 读系统当前时间到头结构中 *
* 返 回 值: *
***************************************************************************
*/
void db_date(DBFSTR *dat)
{
char *p, q[5];
union REGS inr;
inr.h.ah = 0x2a;
intdos(&inr, &inr);
p = itoa(inr.x.cx, q, 10) + 2;
dat->date_n = atoi(p);
dat->date_y = inr.h.dh;
dat->date_r = inr.h.dl;
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_CLOSE *
* 参 数: f DBASE 数据文件指针 *
* 功 能: 关闭一个 DBASE 数据文件 *
* 返 回 值: 成功 1,否则 0 *
***************************************************************************
*/
int db_close(DBFILE *f, int flag)
{
if(!f->fdb) return 0; /* 无效文件号 */
if(flag){ /* 如已向文件写数据,更新文件头结构 */
db_date(&f->stru);
if(!db_writestr(f, 0)) return 0;
}
if(fclose(f->fdb) == EOF){
db_error = 5;
return 0;
}
free(f->start);
f->fdb = NULL;
return 1;
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: db_writestr *
* 参 数: f:DBASE 数据文件指针,flag = 0不写字段信息,否则整个文件头信息 *
* 功 能: 写文件头信息到数据文件 *
* 返 回 值: 成功 1,否则 0 *
***************************************************************************
*/
int db_writestr(DBFILE *f, int flag)
{
int dbend = DBFSTREND;
if(fseek(f->fdb, 0l, 0)) return 0;
if(!fwrite(&f->stru, sizeof(DBFSTR), 1, f->fdb)) goto err;
if(flag){
if(fwrite(f->start, sizeof(DBFIELD), f->fields, f->fdb) != f->fields)
goto err;
if(!fwrite(&dbend, sizeof(int), 1, f->fdb)) goto err;
}
return 1;
err:
db_error = 4;
}
/*** DB_CLOSE.C END ***/
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : DB_COPY.C *
* 编制人日期 : 湖北省公安县统计局 毛 泽 发 (1991.8) *
***************************************************************************
*/
#include "dbfio.h"
#ifdef TURBOC
#include <alloc.h>
#else
#include <malloc.h>
#endif
#include <string.h>
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_COPY *
* 参 数: tofname:复制文件名;ffname:被复制文件名;flag:0 只复制结构,1 包*
* 括记录;starec:起始记录(0-N); n:记录数;如 n = 0,start及以下全 *
* 部记录;fileds:字段序号表,以 -1 结尾,如fields = 0 复制全部字段*
* 功 能: 按条件复制一个文件内容到另一文件中 *
* 返 回 值: 成功 0,被复制文件不存在 -1, 复制失败 -2 *
***************************************************************************
*/
int db_copy(char *tofname, char *ffname, int flag, long starec, long n,
int *fields)
{
DBFILE *fi, *fo, *db_findfile();
register int i = 0, j;
if((fo = db_findfile()) == NULL) return -2;
if((fo->fdb = fopen(tofname, "w+b")) == NULL){
db_error = 6;
return -2;
}
if((fi = db_use(ffname)) == NULL) return -1;
memcpy((char *)&fo->stru, (char *)&fi->stru, sizeof(DBFSTR));
if(!fields){
fo->start = fi->start;
fo->fields = fi->fields;
}
else{
for(; fields[i] >= 0 && fields[i] < fi->fields && i < MAXFIELD; i ++);
j = sizeof(DBFIELD) * i;
if((fo->start = (DBFIELD *)malloc(j)) == NULL){
db_close(fi, 0);
fclose(fo->fdb);
fo->fdb = NULL;
return -2;
}
memset(fo->start, 0, j);
fo->fields = i;
fo->stru.lrd = 0;
for(i = 0; i < fo->fields; i ++){
j = fields[i];
memcpy((char *)&fo->start[i], (char *)&fi->start[j], sizeof(DBFIELD));
fo->stru.lrd += fo->start[i].width;
}
fo->stru.lrd += 1;
fo->stru.ldb = i * 32 + 34;
}
if(flag) db_cpyrec(fo, fi, 0l, starec, n, fields);
db_close(fi, 0);
i = db_writestr(fo, 1);
if(fields) free(fo->start);
fclose(fo->fdb);
fo->fdb = NULL;
if(!i){
remove(tofname);
return -2;
}
}
/*** DB_COPY.C END ***/
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : DB_CPYRE.C *
* 编制人日期 : 湖北省公安县统计局 毛 泽 发 (1991.8) *
***************************************************************************
*/
#include "dbfio.h"
#ifdef TURBOC
#include <alloc.h>
#else
#include <malloc.h>
#endif
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_CPYREC *
* 参 数: fo,fi:分别为复制.被复制文件指针;fosta,fista:分别为fo,fi所指文*
* 件起始记录;n:记录数,n = 0,包括 fista 在内以下全部记录;fields;*
* 字段序号表,为 NULL 复制全部字段 *
* 功 能: 复制 fi 文件的记录到 fo 文件,如 fo 与 fi 或者 fields 字段数. *
* 对应字段类型.长度及小数不匹配,数据库会出错 *
* 返 回 值: fo 文件实际记录数(注:必须调用 DB_CLOSE 关库后,文件记录才更新)*
***************************************************************************
*/
long db_cpyrec(DBFILE *fo, DBFILE *fi, long fosta, long fista, long n,
int *fields)
{
register unsigned long i;
unsigned long p, q;
register int j, k;
char *buf;
if((buf = (char *)malloc(fi->stru.lrd)) == NULL) return 0l;
if(db_goto(fo, fosta) == -1l || db_goto(fi, fista) == -1l) return 0l;
if(!n) n = fi->stru.record - fista;
if(!fields){
for(i = 0l; i < n; i ++){
if(!fread(buf, fi->stru.lrd, 1, fi->fdb)) break;
if(*buf == DELFLAG){
i --; n --;
continue;
}
if(!fwrite(buf, fo->stru.lrd, 1, fo->fdb)) break;
}
}
else{
char *s, *p;
int m, h;
if((s = (char *)malloc(fo->stru.lrd)) == NULL) return 0l;
for(i = 0l; i < n; i ++){
p = s;
if(!fread(buf, fi->stru.lrd, 1, fi->fdb)) break;
if(*buf == DELFLAG){
i --; n --;
continue;
}
*p ++ = *buf;
for(m = 0; fields[m] >= 0; m ++){
for(k = 0, j = 1; k < fields[m]; j += fi->start[k].width, k ++);
for(h = k, k = j, j += fi->start[h].width; k < j; k ++) *p ++ = buf[k];
}
if(!fwrite(s, fo->stru.lrd, 1, fo->fdb)) break;
}
free(s);
}
free(buf);
fo->stru.record = fosta + i;
return fo->stru.record;
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_FAPPEND *
* 参 数: starec:为被追加文件起始记录.其余参数 同 DB_CPYREC. *
* 功 能: 追加 fi 文件的记录到 fo 文件尾部,其它同 DB_CPYREC *
* 返 回 值: fo 文件实际记录数,其它同 DB_CPYREC *
***************************************************************************
*/
long db_fappend(DBFILE *fo, DBFILE *fi, long starec, long n, int *fields)
{
return(db_cpyrec(fo, fi, fo->stru.record, starec, n, fields));
}
/*** DB_CPYRE.C END ***/
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : DB_CREAT.C *
* 编制人日期 : 湖北省公安县统计局 毛 泽 发 (1991.8) *
***************************************************************************
*/
#include "dbfio.h"
#ifdef TURBOC
#include <alloc.h>
#else
#include <malloc.h>
#endif
#include <string.h>
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_VERIFIELD *
* 参 数: fd:外部字段结构数组首指针,末尾字段名首字符应为 "" *
* 功 能: 检验并校正字段类型.长度和小数位 *
* 返 回 值: 字段数 *
***************************************************************************
*/
int db_verifield(struct dbf *fd)
{
register int i, j;
for(i = 0; fd[i].name[0] && i < MAXFIELD; i ++){
if(fd[i].type > 'b' && fd[i].type < 'o') fd[i].type -= 32;
if(fd[i].type != 'N') fd[i].dec = 0;
if(fd[i].width == 0) fd[i].width = 1;
switch(fd[i].type){
case 'C':
if(fd[i].width > MAXFIESIZE) fd[i].width = MAXFIESIZE;
break;
case 'N':
if(fd[i].dec > MAXDEC) fd[i].dec = MAXDEC;
if(fd[i].width > MAXWIDTH) fd[i].dec = MAXWIDTH;
if((fd[i].width - fd[i].dec) < 2) fd[i].width = fd[i].dec + 2;
break;
case 'L':
fd[i].width = 1; break;
case 'D':
fd[i].width = 8; break;
case 'M':
fd[i].width = 10; break;
default:
if(fd[i].name[0]){
fd[i].type = 'C'; i -= 2;
}
}
}
return i;
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: db_create *
* 参 数: fname:文件名; fd:同上 *
* 功 能: 以写/读方式创建一个 DBASE 数据文件 *
* 返 回 值: 成功 DBFILE 指针, 出错 NULL *
***************************************************************************
*/
DBFILE *db_create(char *fname, struct dbf *fd)
{
DBFILE *f, *db_findfile();
register int n, i = 0;
if((f = db_findfile()) == NULL) return NULL;
if((f->fields = db_verifield(fd)) == NULL) return NULL;
n = sizeof(DBFIELD) * f->fields;
if((f->start = (DBFIELD *)malloc(n)) == NULL) return NULL;
memset(f->start, 0, n);
if((f->fdb = fopen(fname, "w+b")) == NULL){
free(f->start);
db_error = 6;
return NULL;
}
/* 将定义的外部字段信息拷贝到内部字段结构中 */
for(n = 0; i < f->fields; i ++){
strcpy(f->start[i].name, fd[i].name);
f->start[i].type = fd[i].type;
f->start[i].width = fd[i].width;
f->start[i].dec = fd[i].dec;
n += fd[i].width;
}
/* 初始化文件头结构 */
f->stru.dbf3 = DBFFILE;
f->stru.record = 0l;
f->stru.ldb = f->fields * 32 + 34;
f->stru.lrd = n + 1;
memset(f->stru.nul, 0, 20);
db_date(&f->stru);
if(!db_writestr(f, 1)){
db_close(f, 0);
remove(fname);
return NULL;
}
return f;
}
/*** DB_CREAT.C END ***/
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : DB_DEL.C *
* 编制人日期 : 湖北省公安县统计局 毛 泽 发 (1991.8) *
***************************************************************************
*/
#include "dbfio.h"
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_DELETE *
* 参 数: f:DBASE 数据文件指针;recs:记录号 *
* 功 能: 给记录打上删除标记 *
* 返 回 值: 成功 DELFLAG, 出错 EOF *
***************************************************************************
*/
int db_delete(DBFILE *f, long recs)
{
if(db_goto(f, recs) == -1) return EOF;
return(fputc(DELFLAG, f->fdb));
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_RECALL *
* 参 数: 同 DB_DELETE *
* 功 能: 恢复打上删除标记的记录 *
* 返 回 值: 成功 SPACE, 出错 EOF *
***************************************************************************
*/
int db_recall(DBFILE *f, long recs)
{
if(db_goto(f, recs) == -1) return EOF;
return(fputc(32, f->fdb));
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_PACK *
* 参 数: fname:DBASE 数据文件名 *
* 功 能: 重新组合数据库,以去掉带删除标记的记录 *
* 返 回 值: 成功 0 ,出错非零 *
***************************************************************************
*/
int db_pack(char *fname)
{
if(db_copy("$$$$$$$$.$$$", fname, 1, 0l, 0l, NULL)) return -1;
if(remove(fname) == -1) return -1;
return(rename("$$$$$$$$.$$$", fname));
}
/*** DB_DEL.C END ***/
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : DB_SEEK.C *
* 编制人日期 : 湖北省公安县统计局 毛 泽 发 (1991.8) *
***************************************************************************
*/
#include "dbfio.h"
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_GOTO *
* 参 数: f: DBASE 文件指针;record:记录号 = TOP 首记录, = BOTTOM 末记录*
* 功 能: 移动文件指针到指定的记录号 *
* 返 回 值: 成功:指针在文件的实际位置(字节数),出错 -1 *
***************************************************************************
*/
long db_goto(DBFILE *f, long record)
{
if(record == BOTTOM) record = f->stru.record - 1;
if(record < 0 || record > f->stru.record) record = f->stru.record;
record = record * f->stru.lrd + f->stru.ldb;
if(fseek(f->fdb, record, 0)){
db_error = 7;
return -1l;
}
return record;
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_GETRECNUM *
* 参 数: f: DBASE 文件指针 *
* 功 能: 返回当前文件指针所在位置的记录号(注:指针不一定指在记录首字节)*
* 返 回 值: 记录号,出错 -n *
***************************************************************************
*/
long db_getrecnum(DBFILE *f)
{
long record;
if((record = ftell(f->fdb)) == -1l){
db_error = 7;
return -1l;
}
record = (record - f->stru.ldb) / f->stru.lrd;
return record;
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_SKIP *
* 参 数: f: DBASE 文件指针; n:记录数 *
* 功 能: 文件指针从当前记录处移动 N 个记录位置 *
* 返 回 值: 同 DB_GOTO *
***************************************************************************
*/
long db_skip(DBFILE *f, long n)
{
long record;
if((record = db_getrecnum(f)) == -1l) return -1l;
return(db_goto(f, record + n));
}
/*** DB_SEEK.C END ***/
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : DB_USE.C *
* 编制人日期 : 湖北省公安县统计局 毛 泽 发 (1991.8) *
***************************************************************************
*/
#include "dbfio.h"
#ifdef TURBOC
#include <alloc.h>
#else
#include <malloc.h>
#endif
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: db_getstr *
* 参 数: f 数据文件指针 *
* 功 能: 读数据文件头信息 *
* 返 回 值: 成功 1,否则 0 *
***************************************************************************
*/
int db_getstr(DBFILE *f)
{
/* 读文件头结构 */
if(!fread(&f->stru, sizeof(DBFSTR), 1, f->fdb) || f->stru.dbf3 != DBFFILE)
goto err;
/* 读字段结构 */
f->fields = db_getfields(f->stru);
if((f->start = (DBFIELD *)malloc(sizeof(DBFIELD) * f->fields)) == NULL)
goto err;
if(fread(f->start, sizeof(DBFIELD), f->fields, f->fdb) != f->fields){
free(f->start);
goto err;
}
return 1;
err:
db_error = 3;
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: DB_USE *
* 参 数: 以读/写方式打开一个已存在的数据文件 *
* 功 能: fname 数据文件名 *
* 返 回 值: 成功 DBFILE 文件指针, 出错 NULL *
***************************************************************************
*/
DBFILE *db_use(char *fname)
{
DBFILE *f, *db_findfile();
if((f = db_findfile()) == NULL) return NULL; /* 数据文件打开数超过 MAXFILES */
if((f->fdb = fopen(fname, "r+b")) == NULL){
db_error = 2;
return NULL; /* 文件不存在 */
}
if(!db_getstr(f)){
fclose(f->fdb);
f->fdb = NULL;
return NULL; /* 非 DBASE 数据文件或读文件头信息有错 */
}
return f; /* 返回文件指针 */
}
/*** DB_USE.C END ***/
Ok，欢迎大家光临！
更新(2008.8.6)：果然贴漏了一个文件，现补齐在下面：
/*
********************* DBASE 数据文件操作 C 库文件 ************************
* 文 件 名 : DB_INIT.C *
* 编制人日期 : 湖北省公安县统计局 毛 泽 发 (1991.8) *
***************************************************************************
*/
#include "dbfio.h"
static DBFILE db_str[MAXFILES]; /* DBASE 数据文件指针数组 */
static char inits = 0;
unsigned char db_error = 0;
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: initdbfstr *
* 参 数: *
* 功 能: 初始化 DBASE 数据文件指针数组 db_str[] *
* 返 回 值: *
***************************************************************************
*/
void initdbfstr(void)
{
register int i;
undberror();
for(i = 0; i < MAXFILES; i ++)
db_str[i].fdb = NULL; /* 文件指针初始化为 NULL */
inits = 1;
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: db_findfile *
* 参 数: *
* 功 能: 在 db_str[] 中查找未使用的文件指针 *
* 返 回 值: 成功 DBFILE 指针, 否则 NULL *
***************************************************************************
*/
DBFILE *db_findfile(void)
{
register int i;
if(!inits) initdbfstr(); /* 初始化 DBASE 数据文件指针数组 */
for(i = MAXFILES - 1; i >= 0 && db_str[i].fdb; i --);
if(i == -1){
db_error = 1;
return NULL;
}
return(&db_str[i]);
}
/*
********************* DBASE 数据文件操作 C 库函数 ***********************
* 函 数 名: db_getfields *
* 参 数: str 文件头结构变量 *
* 功 能: 计算数据文件字段数 *
* 返 回 值: 数据文件字段数 *
***************************************************************************
*/
int db_getfields(DBFSTR str) /* 计算并返回文件字段数 */
{
return((str.ldb - 34) / 32); /* (文件头结构长 - 34) / 32 */
}
void undberror(void)
{
db_error = 0;
}
/*** DB_INIT.C END ***/
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 关于Windows Phone数据库和Silverlight本地文件操作
- JAVA 操作 DBF 文件数据库
- C#操作VFP的dbf数据库文件实例
- C#操作VFP的dbf数据库文件实例
- C#操作本地文件及保存文件到数据库的基本方法总结
- 【微信小程序】下拉框搜索模糊（无数据库操作，json存入js文件，小程序引入并存本地缓存）
- php读取本地文件操作函数
- c#操作DBF数据库文件
- 一起谈.NET技术，关于Windows Phone数据库和Silverlight本地文件操作
- c#操作DBF数据库文件
- SQL2012还原数据库操作在本地服务器上操作和用别的电脑远程连接到服务器进行操作的文件路径差异
- 用 JavaScript 写 ASP,似乎很爽啊，自己封装了一个 操作数据库 分页 以及 文件操作的函数
- c语言写的*.dbf文件的操作函数库
- [VB.NET源码]文件读写与数据库操作示例
- 使用Windows的SHFileOperation外壳函数实现文件操作
- c# 连接本地的sdf数据库文件
- C#文件、目录操作相关函数
- 如何将阿里云的数据库备份RDS文件在本地恢复
- django数据库本地配置/python读取本地配置文件
- 用JavaDBF操作（读、写）DBF文件