我们经常用另一个“好”字符替换文件中不需要的字符。
界面是:
procedure cleanfileASCII2(vfilename: string; vgood: integer; voutfilename: string);
用我们可以调用的空格替换所有不受欢迎的内容, cleanfileASCII2(original.txt, 32 , clean.txt)
问题是这需要相当长的时间。有比显示的更好的方法吗?
procedure cleanfileASCII2(vfilename: string; vgood: integer; voutfilename:
string);
var
F1, F2: file of char;
Ch: Char;
tempfilename: string;
i,n,dex: integer;
begin
//original
AssignFile(F1, vfilename);
Reset(F1);
//outputfile
AssignFile(F2,voutfilename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
//
n:=ord(ch);
if ((n<32)or(n>127))and (not(n in [10,13])) then
begin // bad char
if vgood<> -1 then
begin
ch:=chr(vgood);
Write(F2, Ch);
end
end
else //good char
Write(F2, Ch);
end;
CloseFile(F2);
CloseFile(F1);
end;