hej!
Jag har ett script där jag läser ut tabell och matcher från svenska fotbollsförbundets hemsida, men det jag undrar är hur jag kan ta bort länkarna från varje lag?
mitt script ser ut på följande vis:
Function SF(n)
sFind = "<h2>Superettan</h2>"
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.svenskfotboll.se/t3supta.aspx?WCI=&TournamentId=36015", False
objHTTP.Send
str = objHTTP.responseText
Set objHTTP = Nothing
str = Right(str,Len(str)-InStr(str,sFind)+1-len(sFind))
str = Left(str,InStr(str,"contftr")-300)
a=split(str,"<br>")
for i = 0 to Ubound(a)
if i = n then
exit for
end if
a(i) = Replace(a(i),"<a href"," ")
'a(i) = Replace(a(i),"")
myStr=myStr+a(i)+"<br>"
next
SF = myStr
End Function
jag testade att göra så här a(i) = Replace(a(i),"<a href"," ") men det tycks inte fungera?
om inte det går att ta bort länkarna är det möjligt att kunna koppla deras länkar till min sida, dvs att jag genom xmlhttp kopierar det som finns i länken?
sedan skulle jag vilja färga allt som har med Qviding att göra med rött, jag testade att göra detta a(i) = Replace(a(i),"Qviding FIF","<font color=red>Qviding FIFQviding FIF</font> ")
men det funka inte heller!
och min sista fråga i koden så gör jag detta:
str = Right(str,Len(str)-InStr(str,sFind)+1-len(sFind))
str = Left(str,InStr(str,"contftr")-300)
vad gör dessa 2 rader?