ASPHTTP udarbejdelse til mere fletsibelt
Hej jeg ar en kode der henter nogel resultater fra en side som jeg selvf. har fået lov til.Jeg kunne dog godt tænke mig at den selv finder ud af hvor mange den skal oprette altså hvis jeg evt ved hvor meget kode der skal til for at den kommer til næste resultat så skal den kunne læse om der er en bestemt ting hvis JA så skal den køre koden igen og blive ved til den ikke finder tingen mere.
så hvis der er 7 resultater så laver den det 7 gange hvis der kun er 5 så 5 gange.
min kode er:
<%
Dim strResult
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.Url = "http://www.dbu.dk/sr/clubTeam.aspx?clubid=761"
HttpObj.FollowRedirects = True
HttpObj.RequestMethod = "GET"
HttpObj.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B; Windows NT)"
strResult = HttpObj.GetURL
Dim Start, Read, ReadEnd, Team, Pulje, Team1, Pulje1
Start=instr(1,strResult,"linkSR")
Read=instr(Start,strResult,">")+1
ReadEnd=instr(Read,strResult,"<")
Team=mid(strResult,Read,ReadEnd-Read)
Read=instr(ReadEnd,strResult,"linkSR")+8
ReadEnd=instr(Read,strResult,"<")
Pulje=mid(strResult,Read,ReadEnd-Read)
Read=instr(ReadEnd,strResult,"linkSR")
ReadEnd=instr(Read,strResult,">")
Read=instr(ReadEnd,strResult,"linkSR")
ReadEnd=instr(Read,strResult,">")
Read=instr(ReadEnd,strResult,"linkSR")
ReadEnd=instr(Read,strResult,">")
Read=instr(ReadEnd,strResult,"linkSR")
ReadEnd=instr(Read,strResult,">")
Read=instr(ReadEnd,strResult,"linkSR")+8
ReadEnd=instr(Read,strResult,"<")
Team1=mid(strResult,Read,ReadEnd-Read)
Read=instr(ReadEnd,strResult,"linkSR")+8
ReadEnd=instr(Read,strResult,"<")
Pulje1=mid(strResult,Read,ReadEnd-Read)
Response.Write Team &" "& Pulje &"<br>"
Response.Write Team1 &" "& Pulje1 &"<br>"
Set HttpObj = nothing
%>
jeg ved at den skal kører
Start=instr(1,strResult,"linkSR")
Read=instr(Start,strResult,">")+1
ReadEnd=instr(Read,strResult,"<")
Team=mid(strResult,Read,ReadEnd-Read)
Read=instr(ReadEnd,strResult,"linkSR")+8
ReadEnd=instr(Read,strResult,"<")
Pulje=mid(strResult,Read,ReadEnd-Read)
Read=instr(ReadEnd,strResult,"linkSR")
ReadEnd=instr(Read,strResult,">")
Read=instr(ReadEnd,strResult,"linkSR")
ReadEnd=instr(Read,strResult,">")
Read=instr(ReadEnd,strResult,"linkSR")
ReadEnd=instr(Read,strResult,">")
Read=instr(ReadEnd,strResult,"linkSR")
ReadEnd=instr(Read,strResult,">")
og herefter kan det være at der ikke er LINKSR mere hvis JO så skal den køre det hele igen og selv kunne sætte et tal foran Team og Pulje.
Kan det lade sig gøre eller skal jeg se på hvor mange hold der er og så copy/past det det antal gange det findes eller kan det gøret mere fletsibelt !?
