Iphone Programlama & Web Tasarım & Yazılım Geliştirme & Analist
Logo Ürünleri için Analiz, Raporlama ve Veritabanı Uzmanı
Tel : 0 505 270 16 72 , Mail : baranseren@gmail.com
Türkçe Karakterler olan verileri büyük veya küçük yapma ( UCase LCase Turkish Version)

Türkçe Karakterler olan verileri büyük veya küçük yapma ( UCase LCase Turkish Version) 19.07.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




Tags :