紧急求助！（在线！）

小弟有一文本文件如下（mytext.txt）：
<HTML>
<HEAD><TITLE>test!</TITLE></HEAD>
<BODY scroll=no boder="0">
<CENTER>
<H3><B><U><I>Test</B></U></I></H3></CENTER>
<DIV>
<MARQUEE id=marquee1 style="WIDTH: 100px; COLOR: red; HEIGHT: 128px" trueSpeed scrollDelay=100 direction=up loop=1000 height=128 name="marquee1">My Test!</MARQUEE></DIV></BODY>
</HTML>本人想把<MARQUEE>里面的内容My Text!替换成Hello，或者其他的文字，请问如何操作？小弟先谢谢各位了！！！！！！！！！！！！！！！

解决方案 »

  1.   

    replace,好像delphi也有这个功能。
      

  2.   

    我的意思就是先open文件
    然后再把打开的这个文件里面的那个内容替换成我想要的内容。能不能给出部分代码，谢谢！
      

  3.   

    var
      sList: TStringList;
      i: Integer;
    begin
      sList := TStringList.Create;
      sList.LoadFromFile('c:\mytext.txt');
      for i := 0 to sList.Count - 1 do
        if Pos('</MARQUEE>', sList[i]) > 0 then begin
          sList[i] :=
            Copy(sList[i], 1, Pos('>', sList[i])) +
            'Hello' +
            Copy(sList[i], Pos('</MARQUEE>', sList[i]), Length(sList[i]));
          Break;
        end;
      sList.SaveToFile('c:\mytext.txt');
      sList.Free;
    end;
      

  4.   

    var
      afile:textfile;
      stemp,snew:string;
    begin
      assignfile(afile,'c:\mytext.txt');
      reset(afile);
      snew:='';
      while not eof(afile) do
      begin
        stemp:=readln(afile)
        stemp:=stringreplace(stemp,'My Text!','hello');
        snew:=snew+#0a#0d+stemp;
      end;
      closefile(afile);
      assignfile(afile,'c:\mytext.txt');
      rewrite(afile);
      writeln(f,snew);
      closefile(aflie);
    end;