---
title: "Plocka ut USD säljkurs från Forex valutaprogram?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/111910-plocka-ut-usd-säljkurs-från-forex-valutaprogram"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "bigsky"
published: "2004-09-19T11:33:26.000Z"
updated: "2004-09-24T14:47:39.000Z"
replies: 8
views: 355
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/111910-plocka-ut-usd-säljkurs-från-forex-valutaprogram"
---

# Plocka ut USD säljkurs från Forex valutaprogram?

## #1 — bigsky, 2004-09-19T11:33Z

Vi prenumererar på Forex valutaprogram och får därför plocka ut de olika värdena för olika valutor och använda dem på vår sida. Problemet är att Forex inte tillhandahåller tekniken för att plocka ut värdena. Skulle någon kunna skriva ihop ett komplett kodexempel för att plocka ut säljkursen för USD från sidan <http://www.forex.se/framerates.asp?id=142&lang=sv>

Det enda värdet som ska finnas kvar efter avskalning ska vara valutas värde, tex. "7.6317".

Permalänk: https://www.webforum.nu/p/111910

## #2 — solbulle, 2004-09-19T18:34Z

Riktig spagettikod:

```
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.forex.se/framerates.asp?id=142&lang=sv", False
objHTTP.setRequestHeader "Content-type","text/html"
objHTTP.Send
strHTML = objHTTP.responseText
Set objHTTP = Nothing

Set RegEx = New RegExp
RegEx.Global = True

'Plockar ut raden med vald valuta
RegEx.Pattern = "<td class=""FOREXHighlight"">USD</td>"
strHTML= RegEx.Replace(strHTML,( chr(253) ))
RegEx.Pattern = "<td colspan=""9"">&nbsp;</Td>"
strHTML= RegEx.Replace(strHTML,( chr(254) ))
RegEx.Pattern = chr(253) & "[^" & chr(254) & "]*" & chr(254)
Set strOut = RegEx.execute(strHTML)

strHtml = strOut.Item(0)

RegEx.pattern = "(\n)"
strHtml = RegEx.replace(strHtml, " ")

strHtml = Replace(strHtml,chr(253)," ")
strHtml = Replace(strHtml,chr(254)," ")

'plockar ut rätt kolumn
RegEx.Pattern = "<td class=""FOREXHighlight"">"
strHTML= RegEx.Replace(strHTML,( chr(253) ))
RegEx.Pattern = "</td>"
strHTML= RegEx.Replace(strHTML,( chr(254) ))
RegEx.Pattern = chr(253) & "[^" & chr(254) & "]*" & chr(254)
Set strOut = RegEx.execute(strHTML)

strHtml = strOut.Item(3)

Set RegEx = Nothing

strHtml = Replace(strHtml,chr(253)," ")
strHtml = Replace(strHtml,chr(254)," ")

response.write trim(strHtml)
%>
```

Permalänk: https://www.webforum.nu/p/1442085

## #3 — bigsky, 2004-09-23T00:26Z

Det blir bara ett internt serverfel med den koden. Microsoft.XMLHTTP stöds dock.

Permalänk: https://www.webforum.nu/p/1443725

## #4 — solbulle, 2004-09-23T15:51Z

Och vad får du för felmeddelande om du slår av Friendly error messages / Egna http-felmeddelanden i Internet Explorer?

Permalänk: https://www.webforum.nu/p/1444008

## #5 — bigsky, 2004-09-23T21:58Z

Microsoft VBScript runtime fel '800a0005' 

Invalid procedure call or argument 

/macgyverworldcom/usd.asp, rad 29

\--

29 = strHtml = strOut.Item(0)

Permalänk: https://www.webforum.nu/p/1444230

## #6 — solbulle, 2004-09-24T14:29Z

Ah, det är denna rad som blev tokig när jag postade koden:

```
RegEx.Pattern = "<td colspan=""9"">&nb-sp;</Td>"
```

Fimpa bindestrecket.

Permalänk: https://www.webforum.nu/p/1444525

## #7 — bigsky, 2004-09-24T14:32Z

Ok, skulle du kunna uppdatera din kod ovan så att det bara är att klippa och klistra?

Permalänk: https://www.webforum.nu/p/1444528

## #8 — solbulle, 2004-09-24T14:43Z

Kolla bara efter den rad som ser ut likt den i mitt senaste inlägg, skillnaden är att det ska stå &-n-b-s-p-; och inte ett vanligt mellanslag som wF-koden omvandlar det till.
Lätt som en plätt.
Kan iofs vara läge att lägga in någon form av felkoll som fångar upp dylika fel så att man kan konstruera ett något vackrare felmeddelande än det du fick.

Permalänk: https://www.webforum.nu/p/1444537

## #9 — bigsky, 2004-09-24T14:47Z

Ja jäklar, det fungerade ju finfint.

Permalänk: https://www.webforum.nu/p/1444540

---

Tråden på webben: https://www.webforum.nu/amne/asp/111910-plocka-ut-usd-säljkurs-från-forex-valutaprogram