function replace_x_y(textfilename:string;row,col,length:integer;replacestring:string); var i:integer; f,f1:textfile; newline,stringline:string; begin assignfile (f,testfilename); assignfile (f1,"temp"); while .not. eof(f) begin readln(f,stringline); if i = row newline := format('%s%s%s',[copy (stringline,1,col+1),replacestring,copy(stringline,col+length+1,strlength(stringline)-col-length)]); stringline := newline; endi writeln(f1,stringline); end; {change f1 to f} end;
文件比较大.我能不能用TFileStream.(CREATE,SEEK,WRITE)
可运行时总异常终了.
var i:integer;
f,f1:textfile;
newline,stringline:string;
begin
assignfile (f,testfilename);
assignfile (f1,"temp");
while .not. eof(f)
begin
readln(f,stringline);
if i = row
newline := format('%s%s%s',[copy (stringline,1,col+1),replacestring,copy(stringline,col+length+1,strlength(stringline)-col-length)]);
stringline := newline;
endi
writeln(f1,stringline);
end;
{change f1 to f}
end;
有完整 C 代码,需要请 mail me!
[email protected]