#include  
#include  //得到指向大小为Size的内存区域的首字节的指针// 
#include  
#include  //标准库函数// 
#define NULL 0 
#define LEN sizeof(struct address_list) //计算字节// 
int n; 
struct address_list 
{ 
 char name[30]; //名字 
 char work[30]; //职业 
 char handset[30]; //手机 
 char email[30]; //电子邮件 
 char address[30]; //通讯地址 
 struct address_list *next; 
}; 
struct address_list *shifang(struct address_list *head); // 释放内存函数声明 
//创建函数，不带头结点的链表 
struct address_list *creat(void)  
{ 
 struct address_list *head,*p1,*p2; 
 char name[20]; 
 n=0; 
 p1=(struct address_list *)malloc(LEN); 
 p2=p1; //强制内存转换 
 printf("请输入通讯录的内容!\n姓名输入为0时表示创建完毕!\n"); 
 printf("请输入姓名:"); 
 gets(name); 
 if(strcmp(name,"0")!=0) 
 { 
 strcpy(p1->name,name); 
 printf("请输入职业:"); gets(p1->work); 
 printf("请输入手机:"); gets(p1->handset); 
 printf("请输入电子邮件:"); gets(p1->email); 
 printf("请输入通讯地址:"); gets(p1->address); 
 head=NULL; 
 while(1) 
 { 
  n=n+1; //记录通讯录人数个数 
  if(n==1) 
  head=p1; 
  else 
  p2->next=p1; 
  p2=p1; 
  printf("请输入姓名:"); 
  gets(name); 
  if(strcmp(name,"0")==0) 
  { 
  break; 
  } 
  else 
  { 
  p1=(struct address_list *)malloc(LEN); 
  strcpy(p1->name,name); 
  printf("请输入职业:"); gets(p1->work); 
  printf("请输入手机:"); gets(p1->handset); 
  printf("请输入电子邮件:"); gets(p1->email); 
  printf("请输入通讯地址:"); gets(p1->address); 
  } 
 } 
 p2->next=NULL; 
 return head; 
 } 
 else 
 return 0; 
} 
//输出函数 
void print(struct address_list *head) 
{ 
 struct address_list *p; 
 if(head!=NULL) 
 { 
 p=head; 
 printf("本通讯录现在共有%d人:\n",n); 
 printf("---姓名-------职业--------手机-------Email-------通讯地址\n"); 
 printf("==================================\n"); 
 do 
 { 
  printf("== %s",p->name); printf(" "); 
  printf("%s",p->work); printf(" "); 
  printf("%s",p->handset); printf(" "); 
  printf("%s",p->email); printf(" "); 
  printf("%s",p->address); printf(" \n"); 
  p=p->next; 
 }while(p!=NULL); 
 printf("==================================\n"); 
 } 
 else 
 printf("通讯录为空,无法输出!\n"); 
} 
//增加函数 
struct address_list *insert(struct address_list *head) 
{ 
 struct address_list *p0,*p1,*p2; 
 char name[20]; 
 p1=head; 
 printf("请输入增加的内容:\n"); 
 printf("请输入姓名:"); gets(name); 
 if(strcmp(name,"0")==0) 
 { 
 printf("姓名不能为0,增加失败!\n"); 
 return(head); 
 } 
 else 
 { 
 p0=(struct address_list *)malloc(LEN); 
 strcpy(p0->name,name); 
 printf("请输入职业:"); gets(p0->work); 
 printf("请输入手机:"); gets(p0->handset); 
 printf("请输入电子邮件:"); gets(p0->email); 
 printf("请输入通讯地址:"); gets(p0->address); 
 n=n+1; 
 if(head==NULL) 
 { 
  head=p0; 
  p0->next=NULL; 
  return head; 
 } 
 else 
 { 
  while(strcmp(p0->name,p1->name)>0&&(p1->next!=NULL)) 
  { 
  p2=p1; 
  p1=p1->next; 
  } 
  if(strcmp(p0->name,p1->name)<0 || strcmp(p0->name,p1->name)==0) 
  { 
  if(head==p1) 
  { 
   head=p0; 
  } 
  else 
  { 
   p2->next=p0; 
  } 
  p0->next=p1; 
  } 
  else 
  { 
  p1->next=p0; 
  p0->next=NULL; 
  } 
  return head; 
 } 
 } 
} 
struct address_list* delete_txl(struct address_list *head) 
{ 
 struct address_list *p,*q; 
 char name[30]; 
 if(head==NULL) 
 { 
 printf("通讯录为空,无法显示!\n"); 
 return head; 
 } 
 p=head; 
 printf("请输入需要删除的人的姓名:"); 
 gets(name); 
 if(strcmp(head->name,name)==0) 
 { 
 head=head->next; 
 free(p); 
 printf("删除操作成功！\n"); 
 return head; 
 } 
 else 
 { 
 q=head,p=head->next; 
 while(p!=NULL) 
 { 
  if(strcmp(p->name,name)==0) 
  { 
  q->next=p->next; 
  free(p); 
  printf("删除操作成功！\n"); 
  return head; 
  } 
  p=p->next; 
  q=q->next; 
 } 
 } 
} 
//显示函数 
struct address_list *display(struct address_list *head) 
{ 
 struct address_list *p1,*p2; 
 char name[30]; 
 int m; 
 if(head==NULL) 
 { 
 printf("通讯录为空,无法显示!\n"); 
 return head; 
 } 
 p1=head; 
 m=0; 
 printf("请输入需要显示人的姓名:"); 
 gets(name); 
 while(p1!=NULL) 
 { 
 while((strcmp(p1->name,name))!=0 && p1->next!=NULL) 
 { 
  p2=p1; 
  p1=p1->next; 
 } 
 if(strcmp(p1->name,name)==0) 
 { 
  m++; 
  printf("%s的通讯内容如下:\n",name); 
  printf("---姓名--------职业--------手机-------Email------通讯地址\n"); 
  printf("==================================\n"); 
  printf("== %s",p1->name);printf(" "); 
  printf("%s",p1->work);printf(" "); 
  printf("%s",p1->handset);printf(" "); 
  printf("%s",p1->email);printf(" "); 
  printf("%s",p1->address); printf(" \n"); 
  printf("==================================\n"); 
 } 
 p1=p1->next; 
 } 
 if(m==0) 
 { 
 printf("此人未在本通讯录中!\n"); 
 } 
 return(head); 
} 
 
//排序函数 
struct address_list *paixu(struct address_list *head) 
{ 
 struct address_list *p1,*p2; 
 int i,j; 
 struct address_list1 
 { 
 char name[30]; 
 char work[30]; 
 char handset[30]; 
 char email[30]; 
 char address[30]; 
 }; 
 struct address_list1 px[200]; 
 struct address_list1 temp; 
 if(head==NULL) 
 { 
 printf("通讯录为空,无法排序!\n"); 
 return(head); 
 } 
 p1=head; 
 for(i=0;iname); 
 strcpy(px[i].work,p1->work); 
 strcpy(px[i].handset,p1->handset); 
 strcpy(px[i].email,p1->email); 
 strcpy(px[i].address,p1->address); 
 p2=p1; 
 p1=p1->next; 
 } 
 head=shifang(head); 
 for(j=0;jname,px[0].name); 
 strcpy(p1->work,px[0].work); 
 strcpy(p1->handset,px[0].handset); 
 strcpy(p1->email,px[0].email); 
 strcpy(p1->address,px[0].address); 
 
 head=p1; 
 for(i=1;iname,px[i].name); 
 strcpy(p1->work,px[i].work); 
 strcpy(p1->handset,px[i].handset); 
 strcpy(p1->email,px[i].email); 
 strcpy(p1->address,px[i].address); 
 p2->next=p1; 
 p2=p1; 
 } 
 p2->next=NULL; 
 printf("按姓名排序后为:\n"); 
 print(head); 
 return(head); 
} 
//姓名查找函数 
struct address_list *search(struct address_list *head) 
{ 
 struct address_list *p1,*p2; 
 int m; 
 char name[30]; 
 if(head==NULL) 
 { 
 printf("通讯录为空,无法分类查找!\n"); 
 return(head); 
 } 
 p1=head; 
 printf("********************\n"); 
 printf("** 请输入需要查找的姓名 **\n"); 
 printf("********************\n"); 
 m=0; 
 gets(name); 
 while(p1!=NULL) 
 { 
 while(strcmp(p1->name,name)!=0&&p1->next!=NULL) 
 { 
  p2=p1; 
  p1=p1->next; 
 } 
 if(strcmp(p1->name,name)==0) 
 { 
  m++; 
  printf("你查找的内容是:\n"); 
  printf("+++++++++++++++++++++++++++++++++++\n"); 
  printf("++ %s %s %s %s %s\n",p1->name,p1->work,p1->handset,p1->email,p1->address); 
  printf("+++++++++++++++++++++++++++++++++++\n"); 
 } 
 p1=p1->next; 
 
 if(m==0) 
 { 
  printf("此人未在本通讯录中!\n"); 
 } 
 break; 
 } 
 
 return(head); 
} 
 
//释放内存函数 
struct address_list *shifang(struct address_list *head) 
{ 
 struct address_list *p1; 
 while(head!=NULL) 
 { 
 p1=head; 
 head=head->next; 
 free(p1); 
 } 
 return(head); 
} 
 
//文件写入函数 
void save(struct address_list *head) 
{ 
 FILE *fp; 
 struct address_list *p1; 
 char tong[30]; 
 if(head==NULL) 
 { 
 printf("通讯录为空,无法存储!\n"); 
 return; 
 } 
 printf("请输入保存后的文件名:"); 
 gets(tong); 
 fp=fopen("(tong).txt","w"); 
 if(fp==NULL) 
 { 
 printf("cannot open file\n"); 
 return; 
 } 
 p1=head; 
 fprintf(fp,"姓名 职业 手机 Email 通讯地址\n"); 
 for(;p1!=NULL;) 
 { 
 fprintf(fp,"%s %s %s %s %s\n",p1->name,p1->work,p1->handset,p1->email,p1->address); 
 p1=p1->next; 
 } 
 printf("保存完毕!\n"); 
 fclose(fp); 
} 
 
//文件读出函数 
struct address_list *load(struct address_list *head) 
{ 
 FILE *fp; 
 char tong[30]; 
 struct address_list *p1,*p2; 
 printf("请输入要输出的文件名:"); 
 gets(tong); 
 fp=fopen("(tong).txt","r"); 
 if(fp==NULL) 
 { 
 printf("此通讯录名不存在,无法输出!\n"); 
 return(head); 
 } 
 else 
 { 
 head=shifang(head); 
 } 
 p1=(struct address_list *)malloc(LEN); 
 fscanf(fp,"%s%s%s%s%s",&p1->name,&p1->work,&p1->handset,&p1->email,&p1->address); 
 if(feof(fp)!=0) 
 { 
 printf("文件为空,无法打开!\n"); 
 return(head); 
 } 
 else 
 { 
 rewind(fp); 
 p2=p1; 
 head=p1; 
 n=0; 
 while(feof(fp)==0) 
 { 
  fscanf(fp,"%s%s%s%s%s",&p1->name,&p1->work,&p1->handset,&p1->email,&p1->address); 
  if(feof(fp)!=0) 
  break; 
  p2->next=p1; 
  p2=p1; 
  p1=(struct address_list *)malloc(LEN); 
  n=n+1; 
 } 
 p2->next=NULL; 
 p1=head; 
 head=head->next; 
 n=n-1; 
 free(p1); 
 print(head); 
 printf("打开完毕!\n"); 
 return(head); 
 } 
 fclose(fp); 
} 
 
//综合操作函数 
struct address_list *menu(struct address_list *head) 
{ 
 char num[10]; 
 while(1) 
 { 
 printf("*********************\n"); 
 printf("*** 1 姓名查找 ****\n"); 
 printf("*** 2 单个显示 ****\n"); 
 printf("*** 3 增加  ****\n"); 
 printf("*** 4 退出  ****\n"); 
 printf("*********************\n"); 
 printf("请输入您选择的操作:"); 
 gets(num); 
 switch(*num) 
 { 
 case '1': 
  { 
  head=search(head);    //姓名查找 
  print(head); 
  } 
  break; 
 case '2': 
  { 
  head=display(head);    //显示 
  } 
  break; 
 case '3': 
  { 
  head=insert(head);    //增加 
  print(head); 
  } 
  break; 
 case '4': 
  return head; 
 default: 
  printf("操作错误，此项不存在!\n"); 
  break; 
 } 
 if(strcmp(num,"6")==0) 
  break; 
 } 
 return head; 
} 
//主函数 
void main() 
{ 
 struct address_list *head=NULL; 
 char num[10]; 
 printf("*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*\n"); 
 printf("*=*  程序说明  *=*\n"); 
 printf("*=* 请及时保存创建完毕的通讯录内容! *=*\n"); 
 printf("*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*\n"); 
 while(1) 
 { 
 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"); 
 printf("请输入您选择的操作:"); 
 gets(num); 
 switch(*num) 
 { 
 case '1': 
  { 
  if(head==NULL) 
  { 
   head=creat();    //创建 
   print(head); 
  } 
  else 
  { 
   head=shifang(head); 
   head=creat();    //重新创建 
   print(head); 
  } 
  } 
  break; 
 case '2': 
  { 
  head=paixu(head);    //排序 
  } 
  break; 
 case '3': 
  { 
  head=menu(head);    //综合操作 
  } 
  break; 
 case '4': 
  { 
  save(head);     //文件保存 
  print(head); 
  } 
  break; 
 case '5': 
  { 
  head=load(head);    //文件输出 
  } 
  break; 
 case '6': 
  { 
  head=delete_txl(head);    //删除 
  print(head); 
  } 
  break; 
 case '7': 
  head=shifang(head); 
  break; 
 default: 
  printf("操作错误，此项不存在!\n"); 
  break; 
 } 
 if(strcmp(num,"7")==0) 
  break; 
 } 
}