通讯录（数据结构）

#include<stdio.h>
#include<stdlib.h>
#include<string.h>
/*定义双链表作为通讯信息的物理存储结构*/
struct TXL{
    char name[30];
    char street[100];
    char city[30];
    char state[30];
    char zip[20];
    struct TXL *next;                  /*后继指针*/
    struct TXL *prior;                 /*前驱指针*/
};


struct TXL *start;                 /*首结点*/
struct TXL *last;                  /*尾结点*/
struct TXL *find(char *);          /*声明查找函数*/


/*声明本程序的可调用函数*/
void enter();
void search();
void save();
void load();
void list();
void mldelete(struct TXL **,struct TXL **);
void dls_store(struct TXL *i,struct TXL **start,
                struct TXL **last);
void inputs(char *,char *,int);
void display(struct TXL *);
int menu_select(void);




/*主函数，通过输入命令选择调用相应函数*/
int main(void)
{
   start = last = NULL;
   for(;;)
   {
  switch(menu_select())
  {
     case 1:enter();
            continue;
          case 2:mldelete(&start,&last);
            continue;
          case 3:list();
             continue;
          case 4:search();
             continue;
          case 5:save();
             continue;
          case 6:load();
             continue;
          case 7:exit(0);
  }
    }
}
/*目录函数，显示通讯录主界面并可通过输入正确指令执行相应功能*/
int menu_select(void)
{
    char s[80];
    int c;
printf("…………^_^欢迎使用通讯录系统…………\n");
printf("*****************************************\n");
    printf("************** 1.输入信息 ***************\n");
    printf("************** 2.删除信息 ***************\n");
    printf("************** 3.显示信息 ***************\n");
    printf("************** 4.查找     ***************\n");
    printf("************** 5.存档     ***************\n");
    printf("************** 6.读档     ***************\n");
    printf("************** 7.退出     ***************\n");
    printf("*****************************************\n");
    do{
      printf("\nPlease enter your choice:\n");
      gets(s);
      c = atoi(s);
}while(c<0||c>7);                 /*超出选项范围时，提示重新输入*/


    return c;                          /*返回输入值*/
}


/*输入函数,本函数循环输入资料，当输入姓名为空时退出*/
void enter()
{
struct TXL *info;               /*定义当前结点*/


    for(;;)
{
        info=(struct TXL *)malloc(sizeof(struct TXL));   /*为当前结点分配空间*/
        if(!info)
{
    printf("\n Out of memory");
            exit(0);                                               /*如果分配空间失败，退出程序*/
}
        printf("输入空姓名结束:\n");
        inputs("Enter name:",info->name,30);
        if(!info->name[0])
break;                                /*如果输入姓名为空，结束循环*/
        inputs("Enter street:",info->street,100);
        inputs("Enter city:",info->city,30);
        inputs("Enter state:",info->state,30);
        inputs("Enter zip:",info->zip,20);


       dls_store(info,&start,&last);           /*调用结点插入函数*/
}
}


 /*输入函数，有越界检测功能，避免死循环*/
void inputs(char *prompt,char *s,int count)
{
     char p[255];
     do
{
printf(prompt);
         fgets(p,254,stdin);
         if(strlen(p)>count)
printf("\nToo Long\n");
}while(strlen(p)>count);


     p[strlen(p)-1]=0;
     strcpy(s,p);
}


  /*数据插入函数，完成将信息插入链表的功能*/
void dls_store(
           struct TXL *i,          /*接受传入的当前输入结点地址*/
           struct TXL **start,     /*接受传入的首结点地址*/
           struct TXL **last       /*接受传入的尾结点地址*/
          )
{
struct TXL *old,*p;              /*定义临时指针*/


    if(*last==NULL)                      /*如果尾结点为空,意味着当前链表为空*/
    {
i->next=NULL;                      /*当前结点的后驱赋空*/
        i->prior=NULL;                     /*当前结点的前驱赋空*/
        *last=i;                           /*尾结点定义为当前结点*/
        *start=i;                          /*首结点定义为当前结点*/
        return;                            /*返回调用函数*/
    }
                                       /*如果链表不为空*/
    p=*start;                            /*p取入口地址(也就是首结点地址)*/


    old=NULL;                            /*old赋空*/
    while(p)
{                                 /*如果p不为空时,执行特循环体，查找比当前结点应该插入的位置*/
        if(strcmp(p->name,i->name)<0)       /*如果当前结点的name域比p(首结点)大时(实现以name域升序排序)*/
{
old=p;                            /*old暂存p地址*/
            p=p->next;                        /*p取下一结点*/
}
        else                                /*如果当前输入数据中的name域比p小时，把数据插入结点p之前*/
{
if(p->prior)                      /*如果p的前驱不为空时*/
{
p->prior->next=i;                /*令p的前驱的next域指向当前结点*/
                i->next=p;                       /*令当前结点的后继指向p*/
                i->prior=p->prior;               /*令当前结点的前驱指向p的前驱*/
                p->prior=i;                      /*令p的前驱为当前结点*/
                return;                          /*插入完成,返回调用函数*/
}
            i->next=p;                        /*如果p的前驱为空时,把当前结点作为首结点,并令当前结点的后驱为p*/
            i->prior=NULL;                    /*定义当前结点的前驱为空*/
            p->prior=i;                       /*p的前驱为当前结点*/
            *start=i;                         /*首结点（入口）为当前结点*/
            return;                           /*插入完成，返回调用函数*/
}
    }                                   /*循环体结束*/
    old->next=i;                        /*如果在整个链表都找不到name域比当前数据的name域大的结点，
                                        *把当前数据放在作为尾结点放在最后*/
    i->next=NULL;                       /*令链表尾结点后驱批向当前结点，当前结点的后驱为空*/
    i->prior=old;                       /*令当前结点的前驱为之前的最后结点*/
    *last=i;                            /*尾结点取i地址*/
}


/*删除函数，完成数据清理功能*/
void mldelete(struct TXL **start,struct TXL **last)
{
struct TXL *info;
    char s[80];


    inputs("Enter name:",s,30);             /*输入欲删除结点的name域内容*/
    info=find(s);                           /*查找该内容*/
    if(info)                                /*如果找到*/
{
printf("Deleting......\n");
if(*start==info)                      /*如果该结点为首结点,把该结点的下驱作为新的首结点（入口）*/
{
*start=info->next;
            if(*start)
(*start)->prior=NULL;      /*如果新入口不为空，把入口的前驱置空*/
            else *last=NULL;                     /*如果新入口为空，把尾结点置空，链表为空*/
}
        else                                  /*如果欲删除的结点不是首结点*/
{
   info->prior->next=info->next;       /*令该结点的前驱的next指针指向该结点的后驱，
                                          *又令该结点的后驱的prior指点指向该结点的前驱*/
            if(info!=*last)                     /*如果该结点是尾结点，则令该结点的前驱为尾结点*/
                info->next->prior=info->prior;
            else
            *last=info->prior;
}
        free(info);                    /*释放该结点所占用的内存*/
printf("-Ok,deleted successfully!\n");
}
}


/*查讯函数,形参为欲查找结点的name域,完成查询功能*/
struct TXL *find(char *name)
{
struct TXL *info;
    info=start;
    while(info)
    {
if(!strcmp(name,info->name))return info;
        info=info->next;
    }
    printf("Name not found.\n");
    return NULL;
}


/*输出整个链表，显示存储的全部通讯信息*/
void list(void)
{
struct TXL *info;
    info=start;
if(info==NULL)
printf("NO information!");
    while(info)
{
display(info);
        info=info->next;
}
    printf("\n\n");
}


 /*输出传入结点函数,实现将相应的查询的信息输出*/
void display(struct TXL *info)
{
printf("%s\n",info->name);
    printf("%s\n",info->street);
    printf("%s\n",info->city);
    printf("%s\n",info->state);
    printf("%s\n",info->zip);
    printf("\n\n");
}


/*查找函数,找到对应关键字的结点*/
void search(void)
{
char name[40];
    struct TXL *info;
    printf("Enter name to find:");             /*输入欲查找的姓名*/
    gets(name);
    info=find(name);
    if(!info)
printf("Not found\n");            /*如果没找到，显示Not found*/
    else
display(info);                        /*如果找到，显示该结点资料*/
}


/*存储函数,文件操作，将输入的通讯信息存储为文件*/
void save(void)
{
struct TXL *info;
    FILE *fp;
    fp=fopen("mlist","wb");                   /*生成文件*/
    if(!fp)
    {
printf("Cannot open file.\n");
return;
}
    printf("\nSaveing ……\n");
info=start;
    while(info)                                 /*把链表写入文件*/
{
fwrite(info,sizeof(struct TXL),1,fp);
        info=info->next;
}
printf("-ok!\n");
    fclose(fp);/*链表全部写入文件后，关闭文件*/


}


/*调用预存文件函数，将存储的文件调用读取*/
void load()
{
register int t, size;
    struct TXL *info,*temp=0;
    char *p;
    FILE *fp;                                     /*打开文件*/
    if((fp=fopen("mlist","r"))==NULL)
{
printf("Cannot open file!\n");
        exit(0);
}
    printf("\n\nLoading...\n");                    /*调用文件*/
    size=sizeof(struct TXL);           /*为结点分配内存*/
start==malloc(size);
    if(!start)                                       /*如果读取失败，返回*/
{
printf("Out of memory!\n");
        exit(0);
}
    info=start;
    p=(char*)info;
    while((*p++=getc(fp))!=EOF)
{
for(t=0;t<size-1;++t)
            *p++=getc(fp);
        info->next==malloc(size);
        if(!info->next)
{
printf("Out of memory!\n");
            return;
}
        info->prior=temp;
        temp=info;
        info=info->next;
        p=(char*)info;
}
    temp->next=0;
    last=temp;
    start->prior=0;
    fclose(fp);                                   /*关闭文件，释放内存*/
    printf("-OK!\n");
}