Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[NEED HELP] Currency coverter.
#11
(08-14-2011, 08:13 AM)Fragma Wrote: What errors are you getting? The code I gave you might not work 100% it was just an example.

Edited the post above you.
Take a look it might be easier for you to see what is wrong now.
Reply
#12
Code:
Dim myDatabuffer As Byte() = myWebClient.DownloadData("http://www.xe.com/ucc/convert/?Amount=" & amount.text & "&From=" & combobox1.text & "&to=" & combobox2.Text ")

Remove the " after combobox2.Text
Reply
#13
(08-14-2011, 08:18 AM)Fragma Wrote:
Code:
Dim myDatabuffer As Byte() = myWebClient.DownloadData("http://www.xe.com/ucc/convert/?Amount=" & amount.text & "&From=" & combobox1.text & "&to=" & combobox2.Text ")

Remove the " after combobox2.Text

Now I only have one error left.
The error is in this code:
Code:
"<td align="right">", "</td>", 0)
Reply
#14
It'll be because of "right". Not sure if this will work but try:
Code:
"<td align="""right""">", "</td>", 0
Reply
#15
(08-14-2011, 08:23 AM)Fragma Wrote: It'll be because of "right". Not sure if this will work but try:
Code:
"<td align="""right""">", "</td>", 0
Damn, it still doesn't work.
Reply
#16
By the way I've just read this in the pages source:
WARNING: Automated extraction of rates is prohibited under the Terms of Use.

Not sure why they wouldn't allow it, but it might be worth contacting them just in case?

I'll have a look into that bit of code anyway, give me a few minutes. Smile
Reply
#17
(08-14-2011, 08:36 AM)Fragma Wrote: By the way I've just read this in the pages source:
WARNING: Automated extraction of rates is prohibited under the Terms of Use.

Not sure why they wouldn't allow it, but it might be worth contacting them just in case?

I'll have a look into that bit of code anyway, give me a few minutes. Smile

Well it's mostly for learning purpose.
So I can study the code and get a understanding of it, and hopefully see it working.
Reply
#18
Code:
Dim CON As String = GetBetween(download, _
       "46%"" align=""left"">", "&nbsp", 0)

Seems to work OK.
Smile
Reply
#19
(08-14-2011, 08:49 AM)Fragma Wrote:
Code:
Dim CON As String = GetBetween(download, _
       "46%"" align=""left"">", "&nbsp", 0)

Seems to work OK.
Smile

Thanks a lot mate.
It works fine now Smile
Reply
#20
No problem, glad I could help. Smile
Reply


Forum Jump:


Users browsing this thread: 4 Guest(s)