我们经常用另一个“好”的字符替换文件中的不良字符。
界面如下:
界面如下:
procedure cleanfileASCII2(vfilename: string; vgood: integer; voutfilename: string);
为了将所有非期望的字符替换为空格,我们可以调用 cleanfileASCII2(original.txt, 32 , cleaned.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;