微信公众号 
图码生活

每天发布有五花八门的文章,各种有趣的知识等,期待您的订阅与参与
电脑报 1992-2001 十年文章全集
电脑报 1992-2001 十年文章全集
包含从 1992 年 - 2001 年间,两万余篇期刊文章,查询最少输入两个字符
随便看看
读取中
读取中
标题一个快进浏览文件的小程序
栏目软件操作与技巧
发布1994-07-15
  附:READ.C
  #include <stdio.h>
  #include <dir.h>
  #include <dos.h>
  FILE *p;
  struct ffblk w;
  int a,n,i;
  char m,lj;
  main(int x,char *y)
  {
  clrscr();
  if (y==0) {
  textcolor(12);
  exit(1);
  }
  lj=y;
  lj=y;
  if(x==1) getch();
  a=findfirst(y,&w,FA_DIREC);
  n=0;
  while(!a) {
  if (!(w.ff_name=='.'|| w.ff_attrib==16)) {
  for(i=0;i<13;i++) m=w.ff_name;
  n=n+1;
  }
  a=findnext(&w);
  }
  m=0;
  n=0;
  while(m!=0) {
  textcolor(14);
  printf("\n***序号:%d***文件名:%s\n",n+1,m);
  textcolor(2);
  xs(m,y);
  printf("\n确认删除文件:%s 吗?, D--删除",m);
  if (getche()=='d') remove(m);
  n++;
  }
  }
  xs(char *mm,char *y)
  {
  FILE *p;
  char xd;
  int ew;
  int r;
  if ((p=fopen(mm,"r"))!=NULL) {
  if (y==0) ew=200;
  else ew=atoi(y);
  for(r=0;r<ew;r++) {
  xd=fgetc(p);
  putchar(xd);
  }
  }
  fclose(p);
  }