C语言-通讯录

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

typedef struct address_list
{
    char name[30];//姓名
    char work[30];//职业
    char phone[30];//手机号
    char email[30]; //邮件
    char address[30]; //地址
    struct address_list *next;
}address_list;

int n=0;
address_list *display(address_list *head);
address_list *insert(address_list *head);
address_list *shifang(address_list *head);

address_list *creat()
{
    address_list *head,*p1,*p2;
    char name[30];
    n=0;
    p1=(address_list*)malloc(sizeof(address_list));
    p2=p1;
    printf("请输入通讯录的内容！
姓名输入为0时表示创建完毕！
");
    printf("请输入姓名：");
    gets(name);
    if(strcmp(name,"0")!=0)
    {
        strcpy(p1->name,name);
        printf("请输入职业：");
        gets(p1->work);
        printf("请输入手机号：");
        gets(p1->phone);
        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=(address_list*)malloc(sizeof(address_list));
                strcpy(p1->name,name);
                printf("请输入职业：");
                gets(p1->work);
                printf("请输入手机号：");
                gets(p1->phone);
                printf("请输入邮件：");
                gets(p1->email);
                printf("请输入地址：");
                gets(p1->address);
            }
        }
        p1->next=NULL;
        return head;
    }
    else
        return 0;
}

void print(address_list *head)
{
    address_list *p;
    if(head!=NULL)
    {
        p=head;
        printf("本通讯录现在共有%d人：
",n);
        printf("---姓名------职业-----手机-----邮件------地址----
");
        printf("==================================================
");
        while(p!=NULL)
        {
            printf("== %s  ",p->name);
            printf("%s   ",p->work);
            printf("%s   ",p->phone);
            printf("%s   ",p->email);
            printf("%s   
",p->address);
            p=p->next;
        };
        printf("===================================================
");
    }
    else
        printf("通讯录为空，无法输出！
");
}

address_list *search(address_list *head)
{
    address_list *p1,*p2;
    int m;
    char name[30];
    if(head==NULL)
    {
        printf("通讯录为空，无法分类查询！
");
        return head;
    }
    p1=head;
    printf("**********************
");
    printf("** 请输入需要查找的姓名：");
    gets(name);
    printf("**********************
");
    m=0;
    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("你查找的内容是：
");
            printf("++++++++++++++++++++++++++++++++++++++
");
            printf("++++ %s   %s   %s    %s     %s    +++++
",p1->name,
                   p1->work,p1->phone,p1->email,p1->address);
            printf("++++++++++++++++++++++++++++++++++++++
");
        }
        p1=p1->next;
        if(m==0)
        {
            printf("此人未在本通讯录中！
");
        }
        break;
    }
    return head;
}

address_list *paixu(address_list *head)
{
    address_list *p1,*p2;
    int i,j;
    typedef struct address_list1
    {
        char name[30];
        char work[30];
        char phone[30];
        char email[30];
        char address[30];
    }address_list1;
    address_list1 px[200]; //定义结构体数组
    address_list1 temp;
    if(head==NULL)
    {
        print("通讯录为空，无法排序！
");
        return head;
    }
    p1=head;
    for(i=0;i<n,p1!=NULL;i++)//将所有联系人信息复制到结构体数组px中
    {
        strcpy(px[i].name,p1->name);
        strcpy(px[i].work,p1->work);
        strcpy(px[i].phone,p1->phone);
        strcpy(px[i].email,p1->email);
        strcpy(px[i].address,p1->address);
        p2=p1;
        p1=p1->next;
    }
    head=shifang(head);//释放链表空间
    for(j=0;j<n-1;j++)
    {
        for(i=j+1;i<n;i++)
        {
            if(strcmp(px[i].name,px[j].name)<0)
            {
                temp=px[i];
                px[i]=px[j];
                px[j]=temp;
            }
        }
    }
    p1=(address_list*)malloc(sizeof(address_list));//创建链表中第一个结点
    p2=p1;
    strcpy(p1->name,px[0].name);
    strcpy(p1->work,px[0].work);
    strcpy(p1->phone,px[0].phone);
    strcpy(p1->email,px[0].email);
    strcpy(p1->address,px[0].address);
    head=p1;
    for(i=1;i<n;i++)
    {
        p1=(address_list*)malloc(sizeof(address_list));
        strcpy(p1->name,px[i].name);
        strcpy(p1->work,px[i].work);
        strcpy(p1->phone,px[i].phone);
        strcpy(p1->email,px[i].email);
        strcpy(p1->address,px[i].address);
        p2->next=p1;
        p2=p1;
    }
    p2->next=NULL;
    printf("按姓名排序后为：
");
    print(head);
    return head;
}

address_list *menu(address_list *head) //综合操作模块
{
    //char num[10];
    int num;
    while(1)
    {
        printf("			**********************************************
");
        printf("			*******   1.姓名查找                      ****
");
        printf("			*******   2.单个显示                      ****
");
        printf("			*******   3.增加                          ****
");
        printf("			*******   4.退出                          ****
");
        printf("			**********************************************
");
        printf("请输入你选择的操作：");
        //gets(num);
        scanf("%d",&num);
        getchar();
        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("操作错误，此项不存在！
");
            break;
        }
    }
    return head;
}

address_list *display(address_list *head)
{
    address_list *p1,*p2;
    char name[30];
    int m;
    if(head==NULL)
    {
        printf("通讯录为空，无法显示！
");
        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的通讯录内容如下：
",name);
            printf("---姓名------职业-----手机-----邮件------地址----
");
            printf("==================================================
");
            printf("== %s  ",p1->name);
            printf("%s   ",p1->work);
            printf("%s   ",p1->phone);
            printf("%s   ",p1->email);
            printf("%s   
",p1->address);
            printf("===================================================
");
        }
        p1=p1->next;
    }
    if(m==0)
    {
        printf("此人未在本通讯录中！
");
    }
    return head;
}

address_list *insert(address_list *head)
{
    address_list *p0,*p1,*p2;
    char name[30];
    p1=head;
    printf("请输入增加的内容：
");
    printf("请输入姓名：");
    gets(name);
    if(strcmp(name,"0")==0)
    {
        printf("姓名不能为0，增加失败！
");
        return head;
    }
    else
    {
        p0=(address_list*)malloc(sizeof(address_list));
        strcpy(p0->name,name);
        printf("请输入职业：");
        gets(p0->work);
        printf("请输入手机号");
        gets(p0->phone);
        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))
            {//p0->name>p1->name 且p1不是尾结点
                p2=p1;
                p1=p1->next;
            }
            //p0->name<=p1->name
            if(strcmp(p0->name,p1->name)<0||strcmp(p0->name,p1->name)==0)
            {
                if(head==p1)  //p1指向头结点
                {
                    head=p0;
                }
                else    //p1指向中间结点
                {
                    p2->next=p0;
                }
                p0->next=p1;
            }
            else
            {
                p1->next=p0;
                p0->next=NULL;
            }
            return head;
        }
    }
}

void save(address_list *head)
{
    FILE *fp;
    address_list *p1;
    char addr[30];
    if(head==NULL)
    {
        printf("通讯录为空，无法存储！
");
        return;
    }
    printf("请输入保存后的文件名：");
    gets(addr);
    fp=fopen(addr,"w");
    if(fp==NULL)
    {
        printf("cannot open file.
");
        return;
    }
    p1=head;
    fprintf(fp,"姓名      职业       手机       邮件       地址 
");
    for(;p1!=NULL;)
    {
        fprintf(fp,"%s   %s   %s   %s     %s
",p1->name,p1->work,
                p1->phone,p1->email,p1->address);
                p1=p1->next;
    }
    printf("保存完毕！
");
    fclose(fp);
}

address_list *load(address_list *head)//文件读出函数
{
    FILE *fp;
    char addr[30];
    address_list *p1,*p2;
    printf("请输入要输入的文件名：");
    gets(addr);
    fp=fopen(addr,"r");
    if(fp==NULL)
    {
        printf("此通讯录名不存在，无法输出！
");
        return head;
    }
    else
    {
        head=shifang(head);
    }
    p1=(address_list*)malloc(sizeof(address_list));
    fscanf(fp,"%s%s%s%s%s",&p1->name,&p1->work,&p1->phone,&p1->email,&p1->address);
    if(feof(fp)!=0)
    {
        printf("文件为空，无法打开！
");
        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->phone,&p1->email,&p1->address);
            if(feof(fp)!=0)
                break;
            p2->next=p1;
            p2=p1;
            p1=(address_list *)malloc(sizeof(address_list));
            n=n+1;
        }
        p2->next=NULL;
        p1=head;
        head=head->next;
        n=n-1;
        free(p1);
        print(head);
        printf("打开完毕！
");
        return head;
    }
    fclose(fp);
}

void delete_txt()
{
    FILE *fp;
    char fname[30];
    printf("请输入你要删除的文件名：");
    scanf("%s",fname);
    fp=fopen(fname,"w");
    fclose(fp);
    printf("文件 %s 已被成功删除!
");
}

address_list *shifang(address_list *head)
{
    address_list *p;
    while(head!=NULL)
    {
        p=head;
        head=head->next;
        free(p);
    }
    return head;
}

int main()
{
    address_list *head=NULL;
    int n;
    printf("			============================================
");
    printf("			======              程序说明          ======
");
    printf("			======  请及时保存创建完毕的通讯录内容！====
");
    printf("			============================================
");
    while(1)
    {
        printf("			********************************************
");
        printf("			*****     1.创建通讯录                ******
");
        printf("			*****     2.按姓名排序                ******
");
        printf("			*****     3.综合操作                  ******
");
        printf("			*****     4.保存                      ******
");
        printf("			*****     5.打开                      ******
");
        printf("			*****     6.删除                      ******
");
        printf("			*****     7.退出                      ******
");
        printf("			********************************************
");

        printf("请输入你要选择的操作：");
        scanf("%d",&n);
        getchar();
        switch(n)
        {
        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:
            {
                delete_txt();//以新建同名文件的方式删除文件中的全部内容
            }
            break;
        case 7:
            {
                head=shifang(head);
            }
            exit(0);
        default:
            printf("操作错误，此项不存在！
");
            break;
        }
    }
    return 0;
}