Grab newsheadlines ...hvordan?

hvilke sites drejer det sig om?

lytter med

me 2

op til 12 forskellige, jeg ved ikke hvilke endnu da det kun er en ide jeg har.
men det skulle i principet være hvilket som helst site.

det er svært at svare uden at kende siderne det skal komme fra... for ikke at sige umuligt...

jeg ved at asptoday.com har en artikel som beskriver (med sourcecode) hvordan det gøres.... problemet er bare at man skal subscribe til det site .... nogen her der har adgang til det site :)

Orca: jamen så lad tage www.microsoft.com som et eksempel

jeg finder det ret svært at finde noget unikt som identificerer at \"her starter en nyhed\". Man skal bruge noget unikt startpunkt som man så kan lave en InStr efter osv... ihvertfald ifølge mine tanker

hvad så hvis vi siger at vi vil have alle links fra deres site ?  (eller bare link teksten...text imellem <a href=...> til </a>)

jeg gider ikke lige strikke koden sammen (for træt/for lidt kaffe) så jeg giver bare en opskrift. Få sourcekoden ind i en streng - her kaldet mainstr. så laver du en instr for at finde <a href= derfra kører du en isntr for at finde det første >. så ved du hvor url\'en begynder, denne position kommer du ind i en integer. derfor kører du nu en instr til den første < (der stander url\'en). dette kommer du ind i en anden integer. så kan du lave en left funktion fra integer(1) positionen og derefter en right funktion fra integer(2) positionen. så ender du op med en helt ren url. du kan så loope hele sourcekoden igennem inden du laver right... og så komme de rene url\'er ind i en array af strings efterhånden som du finder dem.

MVH Mark

hmmm, en lang smøre... håber det er forståeligt ;o)

jeg har nørklet en funktion sammen (har modificeret en anden kode jeg havde liggende)... og det virker :)...faktisk ret hurtigt og effektivt.

pos = InStr(pos,strPage,\"<Font Face=\"\"Verdana, Arial\"\" Size=\"\"4\"\">\")
        If pos = 0 Then Exit Do
        pos = InStr(pos,strPage,\"<a\")
        If pos = 0 Then Exit Do
        endpos = InStr(pos+1,strPage,\"</a>\")
        If endpos = 0 Then Exit Do
        If endpos-pos < 110 Then
        news(I) = mid(strPage,pos,endpos-pos-1)
        I = I + 1