Article View: pl.comp.lang.vbasic
Article #104586Re: vb6 - wyciągnięcie linków z html
From: joker77
Date: Thu, 08 Apr 2010 16:22
Date: Thu, 08 Apr 2010 16:22
18 lines
1745 bytes
1745 bytes
dim link1 as string
dim i as integer
do
i = instr(ucase(sHTML),ucase("<img"))
if i>0 then
sHTML = right(sHTML,len(sHTML)-i)
link1 =
mid(sHTML,instr(ucase(sHTML),ucase("src=")),instr(ucase(sHTML),ucase(">")-1)
else
exit do
end if
loop
Technical Details
Message-ID:
<020cd9d7-91da-4f78-ae30-3e357f88c6ba@w42g2000yqm.googlegroups.com>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!feeder.erje.net!feeder1-2.proxad.net!proxad.net!feeder1-1.proxad.net!198.186.194.250.MISMATCH!news-out.readnews.com!news-xxxfer.readnews.com!postnews.google.com!w42g2000yqm.googlegroups.com!not-for-mailReferences:
<hpk9dr$eoa$1@news.onet.pl> <d6c4b207-9485-4b5b-ab71-f57d4152f44e@8g2000yqz.googlegroups.com> <hpkcku$o66$1@news.onet.pl> <57fd66ae-908f-422a-8d2e-fe71510a36da@q23g2000yqd.googlegroups.com> <hpklti$p80$1@news.onet.pl> <hpkm00$pg3$1@news.onet.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!feeder.erje.net!feeder1-2.proxad.net!proxad.net!feeder1-1.proxad.net!198.186.194.250.MISMATCH!news-out.readnews.com!news-xxxfer.readnews.com!postnews.google.com!w42g2000yqm.googlegroups.com!not-for-mail From: joker77 <tomek@phuola.com> Newsgroups: pl.comp.lang.vbasic Subject: Re: vb6 - wyciągnięcie linków z html Date: Thu, 8 Apr 2010 09:22:25 -0700 (PDT) Organization: http://groups.google.com Lines: 18 Message-ID: <020cd9d7-91da-4f78-ae30-3e357f88c6ba@w42g2000yqm.googlegroups.com> References: <hpk9dr$eoa$1@news.onet.pl> <d6c4b207-9485-4b5b-ab71-f57d4152f44e@8g2000yqz.googlegroups.com> <hpkcku$o66$1@news.onet.pl> <57fd66ae-908f-422a-8d2e-fe71510a36da@q23g2000yqd.googlegroups.com> <hpklti$p80$1@news.onet.pl> <hpkm00$pg3$1@news.onet.pl> NNTP-Posting-Host: 84.10.173.245 Mime-Version: 1.0 X-Trace: posting.google.com 1270743745 18086 127.0.0.1 (8 Apr 2010 16:22:25 GMT) X-Complaints-To: groups-abuse@google.com NNTP-Posting-Date: Thu, 8 Apr 2010 16:22:25 +0000 (UTC) Complaints-To: groups-abuse@google.com Injection-Info: w42g2000yqm.googlegroups.com; posting-host=84.10.173.245; posting-account=yVDiYwkAAADpMM-rQU9AGSpU4bupX09Z User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 6.0; pl; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3 (.NET CLR 3.5.30729),gzip(gfe) Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 7bit