《文件编程练习》由会员分享，可在线阅读，更多相关《文件编程练习（5页珍藏版）》请在金锄头文库上搜索。
1、高级语言程序设计上机实验报告一、实验目的文件编程练习二、实验题目文件的复制与追加程序1 根据程序提示从键盘输入一个已存在的文本文件的完整文件名，再输入一个新的文本文件的完整文件名，然后将已存在的文本文件中的内容全部复制到新的文本文件中，利用文本编辑软件，通过查看文件内容验证程序执行结果。（1）程序源代码#include#includevoid main(void)FILE *fp=NULL,*fp2=NULL;char a30,b30,c30;printf(请输入一个已存在的完整文本文件名);gets(a);printf(请输入一个新的完整文本文件名);gets(b);fp=fopen(a,r
2、);if(fp=NULL) printf(此%s文件不存在,a); exit;else if (fp2=fopen(b,w)=NULL) fclose(fp);printf(不能打开新文件);exit;else fgets(c,31,fp);fputs(c,fp2);fclose(fp);fclose(fp2);（2）运行结果程序2 模拟DOS下的COPY命令，在DOS状态下输入命令行，已实现将一个已存的文本文件中的内容全部复制到新的文本文件中，利用文本编辑软件查看文件内容，验证程序执行的结果。（1） 程序源代码#include#include#includeint COPY(char *p,
3、char *q);int main(void) int i=0; char a30,b30,c30;printf(命令:);scanf(%s %s %s,a,b,c); if(strcmp(a,copy)=0) i=COPY(b,c); else printf(worry); return(1); if(i) printf(success); else printf(worry); return(1);int COPY(char *p,char *q) char e30;FILE *fp=NULL,*fp2=NULL;fp=fopen(p,r);if(fp=NULL) return(0);elseif(fp2=fopen(q,w)=NULL)fclose(fp);return(0);fgets(e,31,fp);fputs(e,fp2);fclose(fp);fclose(fp2);return(1);（2） 运行结果
