Geld waarde in VB 2010

[tim687]

Hallo,
Kan iemand mij helpen, met het downloaden van de waardes van USD en EUR?
Ik wil als het kan dat ze gelezen worden van een website of een tekst bestand dat gedownload wordt, ivm het gebruiken van mijn eigen engine.
Het moeten realtime waarden zijn, kan iemand mij hiermee helpen?

Bedankt,
Tim

 

[JoZ1]

http://www.valuta.nl/
en
http://www.dreamincode.net/forums/topic/97608-read-website-text/

Google is je vriend.

 

[tim687]

die had ik ook gezien, alleen ik vond hem onduidelijk, en ik kan niet begrijpen hoe je de code moet gebruiken. kan je de waardes bijv. als

Dim EUR as valuta.nl/euro
Dim USD as valuta.nl/dollar

gebruiken, en dan de site vervangen door het gelezen getal?

Bedankt,
Tim

 

[JoZ1]

Wil de wisselkoers van USD t.o.v. EUR hebben?

Als jij zegt welke waarden je nodig hebt, maak ik er wel een functie voor.

 

[tim687]

Graag van USD naar EUR en EUR naar USD.
Van USD naar BP en van BP naar USD,
van BP naar EUR en van EUR naar BP.
Kan dat, heel erg bedankt,
Tim

 

[JoZ1]

Het is zeker niet de mooiste/meest efficiënte code, maar het werkt.

[cpp]Private Function Valuta() As String
Try
Dim temp As String = String.Empty, output As String = String.Empty
Dim valutas As String() = {"USD", "EUR", "GBP"}

For Each item As String In valutas
Dim request As Net.WebRequest = Net.WebRequest.Create("http://www.x-rates.com/d/***/table.html".Replace("***", item))
Dim stream As New IO.StreamReader(request.GetResponse().GetResponseStream())
temp = stream.ReadToEnd()
stream.Close()

For Each item2 As String In valutas
If item <> item2 Then
Dim links As String() = {item & "/" & item2, item2 & "/" & item}
For Each link As String In links
Dim match As System.Text.RegularExpressions.Match = _
System.Text.RegularExpressions.Regex.Match(temp, "(/d/" & link & "/graph120.html""" & " class=""" & "menu""" & ">)(?:.*?)(<)")
Dim add As String = "1 " & link.Split("/")(1) & " = " & match.Value.Split(">")(1).Replace("<", "") & " " & link.Split("/")(0)
If Not output.Contains(add) Then output &= add & vbNewLine
Next
End If
Next
Next
Return output

Catch ex As Exception
MsgBox(ex.Message, 16 + 4096, "Error")
Return String.Empty
End Try
End Function[/cpp]

 

[tim687]

Sorry voor de langzame reactie, kan ik nu met USD,EUR en BP gebuiken, dus bijv.
EUR * BP?
Bedankt,
Tim

 

[JoZ1]

Vast wel, experimenteer er eens mee

 

[tim687]

oke ik zal het proberen, ik ben nog niet erg bekend hiermee, dus kan je me vertellen wat de output is?

Bedankt,
Tim

 

[JoZ1]

Ik zou zeggen: probeer het eens uit. Dan kom je er gauw genoeg achter

 

[tim687]

Oke, ik hoop dat het me lukt, ik snap de code niet echt. bedankt!

 

[JoZ1]

Wat je niet snapt, kun je vragen, toch?

Als ik wat meer tijd heb, kan ik evt. de code nog optimaliseren. De huidige is niet erg netjes.

 

[tim687]

Ik snap niet wat hij nu doet, download hij nu de waarde? Of download hij het antwoord?
Hoe moet ik de gedownloade waarde een naam geven zoals: "DUSD" waarbij de eerste d voor downloaded staat. Het moet namelijk de bedoeling zijn dat ik uiteindelijk met de gedownloade waardes een som moet laten maken door het programma.

Bedankt voor de tijd,
Tim

 

[JoZ1]

Hij downloadt de waarden.

output:

1 USD = x EUR
1 USD = x GBP
1 EUR = x USD
1 EUR = x GBP
1 GBP = x USD
1 GBP = x EUR

 

[tim687]

oke op die manier, dus die x is de waarde?

 

[JoZ1]

Dat klopt.

 

[tim687]

om even terug te komen op het onderwerrp. ik snap het nog steeds niet helemaal, de input heb ik volgens mij goed.
maar hoe je de output moet weergeven snap ik nog niet. zou je me daarbij kunnen helpen?
Bedankt,
Tim

 

[JoZ1]

Ik zie dat ze de site die ik in m'n code gebruik hebben veranderd.
Dus moet ik de hele code om gaan bouwen.

Ga ik deze week doen

 

[tim687]

Heel graag! Ik ben namelijk weer gestart met het project waarvoor ik deze nodig heb.
heb nog wel een paar andere dingetjes te doen, maar haast is een groot woord, maar het niveau onder haast, als je me begrijpt.
hartelijk bedankt, en fijne feestdagen!
Tim

 

[JoZ1]

Dit vond ik op die site:

Dus als jij nog een goeie site kan vinden zou dat heel handig zijn.

Jij ook fijne feestdagen, trouwens!