[dogukansavas]

web sitesinin içindeki bir table içine merkez bankası kurlarını yazmak istiyorum. Bunu nasıl yapabilirim acaba?

[e-XPLoDeR]

<%
Public Function VeriAl(strGelen)
Set objVeriAl = server.CreateObject("Microsoft.XMLHTTP" )
objVeriAl.Open "GET" , strGelen, FALSE
objVeriAl.sEnd
VeriAl = objVeriAl.Responsetext
SET objVeriAl = Nothing
End Function

strAdres = "http://www.tcmb.gov.tr/kurlar/today.HTML"
strVeri = VeriAL(strAdres)
iDolar=InStr(strVeri,"USD" )
strDolarAlis=Mid(strVeri,iDolar+50,10)
strDolarSatis=Mid(strVeri,iDolar+51,10)

iEuro=InStr(strVeri,"EUR" )

strEuroAlis=Mid(strVeri,iEuro+38,11) 'alis
strEuroSatis=Mid(strVeri,iEuro+50,11) 'satis
%>

Daha sonra gerekli hanelere:

<%=strdolaralis%>
<%=strdolarsatis%>
<%=streuroalis%>
<%=streurosatis%>

ekleyerek yapabilirsin.

[tesera]

Bu da bulunsun..

<%
on error resume next
Set kurlar = server.CreateObject("msxml2.DOMDocument" )
kurlar.async = false
kurlar.resolveExternals = false
kurlar.setProperty "ServerHTTPRequest" ,true
kurlar.load("http://www.tcmb.gov.tr/kurlar/today.XML" )
Set sonuc =kurlar.getElementsByTagName("Currency" )
dolaralis=sonuc.item(0).childnodes.item(3).nodeTypedValue
dolarsatis=sonuc.item(0).childnodes.item(4).nodeTypedValue
euroalis=sonuc.item(11).childnodes.item(3).nodeTypedValue
eurosatis=sonuc.item(11).childnodes.item(4).nodeTypedValue
%>
<%=dolaralis%>
<%=dolarsatis%>
<%=euroalis%>
<%=eurosatis%>

[s5prin]

PHP versiyonu

[ars_oguz]

TCMB'den almak yerine http://www.altinkaynak.com/ dan da alabilirsin. Ornek kodlarini da koymuslar ana sayfalarina...
Cunku sanirim TCMB piyasa kuru sunmuyor ve gereksiz bir suru bilgi de cekmis oluyorsun ordaki XML ile. Yanlisim varsa duzeltin...

[s5prin]

Söylediğin nedenler haklı ama hiçbir XML verisi veya örnek kod bulamadım.

[ars_oguz]

Tam link vermeyi unutmusum...

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

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

<?
$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;
?>

[s5prin]

Evet, bayağı sade bir XML yapısı koymuşlar. Ama sanki biraz fazla basit olmuş Ne bileyim en azından dövizin ismini Türkçe olarak ekleyebilirlerdi. Döngü içerisinde kullanmak isteyenler kendileri "Türk Lirası", "Amerikan Doları" gibi tek tek yazmak zorunda kalır.

Birde ukalalığımı bağışlarsanız verdiği PHP kodları çok amatörce olmuş. Keşke bu veriler işime yarasaydı da bu XML için sağlam bir class yazsaydım hatta onlara da gönderseydim.