Programalama > PHP

PHP / Php Ile Döviz Kuru Alma......

Asagidaki Kod Ile Php Olarak Döviz Bilgilerini Alabilirsiniz......

Etiketler: php, ile, döviz, kuru, alma......

Ort. 0

Puan ver:

hazirkod 14 June 19:34 0

0 kişiden 0 puan aldı

6609

// doviz.php 

<html><head><title>Döviz Kuru</title></head><body>  
<center>  
<?  
// tr.net in en küçük sayfasi...  
$url=" target=_blank>http://piyango.tr.net/cgi-bin/cekilis/piyango";  


$ödünç = file($url); 

// Döviz basligini bul  
$satir = sizeof($ödünç)-1; // Sayfanin satir sayisi  
for ($i=0; $i<$satir; $i++)  
{  
if ( trim($ödünç[0]) != '<img src="http://www.tr.net/art/e88.gif" height=17 width=118>') { array_shift($ödünç); } else { $ok = true; break; }  
}  

if ( ! $ok )  
{  
echo "Baslik bulunamiyor... sayfa degismis olabilir"; 
exit; // Scriptten çik  
}  

// Döviz basligi bitisini bul  
$ok = false;  
$satir = sizeof($ödünç)-1; // Sayfanin satir sayisi  
for ($i=0; $i<$satir; $i++)  
{  
if (trim($ödünç[sizeof($ödünç)-1]) != '</td></tr></table>')  
{  
array_pop($ödünç);  
} else {  
$ok = true;  
break;  
}  
}  

// Baslik bulunamadiysa sayfa yapisi degisti demektir  
if ( ! $ok )  
{  
echo "Baslik sonu bulunamiyor... sayfa degismis olabilir"; 
exit; // Scriptten çik  
}  

// Döviz kismini tek bir stringe çevir  
$toplam = "";  
foreach( $ödünç as $tampon)  
{  
$toplam .= trim($tampon);  
}  

$ödünç = ""; 

// Dolar i HTML den ayir  
$dolar1 = stristr($toplam,"USD"); // Dolar yazisini bul  
$dolar1 = substr(stristr($dolar1,'arial size=1>'),13); // Dolar Degerini bul 
$dolar1 = substr($dolar1,0,strpos($dolar1,"<")); // HTML kismini at 

// Mark i HTML den ayir  
$mark1 = stristr($toplam,"DeM"); // Mark yazisini bul  
$mark1 = substr(stristr($mark1,'tahoma,arial size=1>'),20); // Mark degerini bul 
$mark1 = substr($mark1,0,strpos($mark1,"<")); // HTML kismini at  

// IMKB i HTML den ayir  
$imkb1 = stristr($toplam," 100"); // Imkb 100 yazisini bul  
$imkb1 = substr(stristr($imkb1,'size=1> '),13); // IMKB Degerini bul 
$imkb1 = substr($imkb1,0,strpos($imkb1,"<")); // HTML kismini at  
?> 

<table border="0" width="200" cellspacing="0" cellpadding="0"> 
  <tr> 
    <td width="100%" bgcolor="#000000"> 
      <table border="0" width="100%" cellspacing="1" cellpadding="0"> 
        <tr> 
          <td width="100%" bgcolor="#C0C0C0" colspan="2"><font face="Verdana" size="2"><b>Borsa 
            - Döviz:</b></font></td> 
        </tr> 
        <tr> 
          <td width="50%" bgcolor="#FFFFFF"><font size="1" face="Verdana">IMKB:</font></td> 
          <td width="50%" bgcolor="#FFFFFF"> 
            <p align="right"><font size="1" face="Verdana"><? echo $imkb1; ?></font></td> 
        </tr> 
        <tr> 
          <td width="50%" bgcolor="#FFFFFF"><font size="1" face="Verdana">Dolar:</font></td> 
          <td width="50%" bgcolor="#FFFFFF"> 
            <p align="right"><font size="1" face="Verdana"><? echo $dolar1; ?></font></td> 
        </tr> 
        <tr> 
          <td width="50%" bgcolor="#FFFFFF"><font size="1" face="Verdana">Mark:</font></td> 
          <td width="50%" bgcolor="#FFFFFF"> 
            <p align="right"><font size="1" face="Verdana"><? echo $mark1; ?></font></td> 
        </tr> 
      </table> 
    </td> 
  </tr> 
</table> 
</body>  
</html>  
<? 
$toplam = ""; 
$tampon = ""; 
$ödünç = ""; 
// The End 
?>