C语言实现文本编辑器系统

/*文本编辑器editor源代码*/


#include <stdio.h>
#include <conio.h>
#include <bios.h>
#include <math.h>
#define LEFT 0x4b00  /*←：光标左移*/
#define RIGHT 0x4d00 /*→：光标右移*/
#define DOWN 0x5000  /*↓键：光标下移*/
#define UP 0x4800   /*↑键：光标上移*/
#define ESC 0x011b  /*ESC键：取消菜单打开操作*/
#define ENTER 0x1c0d /*回车键：换行*/
#define DEL 21248   /*DEL键：删除当前字符*/
#define BACK 3592   /*BackSpace键：删除当前光标位置前一个字符*/
#define CL 29440   /*ctrl+←键：从右至左，选定文本*/
#define CR 29696   /*ctrl+→键：从左到右，选定文本*/
#define Cc 11779   /*ctrl+c键：将选定文本，复制一份到剪贴板中*/
#define Cv 12054   /*ctrl+v键：将剪贴板中的内容复制到当前位置*/
#define Cx 11544   /*ctrl+x键：对选定文本，执行剪切操作*/
#define F1 15104   /*F1键：打开文件菜单*/
#define F2 15360   /*F2键：打开编辑菜单*/
#define F3 15616   /*F3键：打开帮助菜单*/
#define F10 17408   /*F10键:进入文本快速预览模式*/
int value,backup,NUM;
/*value保存有值数组元素的最大下标值，backup保存value的副本，NUM保存当前行中的用户输入的字符个数*/
typedef struct record
 {
    char ch; /*保存一字符*/
    int col, line; /*x轴和y轴坐标*/
 }record;
record r[500]; /*定义一个有500个元素的结构体数组，保存选定的文本字符的属性*/

typedef struct node /*定义保存行中的单个字符的结构*/
 {
    char ch; /*数据域：保存一字符*/
    struct node *next; /*指针域：指向下一个结点的指针*/
 }node;/*由此类型节点构成的单链表，命名为：列单链表*/


 typedef struct Hnode /*定义保存所有列单链表首节点的指针的结构*/
 {
     node *next; /*指向列单链表的首节点的地址*/
     struct Hnode *nextl; /*指向下一个节点的指针*/
 }Hnode;/*由此类型节点构成的单链表，命名为：行单链表*/



void drawmain() /*画主窗口函数*/
 {
     int i,j;
     gotoxy(1,1);    /*在文本窗口中设置光标至(1,1)处*/
     textbackground(7); /*选择新的文本背景颜色,7为LIGHTGRAY淡灰色*/
     textcolor(0);   /*在文本模式中选择新的字符颜色0为BLACK黑*/
     insline();     /*在文本窗口的(1,1)位置处中插入一个空行*/
     for(i=1;i<=24;i++)
     {
       gotoxy(1,1+i);   /*（x,y)中x不变，y++*/
       cprintf("%c",196); /*在窗口左边输出-,即画出主窗口的左边界 */
       gotoxy(80,1+i);
       cprintf("%c",196); /*在窗口右边，输出-，即画出主窗口的右边界*/
     }
     for(i=1;i<=79;i++)
     {
        gotoxy(1+i,2);   /*在第2行，第2列开始*/
        cprintf("%c",196); /*在窗口顶端，输出-*/
        gotoxy(1+i,25);  /*在第25行，第2列开始*/
        cprintf("%c",196); /*在窗口底端，输出-*/
     }
     gotoxy(1,1);  cprintf("%c",196); /*在窗口左上角，输出-*/
     gotoxy(1,24); cprintf("%c",196); /*在窗口左下角，输出-*/
     gotoxy(80,1); cprintf("%c",196); /*在窗口右上角，输出-*/
     gotoxy(80,24); cprintf("%c",196); /*在窗口右下角，输出-*/
     gotoxy(7,1); cprintf("%c %c File %c %c",179,17,16,179); /* | < > |*/
     gotoxy(27,1); cprintf("%c %c Edit %c %c",179,17,16,179); /* | < > |*/
     gotoxy(47,1); cprintf("%c %c Help %c %c",179,17,16,179); /* | < > |*/
     gotoxy(5,25); /*跳至窗口底端*/
     textcolor(1);
     cprintf(" Row:1     Col:1");
     gotoxy(68,25);
     cprintf("Version 2.0");
 }



void qview(Hnode *q) /*快速预览文本：开头：#，回车：* */
 {
    void view(Hnode *q); /*view()函数声明*/
    node *p;
    int i;
    window(1,1,80,25); /*定义文本窗口大小*/
    clrscr(); /*清屏*/
    /*循环读取两个单链表中的值：q是一个指向行单链表首节点的指针，
    此单链表数据域的值为实际保存各行字符的列单链表p中的首节点地址*/
    do{
       p=q->next;  /*p指向保存行数据的列单链表的首节点的地址*/
       cprintf("#"); /*每行开头，打印此字符，不管前面是否有回车符*/
       while(p!=NULL) /*循环读取单链表p中的值*/
       {
          if(p->ch==13) putch('*'); /*若为回车键，打印出*号*/
          else
          putch(p->ch); /*输出各行中的字符到预览窗口*/
          p=p->next; /*指向下一个节点*/
       }
       q=q->nextl; /*指向下一个节点*/
       printf("\n");/*输出一个回车*/
     }while(q!=NULL);

    getch();
    clrscr();
    drawmain();/*按任意键后，回到主窗口界面*/
    window(2,2,79,23);
    textbackground(9);
    for(i=0;i<24;i++)
      insline(); /*插入24个空行*/
    window(3,3,78,23);
    textcolor(10);
 }


void view(Hnode *q) /*按行显示保存在单链表中的文本字符,q为指向行单链表中第一个节点的指针*/
 {
    node *p; /*p为保存列单链表节点元素地址的指针*/
    clrscr(); /*清屏*/
    /*双重循环，读取并显示保存在单链表中字符*/
    do{
       p=q->next;
       while(p!=NULL&&p->ch>=32&&p->ch<127&&p->ch!=13&&p->ch!=-1) /*指针p不能为空，且数据域必须为常规字符*/
       {
          putch(p->ch);/*在文本窗口中输出该字符*/
          p=p->next; /*指向下一个节点*/
       }
       q=q->nextl; /*指向下一个节点*/
       if((p->ch==13||p->ch==-1)&&q!=NULL) gotoxy(1,wherey()+1); /*若ch为回车或EOF标记，光标跳至下行的开始处*/
     }while(q!=NULL); /*逐行逐列显示文本字符*/
 }
 
int check(Hnode *Hhead,int m,int n) /*check():在单链表中检查第m行第n列位置的字符，若为常规字符，则返回该字符*/
 {
    int i;
    Hnode *q;
    node *p;
    q=Hhead;
    for(i=1;i<m;i++) /*定位至行单链表中的第m个元素*/
      q=q->nextl;
    p=q->next;/*获取第m个节点的数据域*/
    for(i=1;i<n;i++) /*定位至列单链表中的第n个元素*/
      p=p->next;
    if(p->ch==13) return -1; /*若第m行，第n列的字符为回车键，则返回-1*/
    if(p->ch>=32&&p->ch<127) return p->ch; /*若第m行，第n列的字符为常规字符,则返回该字符*/
    else return 0; /*若第m行，第n列的字符既非回车符又非常规字符，则返回0*/
 }


int judge(Hnode *Hhead,int m) /*judge():返回第m行中的常规字符总的个数，不包括回车符*/
 {
    Hnode *q;
    node *p;
    int i,num=0;
    q=Hhead;
    for(i=1;i<m;i++) /*定位至行单链表中的第m个元素*/
      q=q->nextl;

    if(q==NULL) return -1; /*返回-1,表示第m行不存在*/
    p=q->next;
    while(p->next!=NULL)
    {
        p=p->next;
        num++;    /*统计第m行的字符个数*/
    }
    /*行尾字符还没有判断，接下来判断行尾字符*/
    if(p->ch==13&&num==0) return 0;  /*返回0,表示当前行只有一个回车字符*/
    if(p->ch>=32&&p->ch<127) return num+1; /*返回num+1,表示当前行的最后一个字符为常规字符*/
    if(p->ch==13&&num!=0) return num; /*返回num,表示当前行的最后一个字符为回车符，不计算在内*/
    else return 1;/*返回num,表示当前行中只有一个字符，且没有回车符*/
 }




 int del(Hnode *Hhead,int m,int n) /*del():删除第m行，第n列位置的字符*/
 {
    Hnode *q,*q1;
    node *p1,*p2,*tail;
    int i,num=0,j,flag=0;
    q=Hhead;
    if(n==0&&m==1) return; /*第1行，第0列不存在*/
    if(n==0&&m>1) /*若为第0列字符，但行必须大于1,执行向上行移处理*/
     {
        n=76;
        m=m-1;
        gotoxy(n,m);/*移至第m-1行，第76列*/
        flag=1; /*移位的标志置1*/
     }

    for(i=1;i<m;i++) /*定位至行单链表中的第m个元素*/
      q=q->nextl;
    p1=q->next;

    for(i=1;i<n-1;i++) /*定位至列单链表中的第n-1个元素*/
      p1=p1->next;
    p2=p1->next; /*p2指向列单链表中的第n个元素*/

       if(n==1) /*若是删除第m行第1列的字符*/
        {
          q->next=p1->next;
          free(p1);
        }
        else
        {
          p1->next=p2->next; /*在单链表中删除第m行第n列的元素*/
          free(p2);
        }

        /*删除掉第m行第n列的元素后，处理行单链表中第m个节点后的数据向前移的任务*/
         while((num=judge(Hhead,m++))>0) /*执行一次judge(Head,m)后，m才加1.这里必须满足行常规字符数不为0的条件*/
        {
             p1=q->next; q1=q;
             if(p1!=NULL) /*若当前行非空*/
            {
                while(p1->next!=NULL)
                  p1=p1->next;
                tail=p1;/*tail保存列单链表最后一个元素的地址*/
                q=q->nextl; /*指向下一行的元素的地址*/
                p1=p2=q->next;
                tail->next=p1; /*tail的指针域指向下一行的第一个元素的地址*/
             }
             else /*若当前行的字符个数为0,即删除该字符后，只剩下回车符，则将下一个行单链表中节点的数据域移至前一下节点的数据域*/
             {
                 q=q->nextl;  p1=p2=q->next;
                 q1->next=p1;/*q1->next指向下一行的第一个元素的地址*/
             }

             for(i=0;i<76-num;i++)
             /*当前行还有76-num个空位没有字符，在下一行的单链表中读取字符，直至遇到回车符为止*/
            {
                p1=p2; /*p1指向p2的前一个节点,p2指向行单链表中下一个节点*/
                p2=p2->next;
                if(p2->ch==13) break; /*若为回车，跳出循环*/
             }
             q->next=p2;  /*在列单链表中去掉移至上行的元素*/
             p1->next=NULL;/*下行移至上行的最后一个元素，指针置空*/
        }
      return flag; /*返回0：表示没有换位，返回1：表示有换位*/
 }

 /*执行insert()后，检验第n行及后面的数据，使其满足规则*/
 int test(Hnode *Hhead,int n)
 {
    int i=0,num1=1;
    node *p1,*p2,*tail,*temp1,*temp2;
    Hnode *q;
    q=Hhead;
    for(i=1;i<n;i++) /*定位至行单链表中的第n个元素*/
      q=q->nextl;
    tail=p1=q->next;
    if(p1==NULL) return; /*若此行没有任何字符，则返回*/
    while(tail->next!=NULL) /*定位至列单链表中的最后一个元素*/
      tail=tail->next;

    /*若此单链表中没有回车符且有超过76个节点时，则p1会指向此列单链表中的第76个节点*/
    for(i=0;i<75;i++)
   {
       if(p1->ch==13||p1->next==NULL) break;
       p1=p1->next;
   }

    p2=p1->next;
    p1->next=NULL; /*在此行的最后一个字符的前一个字符处断行,因为插入在此行插入了一个新的字符*/
    if(tail->ch!=13) /*若此行行尾不是回车键*/
   {
       if(p1->ch==13&&q->nextl==NULL)/*若p1的数据域为回车符且行单链表中只有n个节点*/
      {
            q->nextl=(Hnode *)malloc(sizeof(Hnode)); /*新建一个行单链表节点，相当于添加一个新行*/
            q->nextl->nextl=NULL;
            tail->next=(node *)malloc(sizeof(node));/*在tail所指节点位置开始继续准备添加字符*/
            tail->next->ch=13;  tail->next->next=NULL;
            q->nextl->next=p2; /*新行单链表节点保存此行多出的字符*/
       }
       else /*若此行行尾和行中都没有回车键,或者q->nextl不为空*/
      {
          q=q->nextl;/*q->nextl有可能为空*/
          tail->next=q->next;/*将多出的字符与下一行的字符相连*/
          q->next=p2;/**/
          if(q!=NULL) test(Hhead,++n); /*若行单链表第n个节点后还有节点，继续test()的相同处理*/
      }

   }
    else /*若此列单链表最后一个元素为回车符*/
   {
      temp2=p2; /*p2指向第77个字符，或者为空(为空表示此行插入一个字符后，没有超出范围*/
      while(q!=NULL&&p2!=NULL) /*q指向行列表中的第n个节点.条件:行单链表中第n个节点存中且有第77个字符*/
       { /*条件：在行单链表中只有n个节点,且字符超过了一行规定的76个，且num1标志为1*/
         if((q->nextl==NULL)&&(p1!=tail||p2!=NULL)&&(num1==1))
        {
            num1++;
            q->nextl=(Hnode *)malloc(sizeof(Hnode)); /*新建一个行单链表节点,准备存储此行中多出的字符*/
            q->nextl->nextl=NULL;  q->nextl->next=NULL; /*初始化值*/

        }
        /*行单链表中第n+1个节点已经存在，下面为在行单链表中插入一个新的节点*/
         q=q->nextl; /*q指向行列表中的第n+1个节点*/
         temp1=q->next;
         q->next=temp2; /*q的数据域为此行中多出的字符所在的列单链表中的节点地址*/
         temp2=temp1;
      }
   }
 }

void insert(Hnode *Hhead,int m,int n, char a) /*第m行，第n列的位置之前一个位置，插入单字符*/
 {
    int i;
    Hnode *q;
    node *p,*p1,*p2;
    q=Hhead;
    for(i=1;i<m;i++) /*定位至行单链表中的第m个元素*/
      q=q->nextl;
    p1=q->next;
    for(i=1;i<n-1;i++) /*定位至列单链表中的第n-1个元素*/
      p1=p1->next;
    p=(node *)malloc(sizeof(node)); /*创建一个新的列单链表节点*/
    p->ch=a; /*给此节点的数据域赋值*/
    if(n==1) /*插入之前，若只有一个字符在行中，则插在此节点之前*/
    {
        p->next=q->next;
        q->next=p;
    }
    else
    {
         p->next=p1->next; /*在第m行，第n列的字符前，插入一字符*/
         p1->next=p;
    }
  test(Hhead,m); /*在插入新元素后，检验并处理单链表中第m行开始的元素，使其满足规则*/

 }

/*对控制键进行响应，A：按键的整数值，Hhead:行单链表的首地址*/
void control(int A, Hnode *Hhead)
  {
      void colorview(Hnode *,int,int); /*函数声明*/
      int x,y,flag=0;
      x=wherex();  y=wherey(); /*得到当前光标的坐标值*/
      if((A==CL)&&(x!=1)) /*ctrl+←，当前光标不是在行首,光标移动*/
        gotoxy(wherex()-1,wherey());

      if((A==CL)&&(x==1)) /*ctrl+←，在行首*/
        gotoxy(abs(judge(Hhead,wherey()-1)),wherey()-1); /*judge(Hhead,wherey()-1)上一行的字符个数作为x值，光标移动*/

      if((A==CR)&&check(Hhead,wherey(),wherex())>0) /*ctrl+→,当前光标的右边有字符，光标移动*/
     {  flag=1; gotoxy(wherex()+1,wherey()); }

      if((A==CR)&&check(Hhead,wherey()+1,1)>0&&check(Hhead,y,x)==0) /*ctrl+→,当前光标处没有字符但下一行的第一列有字符，光标移动*/
     {  flag=1; gotoxy(1,wherey()+1); }

      if((A==CR)&&x==76) /*ctrl+→，当前光标在当前行的行尾，光标移动*/
     {  flag=1;   gotoxy(1,wherey()+1); }

      if(A==CR&&flag==1) /*ctrl+→，光标已经跳至新处，将当前光标所在位置的字符的坐标和值保存在r数组中*/
     {
       r[abs(value)].col=wherex();
       r[abs(value)].line=wherey();
       r[abs(value)].ch=check(Hhead,r[abs(value)].line,r[abs(value)].col);
       if(r[abs(value)].ch==-1)  r[abs(value)].ch=13; /*若第line行，第col列的字符为回车键，则返回-1*/
       value--;

     }

      if(A==CL&&(x!=1||y!=1))  /*ctrl+←,当前光标并不在窗口左上角,将当前光标所在位置的字符的坐标和值保存在r数组中*/
     {

       r[abs(value)].col=wherex();
       r[abs(value)].line=wherey();
       r[abs(value)].ch=check(Hhead,r[abs(value)].line,r[abs(value)].col);
       value++;
     }

      colorview(Hhead,wherex(),wherey());

 }

/*用不同的前背景色显示选择的字符*/
void colorview(Hnode *Hhead,int x,int y)
 {

      int i;
      view(Hhead);/*重新显示所有文本字符*/
      for(i=0;i<abs(value);i++)  /*value为数组下标*/
     {
          gotoxy(r[i].col,r[i].line);
          textbackground(7);
          textcolor(0);
          if(r[i].ch!=13&&r[i].ch!=-1)
            cprintf("%c",r[i].ch);
          if(r[i].ch==13||r[i].ch==-1)
            cprintf(" ");
     }

      gotoxy(x,y);

 }

void drawmenu(int m,int n) /*画菜单,m:第几项菜单，n：第m项的第n个子菜单*/
 {
    int i;
   if(m%3==0) /*画File菜单项*/
   {
      window(8,2,19,9);
      textcolor(0);
      textbackground(7);
      for(i=0;i<7;i++) /*在上面定义的文本窗口中先输出7个空行*/
      {
        gotoxy(1,1+i);
        insline();
      }
      window(1,1,80,25);
      gotoxy(7,1);
      for(i=1;i<=7;i++)
      {
        gotoxy(8,1+i);
        cprintf("%c",179); /*窗口内文本的输出函数，在窗口左边输出 | */
        gotoxy(19,1+i);
        cprintf("%c",179); /*窗口内文本的输出函数，在窗口右边输出 | */
      }
      for(i=1;i<=11;i++)
      {
         gotoxy(8+i,2);
         cprintf("%c",196); /*窗口内文本的输出函数，在窗口上边输出 - */
         gotoxy(8+i,9);
         cprintf("%c",196); /*窗口内文本的输出函数，在窗口下边输出 - */
      }
      textbackground(0);
      gotoxy(10,10); cprintf("      "); /*输出下边的阴影效果*/
      for(i=0;i<9;i++)
      {
         gotoxy(20,2+i);
         cprintf("  "); /*输出右边的阴影效果*/
      }
      /*以上为显示菜单项的外观*/
      textbackground(7);
      gotoxy(8,2); cprintf("%c",218); /*输出四个边角表格符*/
      gotoxy(8,9); cprintf("%c",192);
      gotoxy(19,2); cprintf("%c",191);
      gotoxy(19,9); cprintf("%c",217);
      gotoxy(9,3); cprintf(" New  ");
      gotoxy(9,4); cprintf(" Open  ");
      gotoxy(9,5); cprintf(" Save  ");
      gotoxy(9,6); cprintf(" Save as");
      for(i=1;i<=10;i++)
      {
         gotoxy(8+i,7);
         cprintf("%c",196); /*在Save as下输出一行分隔符*/
      }
      gotoxy(9,8); cprintf(" Exit");
      textcolor(15); textbackground(0);
      gotoxy(7,1);
      cprintf("%c %c File %c %c",179,17,16,179);
      switch(n%5)
      {
        case 0:gotoxy(9,3); cprintf(" New   "); break;
        case 1:gotoxy(9,4); cprintf(" Open   "); break;
        case 2:gotoxy(9,5); cprintf(" Save   "); break;
        case 3:gotoxy(9,6); cprintf(" Save as "); break;
        case 4:gotoxy(9,8); cprintf(" Exit   "); break;
      }
   }

   /********************************************************/
   if(m%3==1) /*画Edit菜单项*/
  {
      window(28,2,38,7);
      textcolor(0);
      textbackground(7);
      for(i=0;i<5;i++)
      {
        gotoxy(1,1+i);
        insline();
      }
      window(1,1,80,25);
      gotoxy(27,1);
      for(i=1;i<=5;i++)
      {
        gotoxy(28,1+i);
        cprintf("%c",179);
        gotoxy(39,1+i);
        cprintf("%c",179);
      }
      for(i=1;i<=11;i++)
      {
         gotoxy(28+i,2);
         cprintf("%c",196);
         gotoxy(28+i,7);
         cprintf("%c",196);
      }

      textbackground(0);
      gotoxy(30,8); cprintf("      ");
      for(i=0;i<7;i++)
      {
         gotoxy(40,2+i);
         cprintf("  ");
      }
      textbackground(7);
      gotoxy(28,2); cprintf("%c",218);
      gotoxy(28,7); cprintf("%c",192);
      gotoxy(39,2); cprintf("%c",191);
      gotoxy(39,7); cprintf("%c",217);
      gotoxy(29,3); cprintf(" Cut   ");
      gotoxy(29,4); cprintf(" Copy  ");
      gotoxy(29,5); cprintf(" Paste  ");
      gotoxy(29,6); cprintf(" Clear  ");
      textcolor(15); textbackground(0);
      gotoxy(27,1);
      cprintf("%c %c Edit %c %c",179,17,16,179);
      switch(n%4)
      {
          case 0:gotoxy(29,3); cprintf(" Cut   "); break;
          case 1:gotoxy(29,4); cprintf(" Copy  "); break;
          case 2:gotoxy(29,5); cprintf(" Paste  "); break;
          case 3:gotoxy(29,6); cprintf(" Clear  "); break;
      }
   }

  /*********************************************************/
   if(m%3==2) /*画Help菜单项3*/
  {
      window(48,2,48,6);
      textcolor(0);
      textbackground(7);
      for(i=0;i<3;i++)
      {
          gotoxy(1,1+i);
          insline();
      }
      window(1,1,80,25);
      gotoxy(47,1);
      for(i=1;i<=5;i++)
      {
          gotoxy(48,1+i);
          cprintf("%c",179);
          gotoxy(59,1+i);
          cprintf("%c",179);
      }
      for(i=1;i<=11;i++)
      {
          gotoxy(48+i,2);
          cprintf("%c",196);
          gotoxy(48+i,6);
          cprintf("%c",196);
      }

      textbackground(0);
      gotoxy(50,7); cprintf("      ");
      for(i=0;i<6;i++)
      {
         gotoxy(60,2+i);
         cprintf("  ");
      }
      textbackground(7);
      gotoxy(48,2);  cprintf("%c",218);
      gotoxy(48,6);  cprintf("%c",192);
      gotoxy(59,2);  cprintf("%c",191);
      gotoxy(59,6);  cprintf("%c",217);
      gotoxy(49,3);  cprintf("Help...  ");
      gotoxy(49,5);  cprintf("About... ");
      for(i=1;i<=10;i++)
      {
          gotoxy(48+i,4);
          cprintf("%c",196);
      }
      textcolor(15); textbackground(0);
      gotoxy(47,1);
      cprintf("%c %c Help %c %c",179,17,16,179);
      switch(n%2)
      {
          case 0:gotoxy(49,3); cprintf("Help...  "); break;
          case 1:gotoxy(49,5); cprintf("About... "); break;
      }
  }
 }

int menuctrl(Hnode *Hhead,int A) /*菜单控制*/
 {
    int x,y,i,B,value,flag=100,a,b;
    x=wherex(); y=wherey();
    if(A==F1) { drawmenu(0,flag);  value=300; } /*显示File及其子菜单,并将光带显示在第一个子菜单上*/
    if(A==F2) { drawmenu(1,flag);  value=301; } /*显示Edit及其子菜单,并将光带显示在第一个子菜单上*/
    if(A==F3) { drawmenu(2,flag);  value=302; } /*显示Help及其子菜单,并将光带显示在第一个子菜单上*/

    if(A==F1||A==F2||A==F3)
    {
        while((B=bioskey(0))!=ESC) /*选择用户按键*/
        {
           if(flag==0)  flag=100;
           if(value==0) value=300; /*此value为局部变量*/

           if(B==UP)   drawmenu(value,--flag); /*循环上下移*/
           if(B==DOWN)  drawmenu(value,++flag); /*循环上下移*/

           if(B==LEFT) /*菜单项之间循环选择（左移）*/
           {
              flag=100;
              drawmain();
              window(2,2,79,23);
              textbackground(9);
              for(i=0;i<24;i++)
                insline();
              window(3,3,78,23);
              textcolor(10);
              view(Hhead);
              drawmenu(--value,flag);

           }
            if(B==RIGHT)/*菜单项之间循环选择（右移）*/
           {
              flag=100;
              drawmain();
              window(2,2,79,23);
              textbackground(9);
              for(i=0;i<24;i++)
                insline();
              window(3,3,78,23);
              textcolor(10);
              view(Hhead);
              drawmenu(++value,flag);

           }
            if(B==ENTER) /*选中某主菜单项的子菜单项（选中某项）*/
           {
              if(value%3==0) b=5; /*File下有5个子菜单项*/
              if(value%3==1) b=4; /*Edit下有4个子菜单项*/
              if(value%3==2) b=2; /*Help下有2个子菜单项*/
              a=(value%3)*10+flag%b;/*a表示选择子菜单的编号*/
              drawmain();
              window(2,2,79,23);
              textbackground(9);
              for(i=0;i<24;i++)
                  insline();
              window(3,3,78,23);
              textcolor(10);
              view(Hhead);
              gotoxy(x,y);
              if(a==0)  return 100; /*New*/
              if(a==1)  return 101; /*Open*/
              if(a==2)  return 102; /*Save*/
              if(a==3)  return 103; /*Save As*/
              if(a==4)  exit(0);  /*Exit*/

              if(a==10) return Cx; /*Cut*/
              if(a==11) return Cc; /*Copy*/
              if(a==12) return Cv; /*Paste*/
              if(a==13) return DEL;/*Clear*/

              if(a==20) return 120; /*Help... */
              if(a==21) return 121; /*About...*/
           }

            gotoxy(x+2,y+2);

       }
       /*若按键非F1、F2、F3*/
        drawmain();
        window(2,2,79,23);
        textbackground(9);
        for(i=0;i<24;i++)
           insline();
        window(3,3,78,23);
        textcolor(10);
        view(Hhead);
        gotoxy(x,y);


    }
    return A;


 }


/*将head所指的行单链表中所指的各个列单链表中的数据域的值写入文件，文件路径和文件名由用户指定*/
void save(Hnode *head)
{
FILE* fp;
Hnode *q;
node *p;
int count=0,x,y;
char filename[10]; /*保存文件名*/
q=head;
clrscr();/*清屏*/
printf("Enter infile name,for example [c:\\wb.txt]:");/*输入文件名格式*/
scanf("%s",filename); /*输入文件名*/
fp=fopen(filename,"w");
if(fp==NULL) /*打开文件失败*/
{
 printf("\n=====>open file error!\n");
 getchar();
 return ;
}
    do{
      p=q->next; /*指向node类型的数据*/
      while(p!=NULL)
       {   if((int)p->ch==13)
          {
           fputc('\n',fp);p=p->next; count++;
           }
          else
          {fputc(p->ch, fp);
           p=p->next;
           count++;}
       }
      q=q->nextl;
     }while(q!=NULL);

fclose(fp); /*关闭此文件*/
return ;
}

/*文件另存为:将head所指的行单链表中所指的各个列单链表中的数据域的值写入文件，文件路径和文件名由用户指定*/
void saveas(Hnode *head)
{
FILE* fp;
Hnode *q;
node *p;
int count=0,x,y;
char filename[10]; /*保存文件名*/
q=head;
clrscr();/*清屏*/
printf("Enter infile name,for example [c:\\wb.txt]:");/*输入文件名格式*/
scanf("%s",filename); /*输入文件名*/
fp=fopen(filename,"w");
if(fp==NULL) /*打开文件失败*/
{
 printf("\n=====>open file error!\n");
 getchar();
 return ;
}
    do{
      p=q->next; /*指向node类型的数据*/
      while(p!=NULL)
       {    if((int)p->ch==13)
          {
           fputc('\n',fp);p=p->next; count++;
           }
          else
          {fputc(p->ch, fp);
           p=p->next;
           count++;}

       }
      q=q->nextl;
     }while(q!=NULL);

fclose(fp); /*关闭此文件*/
return ;
}

/*从任意文本文件中读取文件内容，保存至行单链表和列单链表形式的数据结构中*/
void opens(Hnode *Hp)
{
FILE* fp;
Hnode *q11,*q22;
node *p11,*p22,*hp;
char temp;
int count=0,flags=1;
char filename[10]; /*保存文件名*/
clrscr();/*清屏*/
printf("Enter infile name,for example [c:\\wb.txt]:");/*输入文件名格式*/
scanf("%s",filename); /*输入文件名*/
fp=fopen(filename,"r");/*以只读方式打开文件，filename必须要存在*/
if(fp==NULL)/*打开文件失败*/
{ textbackground(2);
  textcolor(13);
  cprintf("open file error!");
  getchar();
  exit(0) ;
}
q11=Hp;
while(!feof(fp))
{  count=0;flags=1;
  q22=(Hnode *)malloc(sizeof(Hnode));/*新建一个行单链表中的节点*/
  p11=(node *)malloc(sizeof(node)); /*新建一个列单链表中的节点*/
  while((temp=fgetc(fp))!=10&&count<=76&&!feof(fp)) /*循环结束，表示在单链表中一行处理完毕，开始新行*/
  { p22=(node *)malloc(sizeof(node));/*新建一个列单链表中的节点*/
    if(flags==1) {hp=p22;flags=0;} /*hp保存列单链表中的首节点的地址*/
    p22->ch=temp; p22->next=NULL;
    p11->next=p22; p11=p22;
    count++;
  }
  if(temp==10){ /*若为换行符，将其转换为回车符，因为在程序中，是按回车符处理的*/
    p22=(node *)malloc(sizeof(node));p22->ch=13; p22->next=NULL;
    p11->next=p22; p11=p22;
  }
  if(!feof(fp))/*若没此条件，文件最后一行会处理两次.*/
  {q22->next=hp;q22->nextl=NULL; /*将存储了字符的新列单链表与行单链表中的新节点建立关联*/
   q11->nextl=q22;q11=q22;}
}
fclose(fp);
Hp=Hp->nextl;/*因为Hp的所在节点的数据域为空，所以Hp=Hp->nextl*/
return ;
}


void main()
 {
     char a;
     int i,A,x,y,flag=0,b;
     Hnode *Hhead,*q;
     node *p1,*p2;
     Hhead=(Hnode *)malloc(sizeof(Hnode)); /*为行单链表中首节点分配内存空间*/
     q=Hhead;   Hhead->nextl=NULL;
     p1=p2=q->next=(node *)malloc(sizeof(node)); /*为列单链表中首节点分配内存空间*/
     p1->ch=13; p1->next=NULL;
     drawmain();   /*显示主窗口*/
     window(2,2,79,23);
     textbackground(9);
     for(i=0;i<24;i++)
        insline();
     window(3,3,78,23);
     textcolor(10);

     while(1)
     {
        while(bioskey(1)==0) continue; /*等待用户按键*/
        a=A=bioskey(0); /*返回输入的字符的键值*/
        if(a>=32&&a<127) /*若输入为常规字符或回车键*/
        {

           if(check(Hhead,wherey(),wherex())<=0)/*当前位置没有字符且输入是常规字符，则执行添加字符操作*/
          {
              NUM++;
              p2->ch=a;
              putch(a);
              if(NUM==76) /*连续输入满行，分别生成一个新的行单链表和列单链表节点*/
              {
                p2->next=NULL;
                q->nextl=(Hnode *)malloc(sizeof(Hnode));
                q=q->nextl;  q->nextl=NULL; q->next=NULL;
                p1=p2=q->next=(node *)malloc(sizeof(node));
                p1->ch=13; p1->next=NULL;
                NUM=0;
              }
              else /*连续输入未满一行,生成一个新的列单链表节点*/
              {
                 p2->next=(node *)malloc(sizeof(node));
                 p2=p2->next;
                 p2->ch=13;
                 p2->next=NULL;

              }
           }

           else /*当前位置有字符且输入是常规字符,则执行插入字符操作*/
           {
               x=wherex(); y=wherey();
               insert(Hhead,wherey(),wherex(),a);
               NUM++;
               view(Hhead);
               gotoxy(x,y);
           }


        }

        /*若输入为回车键*/
        if(a==13)
        {
            gotoxy(1,wherey()+1);
            q->nextl=(Hnode *)malloc(sizeof(Hnode));
            q=q->nextl;  q->nextl=NULL;  q->next=NULL;
            p1=p2=q->next=(node *)malloc(sizeof(node));
            p1->ch=13; p1->next=NULL;
            NUM=0;
        }

         x=wherex();  y=wherey();
        /*文本窗口中左移,当前光标不在窗口的第1列*/
        if((A==LEFT)&&(x!=1)) gotoxy(wherex()-1,wherey());
        /*文本窗口中左移,当前光标在窗口的第1列*/
        if((A==LEFT)&&(x==1)) gotoxy(abs(judge(Hhead,wherey()-1)),wherey()-1);
        /*文本窗口中右移,若当前光标的右边一位有字符*/
        if((A==RIGHT)&&check(Hhead,wherey(),wherex())>0) gotoxy(wherex()+1,wherey());
        /*文本窗口中右移至下行的第1列,若当前光标位置没有字符且下行的第1列有字符*/
        if((A==RIGHT)&&check(Hhead,wherey()+1,1)!=0&&check(Hhead,y,x)<=0) gotoxy(1,wherey()+1);
         /*右移*/
        if((A==RIGHT)&&x==76)  gotoxy(1,wherey()+1);
         /*上移*/
        if((A==UP)&&check(Hhead,wherey()-1,wherex())!=0) gotoxy(wherex(),wherey()-1);
         /*上移*/
        if((A==UP)&&check(Hhead,wherey()-1,wherex())<=0)
        {
          if(judge(Hhead,wherey()-1)==0)
            gotoxy(-judge(Hhead,wherey()-1)+1,wherey()-1);
          else
            gotoxy(-judge(Hhead,wherey()-1),wherey()-1);
        }

        /*下移*/
        if((A==DOWN)&&check(Hhead,wherey()+1,wherex())!=0)
          gotoxy(wherex(),wherey()+1);

        /*处理BackSpace键*/
        if(A==BACK) /*处理BackSpace键*/
        {
            flag=del(Hhead,wherey(),wherex()-1);
            x=wherex()-1;  y=wherey();
            view(Hhead);
            if(flag==0)
           {
              if(x!=0) gotoxy(x,y);
              else gotoxy(x+1,y);
           }
            if(flag==1)
           {
              gotoxy(x+1,y);
              flag=0;
           }
        }
        /*处理菜单按键F1 F2 F3*/
        if((A==F1)||(A==F2)||(A==F3)||(a<32||a>127))
        {  A=menuctrl(Hhead,A);
         if(A==100){main();} /*新建文件*/

         if(A==101){ /*打开文件*/
          Hhead=(Hnode *)malloc(sizeof(Hnode));
          opens(Hhead);
          getchar();clrscr();gotoxy(3,3);view(Hhead);
          }
        /*保存文件*/
         if(A==102){save(Hhead);clrscr();cprintf("save successfully!");getch();gotoxy(3,3);view(Hhead);}
        /*文件另存为*/
         if(A==103){saveas(Hhead);clrscr();cprintf("save as successfully!");getch();gotoxy(3,3);view(Hhead);}
        /*帮助*/
         if(A==120){clrscr();cprintf("<Help> F1:File F2:Edit F3:Help ");
              getch();gotoxy(3,3);view(Hhead);}
         if(A==121){clrscr();cprintf("Abort:Version 2.0 Tel:XXXXXXXXXX");getch();gotoxy(3,3);view(Hhead);}
        }

        /*处理DEL键,删除当前位置的单个字符*/
        if(A==DEL)
        {
           x=wherex();  y=wherey();
           del(Hhead,wherey(),wherex());
           view(Hhead);
           gotoxy(x,y);
        }
        /*处理已经选定文本字符后，按DEL键的情况*/
        if(A==DEL&&value!=0)
        {
           if(value>0)
              x=wherex(),  y=wherey();
           else
              x=r[0].col, y=r[0].line;
           for(i=0;i<abs(value);i++)
           {
              if(value>0)
               del(Hhead,r[i].line,r[i].col);
              if(value<0)
               del(Hhead,r[abs(value)-1-i].line,r[abs(value)-1-i].col);
           }
           value=0; /*此value为全局变量*/
           view(Hhead);
           gotoxy(x,y);
        }
       /*处理Ctrl+x按键*/
       if(A==Cx&&value!=0)
        {
           if(value>0)
              x=wherex(),  y=wherey();
           else
              x=r[0].col, y=r[i].line;
           for(i=0;i<abs(value);i++)
           {
              if(value>0)
               del(Hhead,r[i].line,r[i].col);
              if(value<0)
               del(Hhead,r[abs(value)-1-i].line,r[abs(value)-1-i].col);
           }
              backup=value; /*保存r数组的有值元素的最大下标值*/
              value=0; /*此value为全局变量*/
              view(Hhead);
              gotoxy(x,y);
        }

        /*处理Ctrl+c按键*/
        if(A==Cc&&value!=0)
        {
           x=wherex();   y=wherey();
           backup=value;  value=0; /*此value为全局变量*/
           view(Hhead);
           gotoxy(x,y);
        }

        /*处理Ctrl+v按键*/
        if(A==Cv&&backup!=0)
        {
           x=wherex();  y=wherey();
           if(backup<0) /*Ctrl+右移键选定的文本，贴切此当前位置*/
              for(i=0;i<abs(backup);i++)
                insert(Hhead,y,x+i,r[i].ch);/*逐个插入*/


           if(backup>0) /*Ctrl+左移键选定的文本，贴切此当前位置*/
              for(i=0;i<backup;i++)
                insert(Hhead,y,x+i,r[backup-1-i].ch);

           view(Hhead);
           gotoxy(x,y);
        }
        /*快速预览*/
        if(A==F10)
        {
            qview(Hhead);
            view(Hhead);
            gotoxy(x,y);
        }

        /*处理Ctrl+左移键或右移键*/
        if(A==CL||A==CR)  control(A,Hhead);
        /*显示当前行列号*/
        x=wherex();  y=wherey();
        window(1,1,80,25);
        textcolor(0);
        textbackground(7);
        gotoxy(10,25); /*第25行，第10列,输出当前行号wherey()*/
        cprintf("%-3d",y);
        gotoxy(24,25); /*第25行，第24列*/
        cprintf("%-3d",x);
        window(3,3,78,23);
        textcolor(10);
        gotoxy(x,y);
        textcolor(10);
        textbackground(1);
    }
 }