怎么用memo中的内容替换文本文件里的文字！

Question

我现在想做一个delphi程序，想实现再memo里的内容区替换网页中的内容，就是做一个更新网页的工具，能帮我一下么？说说思路，简要的代码，能有现成参考就更好了！谢谢！！！

Answer 1

Memo1.Lines.SaveToFile();————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

我是想把html转化成文本，相当于用delphi修改* .text文件的部分内容，也就是先查找到*.TEXT里相应的字（例如在记事本里查找“你好”这两个字，再用MEMO中的文本吧这两个字替换掉），再用MEMO中文本替换他

Answer 3

使用函数：
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 4

直接打开并修改。HTML文件也可以呀！刚试过，没问题。

Answer 5

不是得，我想这些都用delphi完成，
我是想把*。html转化成文本，相当于用delphi修改* .text文件的部分内容，也就是先查找到*.TEXT里相应的字（例如在记事本里查找“你好”这两个字，再用MEMO中的文本吧这两个字替换掉），再用MEMO中文本替换他,到一行结束时，在加入一个HTML换行符就行了，我在把带HTML的文本转化成*.HTML不就可以了么？

Answer 6

var
  Strs: TStrings;
  S,FileName: String;
begin
  FileName := 'c:\mama.txt';
  Strs := TStringList.Create;
  Strs.LoadFromFile(FileName);
  S := Strs.Text;
  S := StringReplace(S, '你好', Memo1.Linds.Text, [rfReplaceAll, rfIgnoreCase]);  
  Strs.Text := S;
  Strs.SaveToFile(FileName);
  Strs.Free;
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————