webForumDet fria alternativet

regexp kanske?

ASPur ASP

4 svar · 238 visningar · startad av Percy

PercyMedlem sedan mars 2000187 inlägg
#1

Hej!

Jag har en sida som läser in valutakurssidan hos forex, det jag nu skulle behöva är ett sätt att sålla all info och bara hämta den som är relevant dvs swift kod (typ EUR och SEK) och dess värde.
Jag anatar att man bör använda sig av någon regexp för det, men då jag inte har en aning om hur man använder det kanske är någon som vet eller ännu bättre redan har någon liknande?

tack på förhand

Jesper TMedlem sedan nov. 20017 144 inlägg
#2

Detta kanske kan vara något?
http://www.webforum.nu/showthread.php?s=&threadid=47359

LarsGMedlem sedan dec. 200012 464 inlägg
#3

Kan du beskriva mer i detalj hur data ser ut och vilken del du vill ha ut. Förmodligen blir det enklast med regexp.

PercyMedlem sedan mars 2000187 inlägg
#4

datan hämtas från denna sida:

http://www.forex.se/rates.asp?sectionId=246

det jag vill ha ut är valuta dvs EUR och dess värde från "FOREX säljer sedlar" kolumnen f.n. 9,1289.

är du med vad jag vill ha ut för data då?

solbulleMedlem sedan mars 20015 287 inlägg
#5

Inte för att jag vet om denna sida är "beständig" (som datan hämtas från.):

<%

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.forex.se/shop-page.asp?sectionId=245&submode=1&To=EUR", False

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

Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "kursen.* Minsta."
Set hittade = objRegExp.Execute(strHTML)

Function red(strText) 
	strText = replace(strtext,"kursen"," ")
	strText = replace(strtext,". Minsta"," ")

	red = strText
End Function

For each item in hittade
With response
	.write("Dagens kurs: ")
	.write red(item.value)
End with
Next

%>
130 ms totalt · 3 externa anrop · v20260731065814-full.29ac60f6
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)