<?php
$rates=fopen("http://www.tcmb.gov.tr/kurlar/today.html","r") or die ("Something is wrong");
$AUD="AUD/TRY";
$CAD="CAD/TRY";
$CHF="CHF/TRY";
$DKK="DKK/TRY";
$EUR="EUR/TRY";
$GBP="GBP/TRY";
$JPY="JPY/TRY";
$KWD="KWD/TRY";
$NOK="NOK/TRY";
$SAR="SAR/TRY";
$SEK="SEK/TRY";
$USD="USD/TRY";
$DATE="Indicative Exchange Rates Announced at ";
while (!feof($rates)) {
$row= fgets($rates, 128);
if ($findAUD=strpos($row,$AUD)===false){
}else{
$findAUD=strpos($row,$AUD);
$AUDbuy=number_format(trim(substr($row,$findAUD+40,10)),4);
$AUDsell=number_format(trim(substr($row,$findAUD+50,11)),4);
}
if ($findCAD=strpos($row,$CAD)===false){
}else{
$findCAD=strpos($row,$CAD);
$CADbuy=number_format(trim(substr($row,$findCAD+40,10)),4);
$CADsell=number_format(trim(substr($row,$findCAD+50,11)),4);
}
if ($findCHF=strpos($row,$CHF)===false){
}else{
$findCHF=strpos($row,$CHF);
$CHFbuy=number_format(trim(substr($row,$findCHF+40,10)),4);
$CHFsell=number_format(trim(substr($row,$findCHF+50,11)),4);
}
if ($findDKK=strpos($row,$DKK)===false){
}else{
$findDKK=strpos($row,$DKK);
$DKKbuy=number_format(trim(substr($row,$findDKK+40,10)),4);
$DKKsell=number_format(trim(substr($row,$findDKK+50,11)),4);
}
if ($findEUR=strpos($row,$EUR)===false){
}else{
$findEUR=strpos($row,$EUR);
$EURbuy=number_format(trim(substr($row,$findEUR+40,10)),4);
$EURsell=number_format(trim(substr($row,$findEUR+50,11)),4);
}
if ($findGBP=strpos($row,$GBP)===false){
}else{
$findGBP=strpos($row,$GBP);
$GBPbuy=number_format(trim(substr($row,$findGBP+40,10)),4);
$GBPsell=number_format(trim(substr($row,$findGBP+50,11)),4);
}
if ($findJPY=strpos($row,$JPY)===false){
}else{
$findJPY=strpos($row,$JPY);
$JPYbuy=number_format(trim(substr($row,$findJPY+40,10)),4);
$JPYsell=number_format(trim(substr($row,$findJPY+50,11)),4);
}
if ($findKWD=strpos($row,$KWD)===false){
}else{
$findKWD=strpos($row,$KWD);
$KWDbuy=number_format(trim(substr($row,$findKWD+40,10)),4);
$KWDsell=number_format(trim(substr($row,$findKWD+50,11)),4);
}
if ($findNOK=strpos($row,$NOK)===false){
}else{
$findNOK=strpos($row,$NOK);
$NOKbuy=number_format(trim(substr($row,$findNOK+40,10)),4);
$NOKsell=number_format(trim(substr($row,$findNOK+50,11)),4);
}
if ($findSAR=strpos($row,$SAR)===false){
}else{
$findSAR=strpos($row,$SAR);
$SARbuy=number_format(trim(substr($row,$findSAR+40,10)),4);
$SARsell=number_format(trim(substr($row,$findSAR+50,11)),4);
}
if ($findSEK=strpos($row,$SEK)===false){
}else{
$findSEK=strpos($row,$SEK);
$SEKbuy=number_format(trim(substr($row,$findSEK+40,10)),4);
$SEKsell=number_format(trim(substr($row,$findSEK+50,11)),4);
}
if ($findUSD=strpos($row,$USD)===false){
}else{
$findUSD=strpos($row,$USD);
$USDbuy=number_format(trim(substr($row,$findUSD+40,10)),4);
$USDsell=number_format(trim(substr($row,$findUSD+50,11)),4);
}
if ($findDATE=strpos($row,$DATE)===false){
}else{
$findDATE=strpos($row,$DATE);
$ondegis = array(' on ' => ' - ');
$DATEdisplay=strtr(trim(substr($row,$findDATE+39,+19)),$ondegis);
}
}
fclose($rates);
?>
<p>Günlük Döviz Kurları</p>
<img src="http://www.bordootomotiv.com/wp-content/doviz/flags/USD.gif" alt="usd" width="16" height="11" title="ABD Doları" /> USD Alış: <?php echo $USDbuy; ?> Satış: <?php echo $USDsell; ?> |
<img src="http://www.bordootomotiv.com/wp-content/doviz/flags/EUR.gif" alt="" width="16" height="11" title="Euro" />EURO Alış: <?php echo $EURbuy; ?>Satış: <?php echo $EURsell; ?>bayrakları bulursun ayrıca ben 2 dövizi çektirdim ama tabloyla oynayarak diğer dövizleride buldurabilirsin.
ayrıca bu kodları forumdan bulmuştum ama nereden bulmuştum onu hatırlayamadım