XMLHTTP + regexp, regexp fungerar inte som jag vill

7 svar · 289 visningar · startad av Jacob 3 okt. 2002

JacobMedlem sedan dec. 2000503 inlägg

Frågan3 okt. 2002 08:50#1

Jag har försökt söka men har inte hittat något svar.

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.mobil.se/nyheter/nyheter.asp?sid=1", false

objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "Huvudnyhet*Huvudnyhet SLUT"
Set hittade = objRegExp.Execute(strHTML)

For each item in hittade
With response
	.write("Mobil: ")
	.write item.value
End with

Jag får inga felmess, sidan skiver itne ut något. Och jag vet att sidan innehåller:
en massa nyhter

Som du förstår så vill jag plocka ut nyhterna.

JacobMedlem sedan dec. 2000503 inlägg

3 okt. 2002 10:07#2

Jag kan inte regex, men jagh har komit på att det är är ute efter är en patten som plockar ut allt mellan  och

JacobMedlem sedan dec. 2000503 inlägg

4 okt. 2002 15:51#3

Är det här omöjligt? Det tror jag inte.

Någon måste veta

@ndersMedlem sedan juni 200032 967 inlägg

4 okt. 2002 16:05#4

Jag kan inte heller RegExp, därför ser jag en annan lösning. ;)

Med lite strängfunktioner och en trött @ndershjärna borde detta fjunka:

strHTML = right (strHTML, len(strHTML)-instr(strHTML, "<!--Huvudnyhet-->")-16)
strHTML = left (strHTML, instr(strHTML, "<!--Huvudnyhet Slut-->")-1)

Mvh,

LarsGMedlem sedan dec. 200012 464 inlägg

4 okt. 2002 16:05#5


Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "(Huvudnyhet)(.*?)(Huvudnyhet SLUT)"
Set hittade = objRegExp.Execute(strHTML)

For each match in hittade
   With response
    	.write("Mobil: ")
	.write match.submatches(1) & "<br>"
   End with
next

JacobMedlem sedan dec. 2000503 inlägg

4 okt. 2002 16:17#6

Den fungerade inte LarsG, det skrivs inte ut något.

och inte din heller @nders, få ett felmess:

Invalid procedure call or argument: 'left'

LarsGMedlem sedan dec. 200012 464 inlägg

4 okt. 2002 16:30#7

Får du in något vettigt i strHTML då?

Jag testade delen med regexp med en påhittad text och det fungerade bra för mig.

JacobMedlem sedan dec. 2000503 inlägg

4 okt. 2002 16:39#8

Om jag gör så här innan:
strHTML = replace(strHTMLchr(10),"")

Så fungerar det. men den siver barta ut första nyheten, det finns flera stycken.
en nyhet
en nyhet
en nyhet