Funktion til filtrering af HTML-dokument

Vers\'go.

ret = GetHrefs(EtHTMLdokument, \".zip\") \' returnerer eks.:
--START--
myfile1.zip
myfile2.zip
myfile3.zip
--SLUT--

Hvis du efterfølgende siger:
arrRet = Split(ret, vbCrLf)
så får du en array med alle hrefsne

Function GetHrefs(Source As String, Extention As String) As String
Dim Src As String, Ext As String
Dim nextPos As Long, EOHref As Long
Src = LCase(Source)
Ext = LCase(Extention)
nextPos = InStr(1, Src, \"<a href=\") + 2
While nextPos > 2
  EOHref = InStr(nextPos, Src, \"\"\"\") - nextPos
  If EOHref < 1 Then EOHref = InStr(nextPos, Src, \"\'\")
  If EOHRef > 0 Then GetHrefs = GetHrefs & Mid(Src, nextPos, EOHref) & vbCrLf
  nextPos = InStr(nextPos, Src, \"<a href=\") + 2
Wend
End Function

det er ikke testet, men jeg kan se det andet ikke virker - så der er tryk på *S*

<%
Dim strhtml,intstart,intslut,strtype1,strtype2,strtype3,stroutput
\'Her understøttes 3 filtyper, flere kan tilføjes hvis det ønskes.
\'Husk der at tilføje ekstra OR sætninger længere nede!
strtype1=\".zip\"
strtype2=\".mpg\"
strtype3=\".mpeg\"
intstart=0
intslut=0

\'For i=1 til længden af html filen do:
for i=1 to len(strhtml)

\'Hvis to bogstaver er lig <a har vi fundet starten af et link!
if LCase(mid(strhtml,i,2))=\"<a\" then
strstart=i
end if

\'Hvis et bogstav er lig > og vi har fundet et start har vi fundet et
\'slut-tag til et link. Vi kan herefter se om det indeholder den forspurgte
\'filtype
if (LCase(mid(strhtml,i,2))=\">\" and intstart>0) then
if (instr(1,mid(strhtml,intstart,intslut-intstart),strtype1) or instr(1,mid(strhtml,intstart,intslut-intstart),strtype2) or instr(1,mid(strhtml,intstart,intslut-intstart),strtype3)) then
\'OK det er en af de 3 filer! Gem i output stringen!
stroutput=stroutput&mid(strhtml,intstart,intslut-intstart)
intstart=0
intslut=0
else
intstart=0
intslut=0
end if

NEXT
%>

- Husk at deltage i IT-Avisen store HP konkurrence med en 12 speed cd brænder som præmie.
Se mere på http://www.IT-Avisen.dk/konkurrence.asp

woooops, der manglede et end if

<%
Dim strhtml,intstart,intslut,strtype1,strtype2,strtype3,stroutput
\'Her understøttes 3 filtyper, flere kan tilføjes hvis det ønskes.
\'Husk der at tilføje ekstra OR sætninger længere nede!
strtype1=\".zip\"
strtype2=\".mpg\"
strtype3=\".mpeg\"
intstart=0
intslut=0

\'For i=1 til længden af html filen do:
for i=1 to len(strhtml)

\'Hvis to bogstaver er lig <a har vi fundet starten af et link!
if LCase(mid(strhtml,i,2))=\"<a\" then
strstart=i
end if

\'Hvis et bogstav er lig > og vi har fundet et start har vi fundet et
\'slut-tag til et link. Vi kan herefter se om det indeholder den forspurgte
\'filtype
if (LCase(mid(strhtml,i,2))=\">\" and intstart>0) then
if (instr(1,mid(strhtml,intstart,intslut-intstart),strtype1) or instr(1,mid(strhtml,intstart,intslut-intstart),strtype2) or instr(1,mid(strhtml,intstart,intslut-intstart),strtype3)) then
\'OK det er en af de 3 filer! Gem i output stringen!
stroutput=stroutput&mid(strhtml,intstart,intslut-intstart)
intstart=0
intslut=0
else
intstart=0
intslut=0
end if
end if

NEXT
%>

Ok, en lille rettelse til funktionen


Function GetHrefs(Source As String, Extention As String) As String
Dim Src As String, Ext As String
Dim nextPos As Long, EOHref As Long
Src = LCase(Source)
Ext = LCase(Extention)
nextPos = InStr(1, Src, \"<a href=\") + 9
While nextPos > 2
  EOHref = InStr(nextPos, Src, \"\"\"\") - nextPos
  If EOHref < 1 Then EOHref = InStr(nextPos, Src, \"\'\")
  If EOHRef > 0 Then GetHrefs = GetHrefs & Mid(Src, nextPos, EOHref) & vbCrLf
  nextPos = InStr(nextPos + EOHRef, Src, \"<a href=\") + 2
Wend
End Function

Fedt nok, mange tak.

WinKill:
Jeg kunne ikke få funktionen til at virke. Jeg kunne godt få den til at udskrive, men det var noget \"mess\" - så desværre. Alligevel 100 point og mange tak for hjælpen!! :o)

it-avisen.dk:
Mange tak for det!! Det virker, selv om det ikke er en funktion. 300 point!
Også mange tak for en kanon nyhedstjeneste! Jeg læser jeres avis dagligt! Keep up the good work!