Konu: TCMB den döviz kurları
********************************************************
lcURL = "http://www.tcmb.gov.tr/kurlar/today.xml"
oForm = Createobject('readxml', m.lcURL)
Select Doviz
browse
COPY TO den
Define Class readxml As Form
Add Object htmlviewer As OleControl With ;
OleClass = 'Shell.Explorer'
Procedure Init
Lparameters tcURL
With Thisform.htmlviewer
.Navigate2(m.tcURL)
Do While .ReadyState # 4 && Wait for ready state
EndDo
XMLToCursor(this.htmLVIEWER.Object.Document.XMLDocument.XML,'Doviz')
Return .F.
Endwith
Endproc
Enddefine
*****************************************
Forumdan aldığım (yada türkçe yürütmek diyelim) bu kodlarla Merkez bankasından döviz kurlarını alabiliyorum.
Ancak bunların içinden sadece bir hücredeki (mesela USD alış hücresi diyelim.) bilgiyi yada rakamı bir değişkene atayabilirmiyim.
Teşekkür edrim.