İlk Harf Büyütme

Kelimelerin ilk harfini büyültüp, diğerleri küçülten işlevsel bir fonksiyon.
Forumlarınızda, konu başlıklarının büyük harflerle yazılmasını bu fonksiyon ile önleyebilirsiniz.

[HTML]
<%
Function complex(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))
'// You can add here your language characters
xstletter = Replace(xstletter,"i","İ", 1, -1) '&Yacute;
xmetin = Right(xmetin, Len(xarr(i)) - 1)
'// You can add here your language characters
xmetin = Replace(xmetin,"İ","i", 1, -1) '&Yacute;
xmetin = xstletter & xmetin
End if
zmetin = zmetin & " " & xmetin
Next
End if
complex = zmetin
End Function
%>[/HTML]

__________________
proxyer