求助，在一个htm文件中插入一句代码(操作源文件) (20分)

bankemi · 2004-06-03

比如下面的代码
<html>
<head>
<meta http-equiv="Content-Type" content="text/html
charset=gb2312">
<title>新建网页 1</title>
</head>
<body>
</body>
</html>
搜索<title>，然后在“新建网页 1”后面插入http://127.0.0.1
如下：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html
charset=gb2312">
<title>新建网页 1http://127.0.0.1</title>
</head>
<body>
</body>
</html>

请问要怎么弄啊！！！
我用Insert(obj,target,pos)，怎么也搞不出来，请高手帮忙

TYZhang · 2004-06-03

你把网页的内容加载到Memo1中：
procedure TForm1.Button2Click(Sender: TObject);
var S:String;
begin
S:=Memo1.Lines.Text;
Insert('http://127.0.0.1',S,Pos('</title>',Memo1.Lines.Text));
Memo1.Lines.Text:=S;
end;

bankemi · 2004-06-08

谢谢，照这个想法，不用加载到Memo里面

procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
abc:String;
list:TStrings;
begin
list:=Tstringlist.Create;
list.LoadFromFile(OpenDialog1.Filename);
abc:=list.Text;
Insert('http://127.0.0.1',abc,Pos('</title>',list.Text));
list.Text:=abc;
//Memo2.Lines.Text:=abc;
list.Destroy;
end;

现在的问题是，这不能对源文件修改，修改的只是缓存（我这样想）里面的内容，
我想要修改源文件

意思就是点击修改按钮以后，我再打开文件，看见的就是插入http://127.0.0.1后的
文件了，谁能告诉我怎么做啊？？？？？？

dingbaosheng · 2004-06-08

装入用replcae函数

dingbaosheng · 2004-06-08

源文件是远程地还是本地的啊？？？

bankemi · 2004-06-08

已经自己解决了

procedure TForm1.Button3Click(Sender: TObject);
var
abc:String;
list:TStrings;
begin
list:=Tstringlist.Create;
list.LoadFromFile(OpenDialog1.Filename);
abc:=list.Text;
Insert('http://127.0.0.1',abc,Pos('</title>',list.Text));
list.Text:=abc;
list.SaveToFile('文件路径/index1.htm');//这里可以用OpenDialog1.Filename；

//list.SaveToFile(OpenDialog1.Filename)
Memo2.Lines.Text:=abc;
list.Destroy;
end;

dingbaosheng · 2004-06-08

[

!][

!][?]

bankemi · 2004-06-08

新的问题来了
我插入的字符串中有''
比如要插入
<form name='hhh'>
这句话Insert('<form name='hhh'>',abc,Pos('</title>',list.Text));
显然没有办法运行，有没有什么办法啊！我想不出来！！！

阿胜 · 2004-06-08

假设：在新建网页 1 后面预先加一#ReplaceStr#
StringReplace(list.Text, '#ReplaceStr#','http://127.0.0.1',[rfReplaceAll]) ;
...
保存。。。

阿胜 · 2004-06-08

上面地代码就算有空格也不妨事

bankemi · 2004-06-09

接受答案了.

求助，在一个htm文件中插入一句代码(操作源文件) (20分)

bankemi

Unregistered / Unconfirmed

TYZhang

Unregistered / Unconfirmed

bankemi

Unregistered / Unconfirmed

dingbaosheng

Unregistered / Unconfirmed

dingbaosheng

Unregistered / Unconfirmed

bankemi

Unregistered / Unconfirmed

dingbaosheng

Unregistered / Unconfirmed

bankemi

Unregistered / Unconfirmed

阿胜

Unregistered / Unconfirmed

阿胜

Unregistered / Unconfirmed

bankemi

Unregistered / Unconfirmed

Similar threads