aRMiNa
Elite Üye
-
- Katılım
- 10 Nisan 2011
-
- Mesajlar
- 43.116
-
- Tepkime puanı
- 33
-
- ForumSAL Yaşı:
- 15 yıl 6 ay
- Kıdem:
- Forumun Hafızası
-
- Yaş
- 46
ASP//Yazıdaki tüm kelimelerin ilk harflerini büyük yapmak
Private Function ihby ( byval yaz )
dim YazanYazi(2), xna
YazanYazi(1) = yaz
YazanYazi(2) = Split(YazanYazi(1), " ", -1)
For xna = 0 to UBound(YazanYazi(2))
yaz = UCase(Left(YazanYazi(2)(xna),1)) & _
Right(YazanYazi(2)(xna), Len(YazanYazi(2)(xna))-1) & " "
ihby = ihby & yaz
Next
End Function
Responsewrite ihby ( "dünle beraber gitti düne ait ne varsa" )
'Dünle Beraber Gitti Düne Ait Ne Varsa
Private Function ihby ( byval yaz )
dim YazanYazi(2), xna
YazanYazi(1) = yaz
YazanYazi(2) = Split(YazanYazi(1), " ", -1)
For xna = 0 to UBound(YazanYazi(2))
yaz = UCase(Left(YazanYazi(2)(xna),1)) & _
Right(YazanYazi(2)(xna), Len(YazanYazi(2)(xna))-1) & " "
ihby = ihby & yaz
Next
End Function
Responsewrite ihby ( "dünle beraber gitti düne ait ne varsa" )
'Dünle Beraber Gitti Düne Ait Ne Varsa