• 10-01-2009, 00:24:48
    #10
    Yani kötü php ile yapılıyoda asp ile yapılmıyomu.:rolleye s:
  • 10-01-2009, 21:58:42
    #11
    Üyeliği durduruldu
    kötü dediğin php hakkında ne biliyorsun?
  • 11-01-2009, 00:44:36
    #12
    turker66 adlı üyeden alıntı: mesajı görüntüle
    kötü dediğin php hakkında ne biliyorsun?
    Peki sen lafı nerenden anlıyosun ?
    Ben geyik amaçlı öyle yazdım. Bunu anlayacak kadar beynin yoksa sanada hak vermek lazım.
  • 11-01-2009, 01:34:51
    #13
    Peksoft adlı üyeden alıntı: mesajı görüntüle
    lcase ile denemiştim, ama cümlenin ilk kelimesinide küçük yapıyo ozamanda iyi olmuyo.
    IlkHarfBuyuk=rs("icerik")
    KucukHarf=Len(IlkHarfBuyuk)-1
    IlkHarfBuyuk=UCase(Left(IlkHarfBuyuk,1))&LCase(Right(IlkHarfBuyuk,KucukHarf))
    Şu fonksiyon işini görür, sonrasını da halledersin
  • 11-01-2009, 02:22:30
    #14
    Abi çok teşekkür ederim.

    Dediğin gibi yaptım ama olmadı yada yapamadım, bu seferde kelimenin sadece baş harfini büyütüyo.
    Yapmaya çalıştığım;
    Seo, SEO, seo
    -^ ---^ --^
    Şu an bu üçünede abcronym tagı eklenmiş. Ben admin panelinden, seo = Search Engine Opt.... olarak eklediğimde, yazıdaki; seo, Seo, SEO bunlarda değişiklik yapmadan(büyük-küçük harf) abcronym tagı eklesin.

    Eğer;

    Seo = Search Engine Opt....
    seo = Search Engine Opt....
    SEO = Search Engine Opt....

    olarak eklesem, kasarmı ? Kasmaz ise böyle yapıyım.
    Tekrardan teşekkür ederim.
  • 11-01-2009, 02:31:14
    #15
    Function BuyukHarf(metin)
    splitter = " "
    If metin <> "" Then
    	xarr = Split(metin, splitter)
    	For z = 0 to Ubound(xarr)
    		xmetin = Trim(xarr(z))
    		If xmetin <> "" Then
    		xmetin = Lcase(xmetin)
    		xstletter = Ucase(Left(xmetin,1))
    			'// Dilinize göre ayarlayın
    			xstletter = Replace(xstletter,"i","İ", 1, -1) '&Yacute;
    		xmetin = Right(xmetin, Len(xarr(z)) - 1)
    			'// Dilinize göre ayarlayın
    			xmetin = Replace(xmetin,"İ","i", 1, -1) '&Yacute;
    		xmetin = xstletter & xmetin
    	End if
    		zmetin = zmetin & " " & xmetin
    	Next
    End if
    buyukharf = zmetin
    End Function
    O zaman bu da büyük harf kodu. Cümledeki her sözcük büyük harfle başlar.
  • 11-01-2009, 02:56:58
    #16
    Ben derdimi anlatamıyorum, bende kendini ifade edememe özürü var.

    Seo = Search Engine Opt....
    seo = Search Engine Opt....
    SEO = Search Engine Opt....

    olarak eklesem, kasarmı ? En iyisi böyle kullanıyım, eğer kasmazsa.
  • 11-01-2009, 05:01:59
    #17
    Fazladan veri ekleyeceksin ne gerek var, kasmaz ama gereksiz.

    Gelen değeri lcase ile alıp sonraki değeri büyük harf ile uygun şekle sokabilirsin. Ya da ben senin kafandaki soruyu tam olarak anlayamadım.
  • 11-01-2009, 14:28:30
    #18
    turker66 adlı üyeden alıntı:
    oraya gelir o asp kodlarını bir tarafına monta ederim.

    not: yan komşu.
    Gelmeyen ?

    turker66 adlı üyeden alıntı:
    <?php
    $str_url = strrev($_SERVER['SCRIPT_NAME']);
    $bol1 = explode("php.", $str_url);
    $bol2 = explode("/", $bol1[1]);
    $kelime = strrev($bol2[0]);
    ?>
    Daha ne demek istediğimi anlamadan artislik olsun diye bide kod yollamış.
    <%
    multiuye = "turker66+ruzgar66"
    asp = multiuye
    cocuk = Split(asp, "+")
    For Each asp in cocuk %>
    <%=asp%>,
    <%
    Next
    %>
    Artist çocuk seni.

    Asp bilen mod varsa ilgilenir zaten.

    Edit: Yanlış alarm, bizim türkermiş.
    Edit2: *** kimsin daha emin değilim türker olduğuna, görmeden inanmam, yarın kasabın oraya gelde görüyüm.
    Edit3: Tamam inandım.