Asp ilk harf büyütme fonksiyonu
Asp de gelen bir yazıyı tüm harfler büyük ise veya küçük ise otomatik olarak ilk harfi büyütecek fonksiyondur.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
<% Function IlkBuyuk(metin) Splitter = " " If metin <> "" Then xarr = Split(metin, Splitter) For i = 0 To UBound(xarr) xmetin = Trim(xarr(i)) If xmetin <> "" Then xmetin = LCase(xmetin) xstletter = UCase(Left(xmetin,1)) xstletter = Replace(xstletter,"i","İ", 1, -1) 'Y xmetin = Right(xmetin, Len(xarr(i)) - 1) xmetin = Replace(xmetin,"İ","i", 1, -1) 'Y xmetin = xstletter & xmetin End If zmetin = zmetin & " " & xmetin Next End If IlkBuyuk = zmetin End Function %> |
Kullanımı:
|
1 |
<%=IlkBuyuk(gelenveri)%> |