<%
Select Case(gunler)
Case 1
yaziyla_gun="pazar"
Case 2
yaziyla_gun="pazartesi"
Case 3
yaziyla_gun="sali"
Case 4
yaziyla_gun="carsamba"
Case 5
yaziyla_gun="persembe"
Case 6
yaziyla_gun="cuma"
Case 7
yaziyla_gun="cumartesi"
End Select
Function sifirEkle(ByVal strTemp)
strTemp = CInt(strTemp)
If strTemp < 10 Then strTemp = "0"& strTemp
sifirEkle = strTemp
End Function
if yaziyla_gun = "pazartesi" then
tarih = Date()-3
elseif yaziyla_gun = "pazar" then
tarih = Date()-2
else
tarih = Date()-1
end if
strTarih = tarih
Tarih2 = split(strTarih,".")
g=Tarih2(0)
a=Tarih2(1)
y=Tarih2(2)
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/"&y&sifirEkle(a)&"/"&sifirEkle(g)&sifirEkle(a)&y&".html"
strVeri = VeriAL(strAdres)
iDolar=InStr(strVeri,"USD" )
strDolarAlis=Mid(strVeri,iDolar+42,6)
Set ConFile=CreateObject("Scripting.FileSystemObject")
Set File=ConFile.CreateTextFile(server.mappath("dosya.txt"), true)
File.WriteLine "&dolar="&strDolarAlis
Set ConFile=Nothing
%> asp den php ye
7
●518
- 01-01-2013, 17:42:02Arkadaşlar aşağıdaki kodu php ile nasıl yazabiliriz.
- 01-01-2013, 18:59:57dolar kurunu alıyor tcmb den, sayı 10 dan küçükse başına 0 ekliyor, daha sonra bunları dosyaya yazıyor &dolar=alış fiyatı olarakPsdBul adlı üyeden alıntı: mesajı görüntüle
- 02-01-2013, 12:38:52bu günün tarihini alıyor -1 çıkartıyor
örnek:
bu gün: 2.1.2013
1.1.2013 bir gün eskiye aldı bu tarihi daha sonra ayrıştırıyor güne aya yıla sonra tek hane olanların başına 0 ekliyor 01.01.2013 oluyor. eğer günlerden pazartesi ise -3 gün pazar ise -2 gün geriye alıyor. Daha sonra
http://www.tcmb.gov.tr/kurlar/yılay/günayyıl.html
şeklinde adrese yazıyor oradan çektiği kuru not defterine ekliyor ve aynı dizine kaydediyor
not defterinin içeriği
&dolar=1.7542 şeklinde oluyor.