ASP de Metni Büyük-Küçük Harflere Çevirmek

Asp kütüphanesinde bulunan UCase ve LCase fonksiyonları ne yazık ki Türkçe karakterleri desteklememektedir. Bu sebeble büyük veya küçük harflere dönüştürmek istediğiniz metinleri aşağıda yazdığım fonksiyonu kullanarak hatasız bir şekilde yapabilirsiniz.

Fonksiyon Kullanımı:

Bir Metni Büyük Harflere Çevirmek İçin:

Cevir("Çevrilecek Metin", "b")
Bir Metni Küçük Harflere Çevirmek İçin:

Cevir("Çevrilecek Metin", "k")

Aşağıdaki fonksiyonu büyük-küçük harfleri dönüştürmek istediğiniz sayfanın en üstüne yazmalısınız.
<%
Function Cevir(metin, islem)

If metin<>"" or islem<>"" then
     if islem = "b" then
     metin = replace(metin, "a", "A")
     metin = replace(metin, "b", "B")
     metin = replace(metin, "c", "C")
     metin = replace(metin, "ç", "Ç")
     metin = replace(metin, "d", "D")
     metin = replace(metin, "e", "E")
     metin = replace(metin, "f", "F")
     metin = replace(metin, "g", "G")
     metin = replace(metin, "ğ", "Ğ")
     metin = replace(metin, "h", "H")
     metin = replace(metin, "ı", "I")
     metin = replace(metin, "i", "İ")
     metin = replace(metin, "j", "J")
     metin = replace(metin, "k", "K")
     metin = replace(metin, "l", "L")
     metin = replace(metin, "m", "M")
     metin = replace(metin, "n", "N")
     metin = replace(metin, "o", "O")
     metin = replace(metin, "ö", "Ö")
     metin = replace(metin, "p", "P")
     metin = replace(metin, "r", "R")
     metin = replace(metin, "s", "S")
     metin = replace(metin, "ş", "Ş")
     metin = replace(metin, "t", "T")
     metin = replace(metin, "u", "U")
     metin = replace(metin, "ü", "Ü")
     metin = replace(metin, "v", "V")
     metin = replace(metin, "y", "Y")
     metin = replace(metin, "z", "Z")
     metin = replace(metin, "q", "Q")
     metin = replace(metin, "w", "W")
     else
     metin = replace(metin, "A", "a")
     metin = replace(metin, "B", "b")
     metin = replace(metin, "C", "c")
     metin = replace(metin, "Ç", "ç")
     metin = replace(metin, "D", "d")
     metin = replace(metin, "E", "e")
     metin = replace(metin, "F", "f")
     metin = replace(metin, "G", "g")
     metin = replace(metin, "Ğ", "ğ")
     metin = replace(metin, "H", "h")
     metin = replace(metin, "I", "ı")
     metin = replace(metin, "İ", "i")
     metin = replace(metin, "J", "j")
     metin = replace(metin, "K", "k")
     metin = replace(metin, "L", "l")
     metin = replace(metin, "M", "m")
     metin = replace(metin, "N", "n")
     metin = replace(metin, "O", "o")
     metin = replace(metin, "Ö", "ö")
     metin = replace(metin, "P", "p")
     metin = replace(metin, "R", "r")
     metin = replace(metin, "S", "s")
     metin = replace(metin, "Ş", "ş")
     metin = replace(metin, "T", "t")
     metin = replace(metin, "U", "u")
     metin = replace(metin, "Ü", "ü")
     metin = replace(metin, "V", "v")
     metin = replace(metin, "Y", "y")
     metin = replace(metin, "Z", "z")
     metin = replace(metin, "Q", "q")
     metin = replace(metin, "W", "w")
     End If
Cevir = metin
End If
End Function
%>
Sorun yaşayan olursa bu başlık altına yazabilir..

  Web Programlama   6 Eylül 2008     982     1  Yorum
Etiket: ASP de Metni Büyük-Küçük Harfe Çevirmek, asp fonksiyonları, asp function, asp de ucase sorunu, asp türkçe karakter sorunu, asp.net, asp,