PHP ile Döviz Kuru Alma + Örnek Sayfa

PHP ile Döviz Kuru Alma Kodları


<?php  

function CropSt($st$what$len=100) { 

$start strpos$st$what ); 

$st substr$st$start+strlen($what), $len ); 

return 
$st



function 
GetRoE($st$endsep " TL") { 

$end strpos$st$endsep); 

$st substr$st0$end); 

$st ereg_replace","""$st ); 

return (int)
$st





function 
SaveStringToFile($filename$text) { 

$file = @fopen($filename"w"); 

if ( 
$file ) { 

fputs($file$text); 

fclose($file); 







// VillaDöviz 

$vd = @file"http://www.villadoviz.com/" ); 

if ( 
$vd ) { 

$vd implode(""$vd); 

$vd CropSt$vd"<font color="#800000">USD</font>", 90); 

$vd CropSt$vd"<b>Alış </b>"); 



$alis GetRoE($vd); 

$vd trim(CropSt($vd"<b>Satış </b>" )); 

$satis GetRoE($vd); 





// T.C. Merkez Bankası 

$tcmb_today = @file("http://www.tcmb.gov.tr/kurlar/today.html"); 

if ( 
$tcmb_today ) { 

$tcmb_today implode(""$tcmb_today); 

$tcm_today ereg_replace("r"""$tcmb_today); 

$start strpos($tcmb_today"ABD DOLARI"); 

$tcmb_today trim(substr($tcmb_today$start+1470)); 

while ( 
ereg"[ ]{2,}"$tcmb_today)>

$tcmb_today ereg_replace"[ ]{2,}"" "$tcmb_today ); 

/* while ( strpos($tcmb_today, " ")>0 ) 

$tcmb_today = ereg_replace(" ", " ", $tcmb_today); */ 

$tcmb_today explode" "$tcmb_today ); 

$doviz_alis = (int)ereg_replace","""$tcmb_today[0] ); 

$doviz_satis = (int)ereg_replace","""$tcmb_today[1] ); 

$efektif_alis = (int)ereg_replace","""$tcmb_today[2] ); 

$efektif_satis = (int)ereg_replace","""$tcmb_today[3] ); 





// Yatırımcı Köşesi - Superonline 

$yatirimci = @file("http://www.borsadan.com/doviz.asp"); 

if ( 
$yatirimci ) { 

$yatirimci implode(""$yatirimci); 

$yatirimci CropSt$yatirimci'<td class="data">ABD Doları</td>'300); 

SaveStringToFile("sol.txt""SOLnn".$yatirimci); 

$yatirimci strip_tags($yatirimci); 

$yatirimci ereg_replace","""trim($yatirimci) ); 

$yatirimci ereg_replace"t|n|r"" "$yatirimci ); 

while ( 
ereg"[ ]{2,}"$yatirimci)>

$yatirimci ereg_replace"[ ]{2,}"" "$yatirimci ); 

$yatirimci explode" "$yatirimci ); 

$y_alis = (int)$yatirimci[0]; 

$y_satis = (int)$yatirimci[1]; 

$y_endusuk = (int)$yatirimci[2]; 

$y_enyuksek = (int)$yatirimci[3]; 

$y_saat $yatirimci[4]; 





// KOÇ Bank 

$koc = @file("http://www.kocbank.com.tr/_index/index_main.asp"); 

if ( 
$koc ) { 

$koc implode(""$koc); 

$koc CropSt$koc' USD:'265); 

$koc CropSt$koc'<font face="Arial, Helvetica, sans-serif" size="1">',151); 

$koc strip_tags($koc); 

$koc ereg_replace"."""trim($koc) ); 

$koc ereg_replace"t|n|r"" "$koc ); 

while ( 
ereg"[ ]{2,}"$koc)>

$koc ereg_replace"[ ]{2,}"" "$koc ); 

$koc explode" "$koc ); 

$koc_alis = (int)$koc[0]; 

$koc_satis = (int)$koc[1]; 

} else 

echo 
"HATA"

?> ?>



Örnek Olarak Sayfa



<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=iso8859-9"> 

<meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> 

<title></title> 

</head> 

<body bgcolor="#FEECDD"> 

<center> 

<table border="0" width="300" cellspacing="1" cellpadding="1"> 

 

if ( $vd ) { 

?> 

<tr bgcolor="#FF8000"> 

<td colspan="2" align="center"><font face="Verdana"color="#FFFFFF"><b>VillaDöviz</b></font></td> 

</tr> 

<tr> 

<td width="110"><font face="Verdana">$USD Alış</font></td> 

<td align="right"><font face="Verdana"> echo number_format($alis, 0, ",", ".");?>TL</font></td> 

</tr> 

<tr> 

<td><font face="Verdana">$USD Satış</font></td> 

<td align="right"><font face="Verdana"> echo number_format($satis, 0, ",",".");?> TL</font></td> 

</tr> 

<tr> 

<td colspan="2"><hr></td> 

</tr> 

 



if ( $tcmb_today ) { 

?> 

<tr bgcolor="#FF8000"> 

<td colspan="2" align="center"><font face="Verdana" color="#FFFFFF"><b>MerkezBankası</b></font></td> 

</tr> 

<tr> 

<td width="110"><font face="Verdana">Döviz Alış</font></td> 

<td align="right"><font face="Verdana"> echo number_format($doviz_alis, 0, ",",".");?> TL</font></td> 

</tr> 

<tr> 

<td><font face="Verdana">Döviz Satış</font></td> 

<td align="right"><font face="Verdana"> echo number_format($doviz_satis, 0, ",",".");?> TL</font></td> 

</tr> 

<tr> 

<td><font face="Verdana">Efektif Alış</font></td> 

<td align="right"><font face="Verdana"> echo number_format($efektif_alis, 0, ",",".");?> TL</font></td> 

</tr> 

<tr> 

<td><font face="Verdana">Efektif Satış</font></td> 

<td align="right"><font face="Verdana"> echo number_format($efektif_satis, 0,",", ".");?> TL</font></td> 

</tr> 

<tr> 

<td colspan="2"><hr></td> 

</tr> 

 



if ( $yatirimci ) { 

?> 

<tr bgcolor="#FF8000"> 

<td colspan="2" align="center"><font face="Verdana" color="#FFFFFF"><b>YatırımcıKöşesi - Superonline</b></font> <font face="Verdana" color="#FFFFFF" size="1">( echo$y_saat; ?>)</font></td> 

</tr> 

<tr> 

<td width="110"><font face="Verdana">Döviz Alış</font></td> 

<td align="right"><font face="Verdana"> echo number_format($y_alis, 0, ",", ".");?> TL</font></td> 

</tr> 

<tr> 

<td><font face="Verdana">Döviz Satış</font></td> 

<td align="right"><font face="Verdana"> echo number_format($y_satis, 0, ",", ".");?> TL</font></td> 

</tr> 

<tr> 

<td><font face="Verdana">En Düşük</font></td> 

<td align="right"><font face="Verdana"> echo number_format($y_endusuk, 0, ",","."); ?> TL</font></td> 

</tr> 

<tr> 

<td><font face="Verdana">En Yüksek</font></td> 

<td align="right"><font face="Verdana"> echo number_format($y_enyuksek, 0, ",","."); ?> TL</font></td> 

</tr> 

 



if ( $koc ) { 

?> 

<tr bgcolor="#FF8000"> 

<td colspan="2" align="center"><font face="Verdana" color="#FFFFFF"><b>KoçBankası</b></font></td> 

</tr> 

<tr> 

<td width="110"><font face="Verdana">Döviz Alış</font></td> 

<td align="right"><font face="Verdana"> echo number_format($koc_alis, 0, ",","."); ?> TL</font></td> 

</tr> 

<tr> 

<td><font face="Verdana">Döviz Satış</font></td> 

<td align="right"><font face="Verdana"> echo number_format($koc_satis, 0, ",","."); ?> TL</font></td> 

</tr> 

 



?> 

</table> 

</center> 

</body> 

</html>

  • Etiketler;
Keramettin El
Girişimci. Sosyal medya uzmanı olma kariyerini aldığı eğitimlerle tamamlayıp çıtayı yükseltmeyi kendine vazife edinen kişi. Yer yer boş gezen, yer yer de gezecek yer bırakmayan nev’i şahsına münhasır zat. Uç noktaların insanıdır. Aldığı gazlarla helyum misali atmosfere kadar uçabilir. Büyük hayaller kurmayı sever ama adımlarını atarken dikkatlidir. Öğrencilikte hayatın dibine nalına mıhına vurmuştur. Sonra basamakları hızlı tırmanmayı becermiştir. İşletme okumasına rağmen kimseyi işletmeyi düşünmemektedir. Medya ve İletişim üzerine yüksek lisansını tamamlamış olup, Sosyal Medya ve İletişim Danışmanlığı kariyerine devam etmektedir.
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

bu fonksiyonu ben biliyorum çalışmıyordu en son baktığımda...
keske bunu bırazda acıklasaydın yanı burada onemlı olan baska bır sıteden verı cekmek yapabılırsen baska bır sayfadan verı cekmekle ıgılı acıklamada yazarmısın tabı detaylı mesela havayollarından ucus fıyatı cekmek anlatabılıymuyum guzel olmus tesekkurler
siteye kodların testleri konulabilir böylelikle nasıl çalıştığına bakmış oluruz.
file() fonksiyonu zararlı değilmi ben öyle biliyorumda hani:-dusun:

Yukarı Git