webForumDet fria alternativet

xmlhttp

2 svar · 340 visningar · startad av Gimbo

GimboMedlem sedan dec. 20001 626 inlägg
#1

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?

J.N.Medlem sedan apr. 20031 660 inlägg
#2

HEJ!

Att ta bort html-koden gör du med Regexp, sök på "remove (alt. ta bort) html" på wF eller Google. Din variant tar inte bort hela html-koden, som du säkert märkt.

Din Replace borde fungera som den är, svårt att svara på. Eventuellt påverkar frågan ovan texten du letar i.
Lös alltså att ta bort länkningen först.

Sista delen är troligen för att få ut en lämplig del av texten, det enklaste sättet att se vad som finns, är att skriva ut str före/efter Right/Left, kombinerat med att lägga till några tecken som funktionerna tar bort/lämnar kvar.

GimboMedlem sedan dec. 20001 626 inlägg
#3

ok får väl söka lite till, men va beredda på att jag återkommer :p

126 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
124 ms — hämta tråd, inlägg och bilagor (db)