《文件编程练习7852.pdf》由会员分享，可在线阅读，更多相关《文件编程练习7852.pdf（4页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、高级语言程序设计上机实验报告 一、实验目的 文件编程练习 二、实验题目 文件的复制与追加 程序 1 根据程序提示从键盘输入一个已存在的文本文件的完整文件名，再输入一个新的文本文件的完整文件名，然后将已存在的文本文件中的内容全部复制到新的文本文件中，利用文本编辑软件，通过查看文件内容验证程序执行结果。（1）程序源代码#include#include void main(void)FILE*fp=NULL,*fp2=NULL;char a30,b30,c30;printf(请输入一个已存在的完整文本文件名);gets(a);printf(请输入一个新的完整文本文件名);gets(b);fp=fop
2、en(a,r);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#include int CO
3、PY(char*p,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);else if(fp2=fopen(q,w)=NULL)fclose(fp);return(0);fgets(e,31,fp);fputs(e,fp2);fclose(fp);fclose(fp2);return(1);（2）运行结果