Two Currencies

[JSWEB]

Hi all,

New to the forum so apologies if this posting is in the wrong place.

We have a website that sells our hosting services. We would like to display our prices in two currencies GBP / USD.

We have implemented a simple currency convertor form but would really like to be a bit more clever where a users see both currency prices without having to manually submit the form e.g.

---

Web Server Option #1
£10pcm / $17pcm <-- want both to be just static text.

example page: http://www.jsweb.co.uk/hosting_packages.php

Therefore we believe we need to do two things. 1 know the currency conversion from GBP to USD and then 2 take the variable GBP and X rate to give us USD.

Anyone know of a solution or another approach?

Thanks in advance

Regards

Jamie

[bpat1434]

Hmm... well are you looking for up-to-date conversion or just general?

/**
Side Note:

&middot; 1000 Email Accounts
&middot; Unlimited Email Accounts

Both are for the Windows package, which is it? 1000 or unlimited?
*/

Umm... you could grab the info from x-rates.com and then use that to dynamically generate it.

Something as simple as calling that page into a variable via [man]file_get_contents[/man] and then using RegEx to extrapolate only the info you need (second row in the table on their page). Then, use those values to convert from GBP to USD and vice-versa.

~Brett

[searain]

Is there a authentic site that I can go to to grab the rate using include file command, and then use that rate in my php programming?

Thanks!

[bpat1434]

US Treasury Rates <-- Seem outdated (Sept. 2005)
University of British Columbia <-- Educational normally means semi-accurate
XE.com - World's Favorite Currency Site <-- Seems legit

~Brett

[searain]

thanks. I understand your approach. But nobody offer the information in flat text file or csv file?

Looks like it could be a good free service to attract the traffic. Maybe someone should offer it in flat text file or csv file and in exchange say users should put a small logo in their site saying powered by www.somewhereicangetrate.com etc.

What I mean is that in my codes something like that

<?php

//include all the rates
include ("http://www.somewhereicangetrate.com/allrates.php);

//or include rate by certain currency
include ("http://www.somewhereicangetrate.com/rates.php?currency=euro);

//for example the include file could be a flat text file, or csv file etc such as
/
rmb 8.0123
euro 0.6501
/
//so by get this flat text file I can easily get the rate for rmb, and for euro.
//or some other approach for this purpuse

// i then can read that flat text file or csv or whatever php code easily readable file to get the rate of euro and assign the value to $euro

  echo("1 Dollar =".$euro." Euro"); 

?>

[bpat1434]

Okay... well since you asked nicely:

CSV file

You can parse it like:

<?php
$contents = file_get_contents('http://www.patternet.com/currency/xrate.txt');

$arr = explode(',', $contents);
$info = array();
foreach($arr as $id=>$a)
{
		list($country, $rate, $inv) = explode('_', $a);
		$info[$country]['rate'] = $rate;
		$info[$country]['inv'] = $inv;
}
?>

Which will give you an array like:

array(10) {
  ["USD"]=>
  array(2) {
    ["rate"]=>
    string(7) "1.00000"
    ["inv"]=>
    string(10) "1.00000000"
  }
  ["EUR"]=>
  array(2) {
    ["rate"]=>
    string(8) "0.826959"
    ["inv"]=>
    string(10) "1.20924979"
  }
  ["GBP"]=>
  array(2) {
    ["rate"]=>
    string(8) "0.570205"
    ["inv"]=>
    string(10) "1.75375522"
  }
  ["JPY"]=>
  array(2) {
    ["rate"]=>
    string(7) "116.172"
    ["inv"]=>
    string(10) "0.00860792"
  }
  ["CAD"]=>
  array(2) {
    ["rate"]=>
    string(7) "1.16611"
    ["inv"]=>
    string(10) "0.85755203"
  }
  ["AUD"]=>
  array(2) {
    ["rate"]=>
    string(7) "1.34060"
    ["inv"]=>
    string(10) "0.74593465"
  }
  ["CHF"]=>
  array(2) {
    ["rate"]=>
    string(7) "1.27798"
    ["inv"]=>
    string(10) "0.78248485"
  }
  ["RUB"]=>
  array(2) {
    ["rate"]=>
    string(7) "28.6700"
    ["inv"]=>
    string(10) "0.03487966"
  }
  ["CNY"]=>
  array(2) {
    ["rate"]=>
    string(7) "8.06680"
    ["inv"]=>
    string(10) "0.12396489"
  }
  ["ZAR"]=>
  array(2) {
    ["rate"]=>
    string(7) "6.15751"
    ["inv"]=>
    string(10) "0.16240330"
  }
}

The txt file will update itself every 6 hours. The site I'm using is www.xe.com. You should be able to convert anything from or to USD/GBP/EUR with that info.

~Brett

[Weedpacket]

Since you're operating in the UK, the Bank of England would probably be just as good as any other source (and probably better than many). The exchange rates are tucked in among their other statistical publications; digging around their statistics I eventually tuned up this, and from there can be found in a few downloadable/machine-readable forms.

[searain]

Thanks! bpat1434

Did you just make that page for this thread or it was there before, and will it be there for a long time in the future?

http://www.patternet.com/currency/xrate.txt

How the http://www.patternet.com/currency/xrate.txt get these rates at which update frequency?

I think if it is a php page directly read the data from the currency exchange site and the output a text file, then the rates will be updated when the currency exchange site changes the data.

I have a site with two currencies, Euro and Pounds. The approach what I did is keeping a table in my own database to hold the rate Pounds vs. Euro on my own site. The merchant will update the rate once a week or when big rate changes happens. The Pounds is only for reference anyway. All the financial transactions are in Euro.

With this page, http://www.patternet.com/currency/xrate.txt, or pages like this, we may be able to skip our own database for holding the rate, and link to the page like this and get the instant rate all the time.

Why those bank or currency exchange agencies not offering csv or flat text file to save us all the troubles? 🙂

Thanks again!

[bpat1434]

I actually created the php script & cron to make the txt file was specifically for this thread. It can be up for as long as is needed (and as long as I have money for hosting). If it goes down, it will let me know when it tries to update via an email (nifty huh?). Here's the script, just in case you're wondering how I did it:

<?php
$invs = array();
$info = array();
$to_file = '';
$filename = 'xrate.txt';

$contents = file_get_contents('http://www.xe.com');

$txt_cntrs = substr($contents, strpos($contents, '<tr valign="middle" align="center" bgcolor=#FFFFFF class="t_dat">'), strpos($contents, '</tr>', strpos($contents, '<tr valign="middle" align="center" bgcolor=#FFFFFF class="t_dat">'))-strpos($contents, '<tr valign="middle" align="center" bgcolor=#FFFFFF class="t_dat">'));

$txt_rates = substr($contents, strpos($contents, '<td>&nbsp;<b>1&nbsp;USD&nbsp;=</b></td>'), strpos($contents, '</tr>', strpos($contents, '</table>', strpos($contents, '<td>&nbsp;<b>1&nbsp;USD&nbsp;=</b></td>')))-strpos($contents, '<td>&nbsp;<b>1&nbsp;USD&nbsp;=</b></td>'));

$pat_rates = "@<td>&nbsp;<b>1&nbsp;USD&nbsp;=<\/b><\/td>[\n\s]*<\/tr><\/table><\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*@m";

$pat_cntrs = "@<tr valign=\"[\w]*\" align=\"[\w]*\" bgcolor=#[a-zA-Z0-9]* class=\"[\w]*\">[\n\s]*<td bgcolor=#[a-zA-Z0-9]*><a href=\"[\w\.\/\:]*\"><IMG SRC=\"[\w\.\/\-\:]*\" height=[\d]* width=[\d]* alt=\"[\w\.]*\" align=\"[\w]*\" border=[\d]*></a></td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*@m";

preg_match($pat_rates, $txt_rates, $rates);
preg_match($pat_cntrs, $txt_cntrs, $cntrs);

array_shift($rates);
array_shift($cntrs);

foreach($rates as $rate)
{
		$inverse = round($rates[0]/$rate, 9);
		if(!strpos($inverse, '.'))
		{
			// Most likely a whole number, decimal places
			$inverse .= '.00000000';
		}
		else
		{
			// Give each number 8 decimal places for accuracy
			$inv = substr($inverse, strpos($inverse, '.')+1);
			$chars = strlen($inv);
			if($chars<8)
			{
				for($n=1; $n<=(8-$chars); $n++)
				{
					$inverse .= '0';
				}
			}
			else if($chars>8)
			{
				$over = $chars-8;
				$inverse = substr($inverse, 0, ($over*-1));
			}
			else
			{
				$inverse = $inverse;
			}
		}
		$invs[] = $inverse;
}

for($i=0; $i<(count($rates)-1); $i++)
{
		$info[$cntrs[$i]] = $rates[$i].'_'.$invs[$i];
}

foreach($info as $country => $rates)
{
	$to_file .= $country."_".$rates.",";
}
// Get rid of that last pesky comma
$to_file = substr($to_file, 0, -1);

$fp = fopen($filename, "w");
if((fwrite($fp, $to_file))===FALSE)
{
	$message  = "There was an error updating the exchange rate text file.  Double check the settings.\n\n
	----------------------------------------------------------
	Attempted at ".date('H:i:s')." on ".date('m.d.Y');
	mail('[e-mail]', 'ERROR: Currency Update', $message, "FROM: Errors <[e-mail]>");
}
// Keep it available for writing...
chmod($filename, 0777);
fclose($fp);
?>

~Brett

[searain]

great. I think i will use your last script to get it directly from http://www.xe.com. and make it e-mail me when error happens too. plus, also when error happens, i will code to hide my pounds price.

just wondering, so many organizations/companies sites there offer so many information and services for free, such as offer hundreds online clock, hundreds online counter, and not one of them do a job you just did on your site, offer the rates in flat text or csv.

[JSWEB]

Hi all..

Great to see the thread generate so many great responses... Big thanks to bpat1434 for writing that php script!!

We've also gone for the xe.com source as we found it to be more closer to paypal rates which most of our customers use. Getting the info from paypal would of been perfect but I think you need to login to paypal to get their rates!! lol :p

One error we get with our code (undefined) is when we set a base price for GBP and then try to use the array to display other currencies. I think in your php Bret you're taking USD as default 1.00000.

Any help on printing the array we need would be great.

Regards

Jamie

P.S. bpat1434 - Thanks for point out the error on our site - well spotted.

[bpat1434]

Hmm... yes... Well, let me see if I can make a dynamic one.....

~Brett

EDIT
Updated the script. Now creates a text file in this form:

[USD]:USD_1.00000_1.00000000,EUR_0.823280_1.21465358,GBP_0.564715_1.77080474,JPY_114.465_0.00873629,CAD_1.16430_0.85888516,AUD_1.32670_0.75374990,CHF_1.27020_0.78727759,RUB_28.6700_0.03487966,CNY_8.06754_0.12395352,ZAR_6.14499_0.16273419


[code=php]<?php
function get_rates($cntry)
{
	$countries = array('USD', 'EUR', 'GBP');
	if(!in_array($cntry, $countries))
	{
		return FALSE;
	}
	$invs = array();
	$info = array();
	$to_file = '';

$contents = file_get_contents('http://www.xe.com');

$txt_cntrs = substr($contents, strpos($contents, '<tr valign="middle" align="center" bgcolor=#FFFFFF class="t_dat">'), strpos($contents, '</tr>', strpos($contents, '<tr valign="middle" align="center" bgcolor=#FFFFFF class="t_dat">'))-strpos($contents, '<tr valign="middle" align="center" bgcolor=#FFFFFF class="t_dat">'));

$txt_rates = substr($contents, strpos($contents, '<td>&nbsp;<b>1&nbsp;'.$cntry.'&nbsp;=</b></td>'), strpos($contents, '</tr>', strpos($contents, '</table>', strpos($contents, '<td>&nbsp;<b>1&nbsp;'.$cntry.'&nbsp;=</b></td>')))-strpos($contents, '<td>&nbsp;<b>1&nbsp;'.$cntry.'&nbsp;=</b></td>'));

$pat_rates = "@<td>&nbsp;<b>1&nbsp;".$cntry."&nbsp;=<\/b><\/td>[\n\s]*<\/tr><\/table><\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*@m";

$pat_cntrs = "@<tr valign=\"[\w]*\" align=\"[\w]*\" bgcolor=#[a-zA-Z0-9]* class=\"[\w]*\">[\n\s]*<td bgcolor=#[a-zA-Z0-9]*><a href=\"[\w\.\/\:]*\"><IMG SRC=\"[\w\.\/\-\:]*\" height=[\d]* width=[\d]* alt=\"[\w\.]*\" align=\"[\w]*\" border=[\d]*></a></td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*@m";

preg_match($pat_rates, $txt_rates, $rates);
preg_match($pat_cntrs, $txt_cntrs, $cntrs);

array_shift($rates);
array_shift($cntrs);

$base = array_search('1.00000', $rates);
foreach($rates as $rate)
{
	$inverse = round($rates[$base]/$rate, 9);

	if(!strpos($inverse, '.'))
	{
		$inverse .= '.00000000';
	}
	else
	{
		$inv = substr($inverse, strpos($inverse, '.')+1);
		$chars = strlen($inv);
		if($chars<8)
		{
			for($n=1; $n<=(8-$chars); $n++)
			{
				$inverse .= '0';
			}
		}
		else if($chars>8)
		{
			$over = $chars-8;
			$inverse = substr($inverse, 0, ($over*-1));
		}
		else
		{
			$inverse = $inverse;
		}
	}

	$invs[] = $inverse;
}

for($i=0; $i<(count($rates)-1); $i++)
{
		$info[$cntrs[$i]] = $rates[$i].'_'.$invs[$i];
}

foreach($info as $country => $rates)
{
	$to_file .= $country."_".$rates.",";
}

$to_file = substr($to_file, 0, -1);
return $to_file;
}

$filename = 'xrate.txt';

$usd = get_rates('USD');
$eur = get_rates('EUR');
$gbp = get_rates('GBP');

$to_file = "[USD]:".$usd."\n[EUR]:".$eur."\n[GBP]:".$gbp;

$fp = fopen($filename, "w");
if((fwrite($fp, $to_file))===FALSE)
{
	$message  = "There was an error updating the exchange rate text file.  Double check the settings.\n\n
	----------------------------------------------------------
	Attempted at ".date('H:i:s')." on ".date('m.d.Y');
	mail('[e-mail]', '[PWS] ERROR: Currency Update', $message, "FROM: PWS Errors <[e-mail]>");
}
chmod($filename, 0777);
fclose($fp);

?>

Just a side-note, xe.com does offer a feed (or three) to get this info into an XML or CSV or HTML output. It costs a pretty penny, but they do have a "feed" service. MIght be worth looking at if you're going to be making numerous calls per day. So, this will put all 3 countries into my txt file, and update every 6 hours. Hope it helps.

For each country you need (currently only supports 3: "USD", "EUR", "GBP"), just run the function.

~Brett

[JSWEB]

Forgive me Brett - I'm still amiss with running that function. Could you provide an example with code to show base price and then two other currency prices e.g. £100 = $170 or E180.

[bpat1434]

Sure, I'll modify the above function to better suit your needs (since you won't be outputting a txt file, but just working with the numbers:
currency.php

<?php
function get_rates($cntry, $to='FILE', $ret=TRUE, $filename='xrate.txt')
{
	$countries = array('USD', 'EUR', 'GBP');
	if(!in_array($cntry, $countries))
	{
		if($ret)
		{
			return 'Currency exchange rates not available.';
		}
		else
		{
			echo 'Currency exchange rates not available.';
		}
	}
	$invs = array();
	$info = array();

$contents = file_get_contents('http://www.xe.com');

$txt_cntrs = substr($contents, strpos($contents, '<tr valign="middle" align="center" bgcolor=#FFFFFF class="t_dat">'), strpos($contents, '</tr>', strpos($contents, '<tr valign="middle" align="center" bgcolor=#FFFFFF class="t_dat">'))-strpos($contents, '<tr valign="middle" align="center" bgcolor=#FFFFFF class="t_dat">'));

$txt_rates = substr($contents, strpos($contents, '<td>&nbsp;<b>1&nbsp;'.$cntry.'&nbsp;=</b></td>'), strpos($contents, '</tr>', strpos($contents, '</table>', strpos($contents, '<td>&nbsp;<b>1&nbsp;'.$cntry.'&nbsp;=</b></td>')))-strpos($contents, '<td>&nbsp;<b>1&nbsp;'.$cntry.'&nbsp;=</b></td>'));

$pat_rates = "@<td>&nbsp;<b>1&nbsp;".$cntry."&nbsp;=<\/b><\/td>[\n\s]*<\/tr><\/table><\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*<td> ([\d\.]*) <\/td>[\n\s]*@m";

$pat_cntrs = "@<tr valign=\"[\w]*\" align=\"[\w]*\" bgcolor=#[a-zA-Z0-9]* class=\"[\w]*\">[\n\s]*<td bgcolor=#[a-zA-Z0-9]*><a href=\"[\w\.\/\:]*\"><IMG SRC=\"[\w\.\/\-\:]*\" height=[\d]* width=[\d]* alt=\"[\w\.]*\" align=\"[\w]*\" border=[\d]*></a></td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*<td><IMG SRC=\"[\w\:\/\.\-]*\" ALT=\"[\w]*\" HEIGHT=[\d]* width=[\d]*><br>([\w]*)</td>[\n\s]*@m";

preg_match($pat_rates, $txt_rates, $rates);
preg_match($pat_cntrs, $txt_cntrs, $cntrs);

array_shift($rates);
array_shift($cntrs);

$base = array_search('1.00000', $rates);
foreach($rates as $rate)
{
	$inverse = round($rates[$base]/$rate, 9);

	if(!strpos($inverse, '.'))
	{
		$inverse .= '.00000000';
	}
	else
	{
		$inv = substr($inverse, strpos($inverse, '.')+1);
		$chars = strlen($inv);
		if($chars<8)
		{
			for($n=1; $n<=(8-$chars); $n++)
			{
				$inverse .= '0';
			}
		}
		else if($chars>8)
		{
			$over = $chars-8;
			$inverse = substr($inverse, 0, ($over*-1));
		}
		else
		{
			$inverse = $inverse;
		}
	}

	$invs[] = $inverse;
}

if(strtoupper($to)=='FILE')
{
	/**
	 *	We are outputting to a file
	 *
	 *	Format the inforamtion for writing, then write
	 */
	$to_file = '';
	for($i=0; $i<(count($rates)-1); $i++)
	{
			$info[$cntrs[$i]] = $rates[$i].'_'.$invs[$i];
	}

	foreach($info as $country => $rates)
	{
		$to_file .= $country."_".$rates.",";
	}

	$to_file = substr($to_file, 0, -1);

	$fp = fopen($filename, "w");
	if((fwrite($fp, $to_file))===FALSE)
	{
		$message  = "There was an error updating the exchange rate text file.  Double check the settings.\n\n
		----------------------------------------------------------
		Attempted at ".date('H:i:s')." on ".date('m.d.Y');
		mail('[e-mail]', 'ERROR: Currency Update', $message, "FROM: Errors <[e-mail]>");
		if($ret)
		{
			return FALSE;
		}
		else
		{
			echo 'Unable to update CSV file.';
		}
	}
	chmod($filename, 0777);
	fclose($fp);
}
if(strtoupper($to)=='ARRAY')
{
	/**
	 *	We want the information in an array...
	 */
	for($i=0; $i<(count($rates)-1); $i++)
	{
			$info[$cntrs[$i]]['rate'] = $rates[$i];
			$info[$cntrs[$i]]['invs'] = $invs[$i];
	}
	if($ret)
	{
		return $info;
	}
	else
	{
		print_r($info);
	}
}
if(strtoupper($to)=='BROWSER' || strtoupper($to)=='HTML')
{
	$output = "\n\n<ul style='list-style-type: none;'>\n
	\t<li>Exchange Rate Information:\n";
	/**
	 *	We're just going to print it out on screen
	 */
	for($i=0; $i<(count($rates)-1); $i++)
	{
		$output .= "\t\t<ul style='list-style-type: none;'>\n
		\t\t\t<li>[".$cntry."]=>[".$cntrs[$i]."]:\n
		\t\t\t\t<ul style='list-style-type: none;'>\n
		\t\t\t\t\t<li>[Rate]: ".$rates[$i]."</li>\n
		\t\t\t\t\t<li>[Inverse]: ".$invs[$i]."</li>\n
		\t\t\t\t</ul>\n
		\t\t\t</li>\n
		\t\t</ul>";
	}
	$output .= "\t</li>\n
	</ul>\n\n";

	if($ret)
	{
		return $output;
	}
	else
	{
		echo $output;
	}
}
}
?>

somepage.php

<?php
include('currency.php'); // include the file with the above function delcaration ^^

$rate = get_rates('GBP', 'array');

echo '&pound;'.($rate['GBP']['rate']*100).' = '.(100*$rate['USD']['invs']).' OR &euro;'.(100*$rate['EUR']['invs']);
echo '<br>$125.00 = &pound;'.($rate['USD']['rate']*150);
?>

That outputs:

£100 = 56.471651 OR €68.593221
$125.00 = £265.62

~Brett

[JSWEB]

What an absolute STAR!! Thank you so much Brett - a top script that will no doubt come in very useful for many people... Just brilliant!

Regards

JSWEB

[JSWEB]

Just noticed that your script Brett pulls the exchange rate rather then the multipled value (i.e. £100 is not $56 or €68)

We got it to work using the following code (not very pretty code..lol)

<?php
include('currency.php'); // include the file with the above function delcaration ^^
$rate = get_rates('GBP', 'array');
$JSWEB1500 = "10.00";

echo 'UK Price = &pound;'.($rate['GBP']['rate']*$JSWEB1500).'<P>';
echo 'USD Price = $'.($rate['USD']['rate']*$JSWEB1500).'<P>';
echo 'EUR Price = &euro;'.($rate['EUR']['rate']*$JSWEB1500).'<P>';
?>

Output:

UK Price = £10

USD Price = $17.7049

EUR Price = €14.5689

[bpat1434]

Sorry bout that. It was a weird time for me, confusing doing like 12 different posts. Good thing you got it though. Glad I could help.

And if anyone is interested, I still have the txt/csv file up for anyone. It auto updates every 6 hours. It only has the rates for the following currencies: US Dollar, Great Britain Pound, Euro.
Exchange Rate CSV
The contents (for coding guidelines is this):

[USD]:USD_1.00000_1.00000000,EUR_0.823280_1.21465358,GBP_0.564715_1.77080474,JPY_114.465_0.00873629,CAD_1.16430_0.85888516,AUD_1.32670_0.75374990,CHF_1.27020_0.78727759,RUB_28.6700_0.03487966,CNY_8.06754_0.12395352,ZAR_6.14499_0.16273419
The format is:
Inverse is for going from any other currency to USD, EUR, or GBP.
The rate is for going from Base Currency to any other currency.

Hope other people find this helpful.

~Brett