Konu Başlığı: TCMB' den döviz kuru almak
View Single Post
Sponsorlu Bağlantılar
Zoque.Forum
Advertisement
Old 07.03.2007   #7 (permalink)
ars_oguz
 
Üyelik Tarihi: 03.02.2007
Yer: Ankara
Yaş: 24
Mesaj: 27
Re: TCMB' den döviz kuru almak

Tam link vermeyi unutmusum...

http://www.altinkaynak.com/xml.aspx

http://xml.altinkaynak.com.tr/doviz.xml

Kod:
<?
$file = "http://XML.altinkaynak.com/doviz.XML";

function startElement($parser, $name, $attrs)
{
global $ShwText;
if($name == 'DOVIZ') $ShwText .= "<tr>";
}

function endElement($parser, $name)
{
global $ShwText;
if($name == 'DOVIZ') $ShwText .= "</tr>";
}

function characterData($parser, $data)
{
global $ShwText;
if($data != '') $ShwText .= "<td>".$data."</td>";
}

$ShwText = "<table>";

$xml_parser = xml_parser_create();
xml_parser_set_option($xml_parser, XML_OPTION_CASE_FOLDING, true);
xml_set_element_handler($xml_parser, "startElement", "endElement");
xml_set_character_data_handler($xml_parser, "characterData");
if (!($fp = fopen($file, "r")))
{
die("AltınKaynak XML yüklenemedi. ");
$ShwText = "";
}

while ($data = fread($fp, 4096)) {
if (!xml_parse($xml_parser, $data, feof($fp))) {
die(sprintf("XML Yüklenme hatası : %s at line %d",
xml_error_string(xml_get_error_code($xml_parser)),
xml_get_current_line_number($xml_parser)));
}
}
xml_parser_free($xml_parser);
if( $ShwText != '') $ShwText .= "</table>";
echo $ShwText;
?>
ars_oguz şu an çevrimdışı   Mesajdan alıntı yaparak yeni bir cevap ekleyin