c 通讯录

#define _CRT_SECURE_NO_WARNINGS
#include <stdio.h>  
#include <malloc.h>  //得到指向大小为Size的内存区域的首字节的指针//  
#include <string.h>  
#include <stdlib.h>  //标准库函数//   
#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;i<n,p1!=NULL;i++)  
    {  
        strcpy(px[i].name,p1->name);  
        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;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=(struct address_list *)malloc(LEN);  
    p2=p1;  
    strcpy(p1->name,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;i<n;i++)  
    {  
        p1=(struct address_list *)malloc(LEN);  
        strcpy(p1->name,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;  
    }  
}