把一个.txt文件里的字符串替换成另一个字符串,效率最好高一点。急!!!分不够可以加...在线等待!

解决方案 »

  1.   

    除了ansiReplaceStr,我想不到别的方法帮你
      

  2.   


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

  3.   

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

  4.   

    var
      lst: TStrings;
      lsFile: String;
    begin
      lst := TStringList.Create;
      lst.LoadFromFile(lsFile);
      lst.Text := StringReplace(lst.Text,'oldStr','newStr',[rtReplaceAll]);
      lst.Free;
    end;稍加改造!
      

  5.   

    memo1.Lines.LoadFromFile('c:\c.txt') ;
    memo1.Text := StringReplace(memo1.Text ,  'a','A',[rfReplaceAll]);
    memo1.Lines.SaveToFile('c:\c.txt');
    这种方式,文件大了就困难了