doviz hava durumu çekme
5
●1.893
- 23-09-2012, 13:54:22Üyeliği durdurulduDöviz Kuru İçin http://piyasa.com/web-api Sayfasının En Altını İncelyebilirinizCebR adlı üyeden alıntı: mesajı görüntüle
- 23-09-2012, 14:23:03Kimlik doğrulama veya yönetimden onay bekliyor.
<?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 - 23-09-2012, 18:01:34Üyeliği durdurulduHocam Kendi Yaptığım Var Basit Bir Şey İş GörürCebR adlı üyeden alıntı: mesajı görüntüle
Bütün İlleri Çeker .
Demo Atma Şansım Yok Artık Denersiniz
İNDİR