Ajax
ASP
C,C++
C#,.NET
CSS,HTML
Delphi,Kylix
Experience
Flash
Java
JavaScript
PHP
Python
QT
SQL
ShellScript
VB
U :
P :
Register
Lost Password
Other Links
Code Archive
Save Giovanni
ASP Category Code
Real Name
:
Mustafa Agâh Öztürk
Subject
:
Türkçe Karakter Uyumlu Büyütme
Description
:
Verilen değerin tüm harflerini Türkçe karakter uyumlu büyülten kullanışlı bir fonksiyondur.
Public Function ToUpper(byVal Str) If Str <> "" Then Result = null : Str = Trim(Str) SplitStr = Split(Str," ") For SS = 0 To uBound(SplitStr) Result = Result &" "& UCase(Replace(Replace(SplitStr(SS),"ı","I",1,-1),"i","İ",1,-1)) Next ToUpper = Trim(Result) End If End Function
Rating
:
0.00
(out of 5)
Visitor Voting Booth
:
Excellent
Very Good
Good
Fair
Poor
Copyright © 2006 SharingCode.NET . All rights reserved. Hosted By: SisNetworks