communication.c

基于C语言链表的通讯录源码

#include<stdio.h>
#include<stdlib.h>
#include<string.h>

struct address{                         /*定义结构*/
char name[30];
char street[40];
char city[20];
char state[3];
char zip[11];
struct address *next;                  /*后继指针*/
struct address *prior;                 /*前导指针*/
};

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

void enter(void),search(void),save(void);                    /*函数声明*/
void load(void),list(void);
void mldelete(struct address **,struct address **);
void dls_store(struct address *i,struct address **start,
                struct address **last);
void inputs(char *,char *,int),display(struct address *);
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("1.Enter a name \n");
printf("2.Delete a name \n");
printf("3.List the file \n");
printf("4.Search \n");
printf("5.Save the file \n");
printf("6.Load the file \n");
printf("7.Quit \n");

  do{
   printf("\nEnter your choice:");
   gets(s);
   c = atoi(s);
  }while(c<0||c>7);                 /*超出选项范围时，提示重新输入*/

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

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

for(;;){
  info=(struct address *)malloc(sizeof(struct address));   /*为当前结点分配空间*/
  if(!info)
   {printf("\n Out of memory");
    exit(0);                                               /*如果分配空间失败，退出程序*/
   }

  inputs("Enter name:",info->name,30);
  if(!info->name[0])break;                                /*如果输入姓名为空，结束循环*/
  inputs("Enter street:",info->street,40);
  inputs("Enter city:",info->city,20);
  inputs("Enter state:",info->state,3);
  inputs("Enter zip:",info->zip,10);

  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 address *i,          /*接受传入的当前输入结点地址*/
           struct address **start,     /*接受传入的首结点地址*/
           struct address **last       /*接受传入的尾结点地址*/
          )
{
  struct address *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 address **start,struct address **last)        /*删除函数*/
{
struct address *info;
char s[80];

inputs("Enter name:",s,30);             /*输入欲删除结点的name域内容*/
info=find(s);                           /*查找该内容*/
if(info)                                /*如果找到*/
  {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);                           /*释放该结点所占用的内存*/
  }
}

struct address *find(char *name)         /*查找函数,形参为欲查找结点的name域*/
  {
   struct address *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 address *info;
info=start;
while(info)
  {display(info);
   info=info->next;
  }
printf("\n\n");
}

void display(struct address *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 address *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 address *info;
  FILE *fp;
  fp=fopen("mlist","wb");                   /*生成文件*/
   if(!fp)
   {printf("Cannot open file.\n");exit(1);}

  printf("\nSaveing File\n");
  info=start;
  while(info)                                 /*把链表写入文件*/
   {fwrite(info,sizeof(struct address),1,fp);
    info=info->next;
   }
  fclose(fp);                                 /*链表全部写入文件后，关闭文件*/
}

void load()                               /*调用预存文件函数*/
{struct address *info;
FILE *fp;                                /*打开文件*/
fp=fopen("mlist","rb");
if(!fp){
  printf("Cannot open file.\n");
  exit(1);
}

while(start){                           /*释放当前内存链表*/
  info=start->next;
  free(start);
  start=info;
}
start=last=NULL;                         /*链表为空*/
printf("\nLoading file\n");              /*调用文件*/
while(!feof(fp))                         /*如果文件未到结尾，循环读取文件*/
{info=(struct address *)malloc(sizeof(struct address));   /*为结点分配内存*/
   if(!info)
   {printf("out of Memory");
   return;
  }
  if(1!=fread(info,sizeof(struct address),1,fp))break;     /*如果读取失败，退出*/
  dls_store(info,&start,&last);                            /*如果读取成败，调用插入函数，把数据插入链表*/
}                                                         /*文件到结尾，循环结束*/
fclose(fp);                                                /*关闭文件，释放内存*/
}