在TC上可以运行，但结果不正确。。。
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#define MAX_LEN  50/*文件最大行数*/
#define LINE_LEN 100/*每行最大字符的最大个数+1*/
typedef  int Status ；
typedef struct{
 char *ch;
 int length;
}HString;
initString(HString *T)
{  
 T->length=0;
 T->ch=NULL;
 return 1;
 }
Status strassign(HString *T,char *chars)/*生成一个串给T*/
{int i,j;
 if(T->ch!=NULL)
 free(T->ch);
 i=strlen(chars);
 if(i==0){
  T->ch=NULL;
  T->length=0;
  }
 else
 {T->ch=(char *)malloc(i*sizeof(char));
  if(!T->ch)return -1;  
  for(j=0;j<i;j++)
     T->ch[j]=chars[j];
     T->length=i;
  }return 1;
}

void Strprint(HString T)/*输出串T*/
{int i;
 for(i=0;i<T.length;i++)
 printf("%c",T.ch[i]);
 printf("\n");
}
HString S[MAX_LEN];
char str[LINE_LEN];
int n=4;
void list()/*输出每行的字符串，即文件*/
{int j;
 for(j=0;j<n;j++)
 {
 printf("%d:",j+1);
 Strprint(S[j]);
 }
 
}
void linesert()/*行插入*/
{
 int i,j,m,l;
 printf("在l行前插入m行,输入 l m:");
 scanf("%d,%d",&l,&m);
 if((m+n)>MAX_LEN){
  printf("插入的行太多");
  return ;}
 if(n>=l-1&&l>0)
 {
 for(i=n-1;i>l-1;i--)
  S[i+m]=S[i];
  n+=m;
 printf("输入插入的内容:");
 for(j=l-1;j<l-1+m;j++)
 {    gets(str);
  initString(&S[j]);  
   strassign(&S[j],str);
 }
 }
 else printf("行超出内容");
  
}

void deleteline()/*删除行*/
{int i,j,m,l;
    printf("删除第l行到第m行，l,m:");   
    scanf("%d,%d",&l,&m);
        if(l<=0||m>n){
        printf("删除行，错误:");
        return;
        }
    else
    { for(j=0;j<=m-l+1;j++)        
        initString(&S[l-1+j]);
         for(i=n-1;i>=l-1;i--)        
         S[i-(m-l+1)]=S[i];
          for(j=m;j<=n-1;j++)        
        initString(&S[j]);
        n=n-(l-m+1);
    }   
    }
shurustr()/*输入每行 的内容*/
{int i;
 for(i=0;i<n;i++){
  gets(str);
     strassign(&S[i],str);
 }
 }
void main()
 {
  int i,k;
 for(i=0;i<MAX_LEN;i++)
    initString(&S[i]);     
   do{
     printf("choice:\n1.shuru  \n");
     printf("2.cha ru hang  \n");
     printf("k=");                  
     scanf("%d",&k);
     switch(k)
     {
       case 1:shurustr();list();
              break;
       case 2:linesert();list();        
              break;   
       case :deleteline();list();
 }   
     }while(k!=0);
 }