---

Hej alle kloge mennesker!

Jeg sidder med et lille problem.
Jeg skal have importeret, noget tekst fra en webside.
Jeg havde tænkt mig at importere, sidens Kildekode: ("Vis Kildekode")
og derfra hente den ønskede oplysning!

MEN MEN MEN...

Hvordan hentes en sides kildekode ind i en Listbox Feks. ?

alle svar bliver modtaget med kyshånd.

Mvh og på forhånd tak
Kim

---

Kim wrote:
> Hej alle kloge mennesker!
>
> Jeg sidder med et lille problem.
> Jeg skal have importeret, noget tekst fra en webside.
> Jeg havde tænkt mig at importere, sidens Kildekode: ("Vis Kildekode")
> og derfra hente den ønskede oplysning!
>
> MEN MEN MEN...
>
> Hvordan hentes en sides kildekode ind i en Listbox Feks. ?
>
> alle svar bliver modtaget med kyshånd.
>
> Mvh og på forhånd tak
> Kim

Det klares ikke lige på fire linier, men du skal til en start have fat i
Microsoft Internet Transfer Control ( MSINET.OCX )
(Project/Components)

---

Hej Gert!

Nej tænkte nok det ikke var så let, men vil nu gerne lære det
Jeg har fundet Microsoft internet Transfer Kontrollen
men er lidt lost derfra.

Mvh kim


"Gert Krabsen" <fjernkrabsen@fjernkrabsenfjern.dk> skrev i en meddelelse
news:46c30e79$0$90263$14726298@news.sunsite.dk...
> Kim wrote:
>> Hej alle kloge mennesker!
>>
>> Jeg sidder med et lille problem.
>> Jeg skal have importeret, noget tekst fra en webside.
>> Jeg havde tænkt mig at importere, sidens Kildekode: ("Vis Kildekode")
>> og derfra hente den ønskede oplysning!
>>
>> MEN MEN MEN...
>>
>> Hvordan hentes en sides kildekode ind i en Listbox Feks. ?
>>
>> alle svar bliver modtaget med kyshånd.
>>
>> Mvh og på forhånd tak
>> Kim
>
> Det klares ikke lige på fire linier, men du skal til en start have fat i
> Microsoft Internet Transfer Control ( MSINET.OCX )
> (Project/Components)
>

---

Kim wrote:
> Hej Gert!
>
> Nej tænkte nok det ikke var så let, men vil nu gerne lære det
> Jeg har fundet Microsoft internet Transfer Kontrollen
> men er lidt lost derfra.
>
> Mvh kim

Som sagt er det lidt kringlet. Mit kode er indpakket i en masse andet,
som jeg helst ikke vil give fra mig, men meget kort skal du interessere
dig for 'Url' og 'OpenUrl'

Lidt pluk og renset for errorhandling m.v.:

"
Dim minUrl as string
Dim hentetHtml as string

minUrl="http://www.dr.dk/P1/Esmann/Udsendelser/2006/10/12101801.htm"
form1.Inet1.URL = minUrl
hentetHtml = form1.Inet1.OpenUrl(form1.Inet1.URL)
"

Og så er det bare at parse indholdet af hentetHtml


Du kan f.eks. lave en lille rutine, der automatisk slår en adresseliste
op på de gule sider og returnerer telefonnumrene..

mvh
Krabsen

---

Hej Gert!

Det var jo forholdsvis simpelt!

det var en helt kanon beskrivelse, og med lidt snilde vil den også virke i
mit tilfælde!

Tusind tak for den hurtige og gode hjælp! ( IGEN IGEN )

Mvh kim

"Gert Krabsen" <fjernkrabsen@fjernkrabsenfjern.dk> skrev i en meddelelse
news:46c3238a$0$90267$14726298@news.sunsite.dk...
> Kim wrote:
>> Hej Gert!
>>
>> Nej tænkte nok det ikke var så let, men vil nu gerne lære det
>> Jeg har fundet Microsoft internet Transfer Kontrollen
>> men er lidt lost derfra.
>>
>> Mvh kim
>
> Som sagt er det lidt kringlet. Mit kode er indpakket i en masse andet, som
> jeg helst ikke vil give fra mig, men meget kort skal du interessere dig
> for 'Url' og 'OpenUrl'
>
> Lidt pluk og renset for errorhandling m.v.:
>
> "
> Dim minUrl as string
> Dim hentetHtml as string
>
> minUrl="http://www.dr.dk/P1/Esmann/Udsendelser/2006/10/12101801.htm"
> form1.Inet1.URL = minUrl
> hentetHtml = form1.Inet1.OpenUrl(form1.Inet1.URL)
> "
>
> Og så er det bare at parse indholdet af hentetHtml
>
>
> Du kan f.eks. lave en lille rutine, der automatisk slår en adresseliste op
> på de gule sider og returnerer telefonnumrene..
>
> mvh
> Krabsen