• 01-01-2013, 17:42:02
    #1
    Arkadaşlar aşağıdaki kodu php ile nasıl yazabiliriz.

    <%
    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
    %>
  • 01-01-2013, 17:47:44
    #2
    Kodun mantığı nedir tam olarak onuda açıklarsanız daha kolay yardımcı olabiliriz.
  • 01-01-2013, 18:34:20
    #3
    Üstadım PHP bölümüne herhangi başka bir dille yazılmış bir kod blogunu paylaşıyorsanız, bunun açıklamasını eklemeniz gerekiyor bu şekilde kimse size yardımcı olamaz.
  • 01-01-2013, 18:59:57
    #4
    PsdBul adlı üyeden alıntı: mesajı görüntüle
    Kodun mantığı nedir tam olarak onuda açıklarsanız daha kolay yardımcı olabiliriz.
    dolar kurunu alıyor tcmb den, sayı 10 dan küçükse başına 0 ekliyor, daha sonra bunları dosyaya yazıyor &dolar=alış fiyatı olarak
  • 02-01-2013, 12:38:52
    #5
    bu 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.
  • 04-01-2013, 12:09:14
    #6
    arkadaşlar çok mu zor php de bunu yazmak asp de 5 dakikada yazdım ben. yokmu yardımcı olacak.
  • 04-01-2013, 14:53:58
    #7
    bir şeyler yazın yardımcı olalım sorun çıkan yerde.
  • 04-01-2013, 16:36:03
    #8
    hocam php hiç bilmiyorum asp kullanıyordum wp ye geçtim bu da kaldı.