Finde alle links på en hjemmeside ?

Jeg har en del af et script her...:

Men det er designet til kun at finde decimaltal...
Og det skal så kun here indhold af herf=""...

Kan dette lade sig gøre...


re.Pattern = "/<a[^>]*?href=""(.*?)""[^>]*>/"
Set matches = re.Execute(text)

If matches.Count > 0 Then
    tal = matches(0)
    tal = Replace(tal, ".", "")
    tal = Replace(tal, ",", ".")

    smallest = tal
    largest = tal

    For i=1 To matches.Count-1
        tal = matches(i)
        tal = Replace(tal, ".", "")
        tal = Replace(tal, ",", ".")
        tal = +tal

        Response.Write tal&"<br>"

    Next

End If

Hvad giver


If matches.Count > 0 Then
    For i=0 To matches.Count
        noget = matches(i)

        Response.Write noget&"<br>"

    Next

End If

re.Pattern = "/<a[^>]*?href=""(.*?)""[^>]*>/"
Set matches = re.Execute(text)

If matches.Count > 0 Then
    For i=0 To matches.Count
        noget = matches(i)

        Response.Write noget&"<br>"

    Next

End If

Det giver ingenting... Selvom der er nogle links i teksten...

Der skal vist ikke være delimiters i ASP, så vidt jeg kan læse mig til:

- re.Pattern = "/<a[^>]*?href=""(.*?)""[^>]*>/"
+ re.Pattern = "<a[^>]*?href=""(.*?)""[^>]*>"


Har du initialiseret med "new"?

Den kommer med denne ASP-fejl...: Invalid procedure call or argument

Prøv at vise noget mere kode.

Jeg aner forresten ikke en kæft om ASP, så det er rent gætværk :)

Hehe...

Dette er hele min kode...

url = "http://www.sol.dk/"
set Req = Server.CreateObject("Msxml2.ServerXMLHTTP")
Req.open "GET", url, False
Req.Send

text = Req.ResponseText

re.Pattern = "/<a[^>]*?href=""(.*?)""[^>]*>/"
Set matches = re.Execute(text)

If matches.Count > 0 Then
    For i=0 To matches.Count
        noget = matches(i)

        Response.Write noget&"<br>"

    Next

End If

Jeg har aldrig brugt // i Pattern i ASP.

Prøv og fjern dem.

Øhh... men så har den da ikke noget filter at gå efter vel ?

Min fejl... lidt tidligt...

den kommer med denne fejl...

Object required: 're'

Nu har jeg tilføjet

Set re = New RegExp
re.Global = True
re.IgnoreCase = True

til mit script men nu kommer den med den oprinlige fejl igen...

Invalid procedure call or argument

På denne linie...: noget = matches(i)

(exp.dk lavede lige 3 poster for mig... sorry)

<ole>

Prøv:

Dim re, text

Set re = New RegExp
re.Global = True
re.IgnoreCase = True

text = "blabla bla <a title=""mit link"" href=""http://www.google.com"">Google</a> blabla bla blabla <a href=""http://www.yahoo.com"" title=""mit andet link"">Google</a> bla bla blabla"

re.Pattern = "<a(.*?)href=""(.*?)""(.*?)>"
Set matches = re.Execute(text)

If matches.Count > 0 Then
    For i=0 To matches.Count-1
        noget = matches(i)
        Response.Write noget & "<br>"
    Next
End If

/mvh
</bole>

Ikke helt... :(

Dette bliver resultetet...!

(<a title="mit link" href="http://www.google.com"><br><a href="http://www.yahoo.com" title="mit andet link"><br>)
den skulle gerne liste dem sådan her....:

http://www.google.com
http://www.yahoo.com
http://www.google.com
http://www.yahoo.com
osv...

Hmm - mon ikke match har en group man kan tilgå?

Altså jeg har et php-script som laver det jeg vil have... men skal desværre bruge det i asp og kender ikke de pågældende funktioner fra php til asp...

i php ser det således ud...

<?php
    $url = $_GET['url'];
    preg_match( '!http://([^/]+)(/.*)?$!', $url, $m );
    $host = 'http://' . $m[1];
    $path = $m[2];
    if ( strlen( $path ) > 0 && substr( $path, -1 ) != '/' )
    {
        $path = dirname( $path ) . '/';
    }
    $cnt = file_get_contents( $url );
    if ( preg_match_all( '§<a.*?href="(.*?)"§si', $cnt, $m ) )
    {
        foreach ( $m[1] as $link )
        {
            if ( !preg_match( '!^java script:!i', $link ) && $link != '#' )
            {
                if ( !preg_match( '!^http://!', $link ) )
                {
                    if ( $link[0] == '/' )
                    {
                        $link = $host . $link;
                    }
                    else
                    {
                        $link = $host . $path . $link;
                    }
                }
                echo "$link<br>";
            }
        }
    }
?>

undergrupper fanger du med matches(i).SubMatches(x)

Så prøv at se, hvad der gemmer sig i SubMatches(1) eller 2

Jeg er ikke helt med i det der matches(i).SubMatches(x) hvordan skulle koden se ud efter jeres indlæg... :)

oleboles


Dim re, text

Set re = New RegExp
re.Global = True
re.IgnoreCase = True

text = "blabla bla <a title=""mit link"" href=""http://www.google.com"">Google</a> blabla bla blabla <a href=""http://www.yahoo.com"" title=""mit andet link"">Google</a> bla bla blabla"

re.Pattern = "<a(.*?)href=""(.*?)""(.*?)>"
Set matches = re.Execute(text)

If matches.Count > 0 Then
    For i=0 To matches.Count-1
        noget = matches(i).SubMatches(1)
        Response.Write noget & "<br>"
    Next
End If

Dooohhhh ... ja, jeg tænkte ikke på, at du selvfølgelig vil hive dine parenteser ud  =)

I php skriver den automatisk http og www foran de links der ikke har en fuld sti... er det noget som asp også kan auto.

Hvad er mon det i PHP, der automatisk skriver 'http' eller 'www'. Det er jeg ikke stødt på i de 10 år, jeg har kodet PHP  =)

:)

Er lige ved at få det til at lykkes... tror jeg...

Lige et hurtigt sideskift...

ved i hvordan at jeg kan få XMLHTTP'en til at fortsætte hvis der kommer en URL den ikke kan læse...

Uden at gå over i noget der ping'er alle adresser der kommer igennem...?

set Req = Server.CreateObject("Msxml2.ServerXMLHTTP")
Req.open "GET", "blablabla", False
Req.Send