计算机高级语言程序设计源程序

0Ÿ`pˆ?‰?\r/********************************************\r15-12ž`p 0Ÿ`pˆ?‰\r********************************************/\rfrinclude<iostream>\r#include<fstream>\rusingnamespacestd;\rvoidmain()\r(\rfstreamfilel,file2;\rcharfl[50],f2[50],ch;\rlongi,len;\rcout<y” IP¡`p¢6":\rcin>>f1;\rCOUthn IP¦§`p¢6”:\rcin>>f2;\rfilel.open(fl,ios::in|ios::binary);//ž 0NO`p\rif(Ifilel)EvaluationWarning:ThedocumentwascreatedwithSpire.PDFfor.NET.\rcout<y"NO`pWXY"<<endl;\rabort();\r)\rfilel.seekg(0,ios::end);//ƒ„`pj…†¨`p™\rlen=filel.tellg();//©k¡`psª`\rfilel.seekg(O);//ƒ„`pj…†¨`p«¬‘j`p{­®\rfile2.open(f2,ios::out|ios::binary);iž 0NO`p\rif(!file2)\r(\rNO`pWXY"<<endl;\rabort();\r)\rfor(i=0;i<len;i++)//ž¡`p¯sª`°`pj_sª`\r(\rch=filel.get();\rfile2.put(ch):\r}\rfilel.close();\rfile2.close();\r`p±²|}!nendl;\r)