修改网页的链接(100分)

B

brucedai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #1

procedure TForm1.Button3Click(Sender: TObject);
var
doc:IHTMLDocument2;
all:IHTMLElementCollection;
len,i:integer;
item:OleVariant;
begin

doc:=WebBrowser1.Document as IHTMLDocument2;
all:=doc.Get_links;
len:=all.length;
for i:=0 to len-1 do begin

memo1.lines.add(item.href);
end;
end;

上面的代码，可以得到链接，如何修改 网页中的链接呀。

为指定的内容呀?

 

I

iseek

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #2

上面的代码你试过吗？真的能行？
我自己用笨办法做过更换链接。

 

I

iseek

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #3

如果上面的代码可用,修改链接应该是比较简单的事了.用替换函数就可以了.

 

B

brucedai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #4

什么笨办法，总比手工修改强吧，说来听听，


什么替换函数？

 

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #5

呵呵，笨办法可以把网页当成文本，找到第几行是链接的地址，修改文本的内容你会吧

 

I

iseek

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #6

下面是个简单的替换函数
function replacing(S, source, target: string): string;
var
site, StrLen: integer;
begin
site := pos(source, s);
StrLen := length(source);
delete(s, site, StrLen);
insert(target, s, site);
replacing := s;
end;

我电脑里还有个wreplacing函数,可一次将一个字符串中所有的某个子串替换成另一个字符
串,速度奇快,好像是老外写的.你要的话,留个妹儿,我发给你.

 

萧

萧星离

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #7

正则表达式！

 

B

brucedai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #8

谢谢各位 ！ 尤其是 iseek和 啊啊啊啊啊，我用 啊啊啊啊啊 的笨办法解决了。


用 stringlist load html 文件。 分分了

 

B

brucedai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #9

多人接受答案了。