"stjæle" date?

<ole>

Løsningen er afhængig af, hvordan du vil hente data. Du kan indlæse dokumentets kode i en streng, som du lader ASP parse med noget RegExp. Du kan også udskrive en kopi af dokumentet og lade JavaScript/DOM hente de pågældende links og poste dem mod et dokument, som indsætter data i en DB

/mvh
</bole>

Hej Ole

Min tanke var noget RegExp - hvor man jo i første omgang skal hente siden og så finde de links der skal findes... Altså kun dem der er på listen over kredsene... Og ikke fx. dem som er i menuen på siden med videre...

Og så når de links bladres igennem skal hvert gemmes i en database...

Hvordan skal dette skrues sammen?

\Dan

Jeg har ikke lige en IIS at teste på ved hånden, men et skud fra hoften er:

    Set Req = Server.CreateObject("Msxml2.ServerXMLHTTP")
    Req.Open "GET", "http://fdf.dk/bn/links/?kid=2", False
    Req.Send
    Text = Req.ResponseText
   
    startPos = InStr(Text, "<h1>Kredse</h1>") + 15
        '15 er antallet af tegn i strengen, der skal findes
    Text = Mid(Text, startPos)
    endPos = InStr(Text, "</ul>")
    Text = Mid(Text, 1, endPos)
        'Nu skulle Text gerne indeholde listens start-tag plus alle dens li-tags
   
    Set re = New RegExp
    re.Global = True
    re.IgnoreCase = True
    re.Pattern = "<a href=""(.*?)"""
    Set Matches = re.Execute(Text)
   
    For Each Match In Matches
        'gør noget med: Match.SubMatches(0)
    Next Match

Match.SubMatches(0) - indeholder hvert links href ... hvis skidtet altså virker. Husk i øvrigt at Dim'e alle variabler  ;o)

Hej Ole

Det ser rigtig godt ud det her!

jeg lavede lige "Next Match" om til "Next" og så henter den url'erne som den skal - men hvordan får vi navnene med - altså den tekst som står imellem <a></a>?
Kan man ikke få begge dele med i samme for og next...

\Dan

- sikkert noget i stil med:

Private Sub Command1_Click()
    Set Req = Server.CreateObject("Msxml2.ServerXMLHTTP")
    Req.Open "GET", "http://fdf.dk/bn/links/?kid=2", False
    Req.Send
    Text = Req.ResponseText
   
    startPos = InStr(Text, "<h1>Kredse</h1>") + 15
        '15 er antallet af tegn i strengen, der skal findes
    Text = Mid(Text, startPos)
    endPos = InStr(Text, "</ul>")
    Text = Mid(Text, 1, endPos)
        'Nu skulle Text gerne indeholde listens start-tag plus alle dens li-tags
   
    Set re = New RegExp
    re.Global = True
    re.IgnoreCase = True
    re.Pattern = "<a href=""(.*?)""[^>]*>(.*?)</a>"
    Set Matches = re.Execute(Text)
   
    For Each Match In Matches
        'gør noget med: Match.SubMatches(0) & " :: " & Match.SubMatches(1)
    Next Match
End Sub

Nåja ... jeg fik ikke rettet 'Next Match' til bare 'Next'  ;o)

Det virker bare præcist som det skal!!!

Tak for hjælpen!

Smid et svar for point...

\Dan

Selvtak ... *griiiiiiiiiiiiiiiiiiiiiiiiib*  ;o)

Tak for points  :)

Det var så lidt!...