主题：复制任意文件 +30
pascaler
[专家分：150] 发布于 2006-02-28 18:07:00
输入任意存在文件的正确路径,再输入目标路径,将文件复制过去,怎么用PASCAL实现呢??
谢谢大家
回复列表 （共11个回复）
沙发
blackmark [专家分：210] 发布于 2006-03-04 13:10:00
program abc;
var
ch:string;
fin,fout:text;
begin
assign(fin,'C:\abc.in');
reset(fin);
assign(fout,'C:\abc.out');
rewrite(fout);
while not(eof(fin)) do
begin
while not eoln(fin) do
begin
readln(fin,ch);
writeln(fout,ch);
end;
end;
close(fin);
close(fout);
end.
板凳
blackmark [专家分：210] 发布于 2006-03-04 13:17:00
加分 啊!!!
3 楼
47 [专家分：590] 发布于 2006-03-04 15:41:00
恩
不错
4 楼
fxzxg [专家分：430] 发布于 2006-03-04 16:31:00
能否复制非文本文件，如exe、图片等~~~~~
5 楼
blackmark [专家分：210] 发布于 2006-03-07 21:48:00
由于PASCAL的自身的一些限制,如果 有回车换行的话好象不行
6 楼
wangqizhi90 [专家分：50] 发布于 2006-06-19 20:03:00
白痴，那是你不会
7 楼
Nyski [专家分：0] 发布于 2006-06-23 20:14:00
复制.exe之类的文件时要把ch的类型改成byte
8 楼
maxumi [专家分：2200] 发布于 2006-06-28 08:56:00
用BLOCKREAD/BLOCKWRITE.
9 楼
小田甜ts [专家分：210] 发布于 2006-07-01 13:30:00
犯不着那么麻烦，用命令行的copy命令即可
如下:
[quote]
{$M 8192,0,0}
uses Dos;
var filename1,filename2:string;
procedure cmd(command:string);
begin
Command := '/C ' + Command;
SwapVectors;
Exec(GetEnv('COMSPEC'), Command);
SwapVectors;
end.
begin
readln(filename1);readln(filename2);
cmd('copy '+filename1+' '+filename2);
end;
[/quote]
10 楼
blackmark [专家分：210] 发布于 2006-07-15 21:53:00
wangqizhi90
说一句~~~!!!1
你会吧～～～／？？？？？？？
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 复制任意文件 +30