Türkçe Karakterler olan verileri büyük veya küçük yapma ( UCase LCase Turkish Version)

Yazılım Geliştirme Uzmanı & E-Ticaret Danışmanı

Classic Asp , Excel , Ms Project, Excel VBA , E-Ticaret , Mobil , Desktop

Tel : 0 534 797 31 21 , Mail : baranseren@gmail.com

Türkçe Karakterler olan verileri büyük veya küçük yapma ( UCase LCase Turkish Version) 19.7.2011 17:11:26

Function BuyukKucukTR(gelenveri,islem) 
' İşlem = 1 Büyük Harf Yap
' İşlem = 2 Küçük Harf Yap

tempp=gelenveri

TRdizi1="ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZWX" 
TRdizi2="abcçdefgğhıijklmnoöprsştuüvyzwx"

'İŞLEM SEÇİMİ

If islem=1 Then        'büyütme işlemi 
     For i=1 To Len(TRdizi1) 
          tempp=Replace(tempp, Mid(TRdizi2,i,1), Mid(TRdizi1,i,1))        'al birini koy ötekine... 
     Next

     tempp=UCase(tempp) 
End If

If islem=2 Then        'küçültme işlemi 
     For i=1 To Len(TRdizi2) 
          tempp=Replace(tempp, Mid(TRdizi1,i,1), Mid(TRdizi2,i,1)) 'al birini koy ötekine... 
     Next

     tempp=LCase(tempp) 
End If 
BuyukKucukTR=tempp 
End Function

Yazının Devamı

Tags :

Kategoriler

Sitelerim

Önerdiklerim

Türkçe Karakterler olan verileri büyük veya küçük yapma ( UCase LCase Turkish Version) 19.7.2011 17:11:26