VBS-Bis zu einem Ergebnis "zählen"

[PAHO]

Grüss Euch,
ich habe hier eine Funktion, die habe ich online gefunden und an meine Bedürfnisse angepasst.
Die Funktion hat die Aufgabe, mir Links aus dem WWW (aus einer XML-Datei) auszulesen und sie mir darzustellen. Nun ist es bei der Funktion so, das ich die Möglichkeit habe eine bestimmte Anzahl von Ergebnissen (Links) zu bekommen. Das geschieht aber immer nach der Reihe.
Ich fange leider so nicht viel damit an...was ich brauche ist eine weitere Funktion bei der ich angeben kann, an welchem Platz ein Link steht, sprich eine Funktion die mir eben die ersten Ergebnisse um DEN WERT überspringt, den ich angegeben habe.
Ist das irgendwie möglich ? - Das Skript ist nicht sehr komplex aufgebaut...

Const OUTPUT_FORMAT = "<torrentlink>"

Function getAnimeLinks(NumberOfReleases)


    Dim htmlResult
    ReDim strTorrentLink(NumberOfReleases), strRelease(NumberOfReleases)

    htmlResult = ReturnHTML("http://www.animesuki.com/xml.php")

    WorkingResult = htmlResult

    Set RE = New RegExp
    RE.Global = True

    'Anime Link anfragen
    RE.Pattern = "<direct>(.*?)</direct>"
    
    Set linktemp = RE.Execute(WorkingResult)

    For i = 0 To NumberOfReleases -1
      Set oMatch = linktemp(i)
      strTorrentLink(i) = oMatch.SubMatches(0)
    Next

    For b = 0 To NumberOfReleases - 1
	'Generate full release string
	strRelease(b) = OUTPUT_FORMAT
	strRelease(b) = Replace(strRelease(b), "<torrentlink>", strTorrentLink(b), 1, -1, 1)
    Next

    For b = 0 To NumberOfReleases - 1
	getAnimeLinks = getAnimeLinks & strRelease(b) & vbCrLf
    Next

End Function

MfG,
Patrick.

 

[thekorn]

Also, durch deine Code steige ich nicht durch, aber wenn er funktioniert ...
(insbesondere dies hier finde ich merkwürdig

    For b = 0 To NumberOfReleases - 1
	'Generate full release string
	strRelease(b) = OUTPUT_FORMAT '="<torrentlink>" (?)
	strRelease(b) = Replace(strRelease(b), "<torrentlink>", strTorrentLink(b), 1, -1, 1)
    Next

Du musst meiner Meinung nach einfach nur bei der Ausgabe die ersten "x" ergebnisse überspringen:

    For b = 0 To NumberOfReleases - 1
	getAnimeLinks = getAnimeLinks & strRelease(b) & vbCrLf
    Next

gruß
thekorn