L
lanny
Unregistered / Unconfirmed
GUEST, unregistred user!
如何提取一个网页中的所有连接？
Help
Help
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
W
wint
Unregistered / Unconfirmed
GUEST, unregistred user!
找《/a》
其前面的就是连接
其前面的就是连接
L
lanny
Unregistered / Unconfirmed
GUEST, unregistred user!
给我一个例子！
Thank !
Thank !
X
xueminliu
Unregistered / Unconfirmed
GUEST, unregistred user!
例子没有,但是可以对所获取的htnl原文件分析,提取有连接的String
L
loopy
Unregistered / Unconfirmed
GUEST, unregistred user!
我可以用时间写一个，我的另一个程序与你的原理是一样的，我的程序的目的是将
超文本文件转化为纯文本文件。与我联系。。
loopy@netease.com
超文本文件转化为纯文本文件。与我联系。。
loopy@netease.com
J
Jams
Unregistered / Unconfirmed
GUEST, unregistred user!
>>
A
Atomic
Unregistered / Unconfirmed
GUEST, unregistred user!
Like NetAnts or FlashGet
P
Pipi.
Unregistered / Unconfirmed
GUEST, unregistred user!
找到《a 再找href=
W
wind2000
Unregistered / Unconfirmed
GUEST, unregistred user!
把HTML文件当做文本来操作，查找《a href="和"》之间的东东...就是你想要的超级链接
房
房客
Unregistered / Unconfirmed
GUEST, unregistred user!
http://
《a href='
《a href="
好象用TwebBrowser可以做这些事
《a href='
《a href="
好象用TwebBrowser可以做这些事
H
Hunj
Unregistered / Unconfirmed
GUEST, unregistred user!
如果用WebBrowser的话,IHtmlDocument2.get_anchors
X
X-MAX
Unregistered / Unconfirmed
GUEST, unregistred user!
nmhttp.Get('目标地址');
Memo.text:=nmhttp.Body; //在Memo中显示 Html 代码
然后在 Memo 中搜索....
Memo.text:=nmhttp.Body; //在Memo中显示 Html 代码
然后在 Memo 中搜索....
F
fox007
Unregistered / Unconfirmed
GUEST, unregistred user!
<font color=red>VB5.0的例子</font>
Private Sub Command1_Click()
Dim allCol
Dim TagName As String
Dim allcount, i
List1.Clear
Set allCol = WebBrowser1.Document.all
allcount = allCol.length
For i = 0 To allcount - 1
TagName = allCol.item(i).TagName
If TagName = "IMG" Or TagName = "A" Then
TagName = TagName & " - " & allCol.item(i).href
List1.AddItem (TagName)
End If
Next
End Sub
Private Sub Command1_Click()
Dim allCol
Dim TagName As String
Dim allcount, i
List1.Clear
Set allCol = WebBrowser1.Document.all
allcount = allCol.length
For i = 0 To allcount - 1
TagName = allCol.item(i).TagName
If TagName = "IMG" Or TagName = "A" Then
TagName = TagName & " - " & allCol.item(i).href
List1.AddItem (TagName)
End If
Next
End Sub
D
delphisnail
Unregistered / Unconfirmed
GUEST, unregistred user!
如果你要，我有分析html语法的东东，写信给我delphisnail@263.net
H
hopfield
Unregistered / Unconfirmed
GUEST, unregistred user!
直接分析源文件里的<a>和</a>不是个好办法，其实可以这样：
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
item:=all.item(i,varempty);
if item.href='特定URL' then
item.click;
end;
end;
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
item:=all.item(i,varempty);
if item.href='特定URL' then
item.click;
end;
end;
H
hog
Unregistered / Unconfirmed
GUEST, unregistred user!
这是个字符串查询的问题,不该放在这个topic里.
F
fsm
Unregistered / Unconfirmed
GUEST, unregistred user!
其实这是编译原理的问题，你可以参看一下这类书籍
F
fox007
Unregistered / Unconfirmed
GUEST, unregistred user!
var
doc:IHTMLDocument2;
all:IHTMLElementCollection;
len,i:integer;
item:OleVariant;
begin
doc:=WebBrowser1 .Document as IHTMLDocument2;
all:=doc.Get_links; //doc.Links亦可
len:=all.length;
for i:=0 to len-1 do begin
item:=all.item(i,varempty); //EmpryParam亦可
memo1.lines.add(item.href);
end;
end;
Z
zyy04
Unregistered / Unconfirmed
GUEST, unregistred user!
Wait,I will post u in a few minite!
Z
zyy04
Unregistered / Unconfirmed
GUEST, unregistred user!
to lanny:
告诉我你的信箱！我好发给你！
告诉我你的信箱！我好发给你！