Läsa en sida...

Du kan börja kika tex på denna aktuella tråd: http://www.webforum.nu/showthread.php?s=&threadid=13932

Hur som helst kan du "hämta" sidan med tex XMLHTTP och sen använda regexp för att plocka ut länkarna. Även Asptear är en komponent som är liknande.

Sök på detta och du lär finna en del att starta med.

Hur skall jag använda RegExp för att plocka ut länkarna då?

Pröva sökfunktionen, jag har "ingen" aning.

http://www.webforum.nu/search.php?s=&action=showresults&searchid=71380&sortby=lastpost&sortorder=descending

Det finns ingen annan som har nån idé om hur man plockar du länkarna från en sida med hjälp av RegExp???

Läs om RegExp i en artikel på Vides site: http://www.webeye.nu

Jo, så långt har jag också kommit. Men det är just att få scriptet att lägga till det den hittar i en databas.

Som t ex.
<a href="http://www.microsoft.com"> i kolummen url

och ...soft.com">Microsoft i kolummen name.

som är problemet.

Tror också att Voigtann1 gjorde ett sånt script som ligger i Script från wFs medlemmar

Tack för det!

Skall kolla det om en stund....

Jag hittade inget sådant script...

hmm.. jag ska kolla på detta imorgon.. e för trött nu att försöka lösa detta :)

har försökt... gick inte alls bra :( e kass på XML :(

Har du kommit så pass långt att du har länken samt länknamnet i var sin variabel skall det väl inte vara så svårt att hitta hur du gör en databasinläggning här på forumet.

solbulle skrev:

Har du kommit så pass långt att du har länken samt länknamnet i var sin variabel skall det väl inte vara så svårt att hitta hur du gör en databasinläggning här på forumet.

Det ju just där problemet finns. Jag kan inte få namnet och URLen i varsin variabel...

Visa den kod du har så ska vi se om vi kan snickra vidare.
Jag sökte och hittade några länkar som kanske kan ge något:
http://www.webforum.nu/search.php?s=&action=showresults&searchid=72644&sortby=lastpost&sortorder=descending

Här kommer koden:

<%
Dim url, xmlhttp, myString, objRegExp, myMatches
url = "*******"
set xmlhttp = server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", url, false
xmlhttp.send ""
'Response.write(xmlhttp.responsetext)
myString = xmlhttp.responsetext
set xmlhttp = nothing

Set objRegExp = New RegExp
objRegExp.IgnoreCase = true
objRegExp.Global = true
objRegExp.Pattern = ("http://")
Set myMatches = objRegExp.Execute(myString)
Response.Write("<font style=""font-family: Arial; font-size: 9px;"">")
If myMatches.Count = 0 then
	Response.Write("RegExp hittade <b>" & myMatches.Count & "</b> länkar ")
ElseIf myMatches.Count = 1 then
	Response.Write("RegExp hittade <b>1</b> länk ")
Else
	Response.Write("RegExp hittade <b>" & myMatches.Count & "</b> länkar ")
End If
Response.Write(" på <a href=""" & url & """><b>" & url & "</b></a>")
Response.Write("<hr color=""#C0C0C0"" width=""275"" align=""left"">")
Set objRegExp = Nothing
Response.Write(myString)
%>

RegExp för länkar

Hoppas det här kan hjälpa dig på vägen.

<%
url = "http://www.microsoft.se"
Set xmlhttp = server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", url, False
xmlhttp.send ""
myString = xmlhttp.responsetext
Set xmlhttp = nothing

Set objRegExp = new RegExp
objRegExp.pattern = """http://(.*?)""|''http://(.*?)''"
objRegExp.IgnoreCase = True
objRegExp.Global = True

Set myMatches = objRegExp.Execute(myString)

If myMatches.Count = 0 Then
Response.Write "RegExp hittade inga länkar<BR>"
ElseIf myMatches.Count = 1 Then
Response.Write "RegExp hittade " & myMatches.Count & " länk<BR>"
Else
Response.Write "RegExp hittade " & myMatches.Count & " länkar<BR>"
End If

cnt = 1
For each item In myMatches
Response.Write "Länk " & cnt & " är <B>" & item.Value & "</B><BR>"
cnt = cnt + 1
Next

%>

//Broskan

Där har vi en som kunde sin RegExp :)

men ville han inte att EFTER Regexp hade tagit ur all http:// så skulle alla lagras i databasen?? det var där mitt problem var :)

Han vill väl kanske åt länknamnet också kan jag tänka mig.
Sen kan man väl i loopen som nu skriver ut länkarna i stället göra en databasinsättning.