如何在txt文件中替换字符！急！（麻烦各位帮忙帮忙）

Question

如何在txt文件中替换字符。如第四个字符与第十个字符之间都为空格，我要以某些字符内容替换，应如何编程处理？对于seek的用法，我不太了解，最好各位大虾能提供相关的用法文档看看，谢了！

Answer 1

var f:textfile;
    line:string;
    i:integer;
begin
  assignfile(f,'filename');
  reset(f);
  while not eof(f) do
  begin
    readln(f,line);
    for i:=1 to length(line) do
    begin
      if line[i]=' ' then
        line[i]:='某个字符';
    end;
    writeln(f,line);
  end;
  closefile(f);
end;

Answer 2

append对于txt文件打开为只写呀，怎样可以打开textfile可以可读可写

Answer 3

还是load到一个Tstringlist变量中,
容易操作,
完成了save

Answer 4

不是记录文件怎样load到tstringlist变量呀，而且这样是不是多个控件，给源码来看看吧，各位大虾！

Answer 5

用load 不是很好，因为文本文件中可能有一些符号，会使得TStringList将原有的内容分成两个部分，如空格或逗号如果不怕费事，可以读出来用 AnsiRepalceText 来替换，如果没有它也不会乱替换的，总之你的目的应该是可以达到的确

Answer 6

memo1.Lines.LoadFromFile('c:\c.txt');
memo1.Text := StringReplace(memo1.Text ,  'a','A',[rfReplaceAll]);
memo1.Lines.SaveToFile('c:\c.txt');
测试通过