Hej.

Jag har verkligen kört fast i min kod. Jag skulle bara göra en "enkel" funktion som öppnar valfri fil (exempelvis en html-fil) och plockar ut alla länkar som finns.

För att det skulle bli ännu enklare, begränsade jag funktionen till att bara hitta länkar där både "http://" och ".html" eller ".htm" ingår.

Dessvärre fungerar funktionen väldigt dåligt, och den hittar ibland bara ett par stycken länkar där den borde hitta mängder.

Funktionen öppnar filen, och laddar in en rad åt gången, för granskning. Jag misstänker att funktionen inte hittar mer än en länk per rad, och att vissa html-filer har länkarna inpackade på en o samma rad. (?)

Jag strulade runt lite för att funktionen ska hitta alla länkar ... även flera på samma rad, men jag har fastnat.

Någon som kan? Hjälp någon?

Hej.
Här är en halvfärdig funktion för ASP. Du kanske kan få några idéer...
Tog själv lite kod från ett exempel här på forumet.
(Kräver förståss att du hämtar upp innehållet i filen till en variabel)


Function getLinks(str)
Dim TheString, searchFromPos
Dim httpStartPos, httpEndPos
Dim strHttp, strHttpNew
str = str & " "
searchFromPos = 1
TheString = str
Do Until InStr(searchFromPos, LCase(str), "http://") = 0
httpStartPos = InStr(searchFromPos, LCase(str), "http://")
httpEndPos = InStr(httpStartPos, str, " ")
strHttp = " " & Mid(str, httpStartPos, httpEndPos - httpStartPos)
strHttpNew = " " & Trim(strHttp) & " "
searchFromPos = httpEndPos
TheString = Replace(TheString, strHttp, strHttpNew)
Loop
getLinks = Trim(TheString)
End Function