Php ile döviz kuru alma

Son güncelleme: 26.10.2009 13:42

crazy_boy

HAZIRKODLAR

Script Adý : PHP ile Döviz Kuru Alma
Telif : bbokeer
Kategori : Php
Hit : 2230

<?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( $st, 0, $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, "USD", 90);
$vd = CropSt( $vd, "Alýþ ");
$alis = GetRoE($vd);
$vd = trim(CropSt($vd, "Satýþ " ));
$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+14, 70));
while ( ereg( "[ ]{2,}", $tcmb_today)>0 )
$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", "SOL\n\n".$yatirimci);
$yatirimci = strip_tags($yatirimci);
$yatirimci = ereg_replace( ",", "", trim($yatirimci) );
$yatirimci = ereg_replace( "\t|\n|\r", " ", $yatirimci );
while ( ereg( "[ ]{2,}", $yatirimci)>0 )
$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, '',151);
$koc = strip_tags($koc);
$koc = ereg_replace( "\.", "", trim($koc) );
$koc = ereg_replace( "\t|\n|\r", " ", $koc );
while ( ereg( "[ ]{2,}", $koc)>0 )
$koc = ereg_replace( "[ ]{2,}", " ", $koc );
$koc = explode( " ", $koc );
$koc_alis = (int)$koc[0];
$koc_satis = (int)$koc[1];
} else
echo "HATA";
?>
<?php
/*
******************* ÖRNEK 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">
<?php
if ( $vd ) {
?>
<tr bgcolor="#FF8000">
<td colspan="2" align="center">VillaDöviz</td>
</tr>
<tr>
<td width="110">$USD Alýþ</td>
<td align="right"><?php echo number_format($alis, 0, ",", ".");?>TL</td>
</tr>
<tr>
<td>$USD Satýþ</td>
<td align="right"><?php echo number_format($satis, 0, ",",".");?> TL</td>
</tr>
<tr>
<td colspan="2"><hr></td>
</tr>
<?php
}
if ( $tcmb_today ) {
?>
<tr bgcolor="#FF8000">
<td colspan="2" align="center">MerkezBankasý</td>
</tr>
<tr>
<td width="110">Döviz Alýþ</td>
<td align="right"><?php echo number_format($doviz_alis, 0, ",",".");?> TL</td>
</tr>
<tr>
<td>Döviz Satýþ</td>
<td align="right"><?php echo number_format($doviz_satis, 0, ",",".");?> TL</td>
</tr>
<tr>
<td>Efektif Alýþ</td>
<td align="right"><?php echo number_format($efektif_alis, 0, ",",".");?> TL</td>
</tr>
<tr>
<td>Efektif Satýþ</td>
<td align="right"><?php echo number_format($efektif_satis, 0,",", ".");?> TL</td>
</tr>
<tr>
<td colspan="2"><hr></td>
</tr>
<?php
}
if ( $yatirimci ) {
?>
<tr bgcolor="#FF8000">
<td colspan="2" align="center">YatýrýmcýK öþesi - Superonline (<?php echo$y_saat; ?></td>
</tr>
<tr>
<td width="110">Döviz Alýþ</td>
<td align="right"><?php echo number_format($y_alis, 0, ",", ".");?> TL</td>
</tr>
<tr>
<td>Döviz Satýþ</td>
<td align="right"><?php echo number_format($y_satis, 0, ",", ".");?> TL</td>
</tr>
<tr>
<td>En Düþük</td>
<td align="right"><?php echo number_format($y_endusuk, 0, ",","."); ?> TL</td>
</tr>
<tr>
<td>En Yüksek</td>
<td align="right"><?php echo number_format($y_enyuksek, 0, ",","."); ?> TL</td>
</tr>
<?php
}
if ( $koc ) {
?>
<tr bgcolor="#FF8000">
<td colspan="2" align="center">KoçBankasý</td>
</tr>
<tr>
<td width="110">Döviz Alýþ</td>
<td align="right"><?php echo number_format($koc_alis, 0, ",","."); ?> TL</td>
</tr>
<tr>
<td>Döviz Satýþ</td>
<td align="right"><?php echo number_format($koc_satis, 0, ",","."); ?> TL</td>
</tr>
<?php
}
?>
</table>
</center>
</body>
</html>

alıntıdır

#26.10.2009 13:42 0 0 0

Php ile döviz kuru alma Konusuna Benzer Konular
Operation Blitzsturm - 2008 Almanca 23.03.2009
Almanya´daki Türk Konsolosluklari´nin E-Mail adresleri: 03.03.2004
Türkçe - Almanca - Ingilizce sözlük 05.03.2004
TuneUp Utilities 2004 Final 4.1.2311 (Almanca) 07.03.2004
Almanya I. Ligi ( 1. Bundesliga ) 2003-2004 15.03.2004
Plastik Gıda Ambalajı 26.10.2009 13:42