DELPHI文本操作得一個小問題,請各位指教!!!!

Question

不难吧！
copy and length
在加入
Tstrings

Answer 1

取得第一个{PV}的位置，以获得第一行的字符串；然后从原字符串中截掉第一行的字符串，赋予新的字符串，再取得第一个{PV}的位置，如此循环。

Answer 2

var
  buf:tstrings;
begin
  buf:=Tstringlist.create;
  buf.LoadFromFile(...);
  buf.text:=Stringreplace(buf.Text,'{PV}',#13#10,[rfReplaceAll]);
  buf.SaveToFile(....);
  buf.free;
end;

Answer 3

赫赫，不好意思，看错问题了：
应该把Stringreplace(buf.Text,'{PV}',#13#10,[rfReplaceAll]);改成：
Stringreplace(buf.Text,'{PV}','{PV}'#13#10,[rfReplaceAll]);

Answer 4

Kingron(戒网中……)的回答正确，而且简便。建议使用
var
  buf:tstrings;
begin
  buf:=Tstringlist.create;
  buf.LoadFromFile(...);
  buf.text:=Stringreplace(buf.Text,'{PV}','{PV}'+#13#10,[rfReplaceAll]);
  buf.SaveToFile(....);
  buf.free;
end; 

Answer 5

不過好像如果要讓{pv}開頭,應該把#13#10放在{pv}前面,不過好像會出現空掉一行