Programalama > ASP

'KULLANIMI:
'
'Bir Metni Büyük Harfe Çevirmek İçin:
'TR("Çevrilecek Metin", 1)
'
'Bir Metni Küçük Harfe Çevirmek İçin:
'TR("Çevrilecek Metin", 2)


function TR(metin, tur)

	dim sonuc

	if tur = 1 then
		sonuc = replace(metin, "a", "A")
		sonuc = replace(sonuc, "b", "B")
		sonuc = replace(sonuc, "c", "C")
		sonuc = replace(sonuc, "ç", "Ç")
		sonuc = replace(sonuc, "d", "D")
		sonuc = replace(sonuc, "e", "E")
		sonuc = replace(sonuc, "f", "F")
		sonuc = replace(sonuc, "g", "G")
		sonuc = replace(sonuc, "ğ", "Ğ")
		sonuc = replace(sonuc, "h", "H")
		sonuc = replace(sonuc, "ı", "I")
		sonuc = replace(sonuc, "i", "İ")
		sonuc = replace(sonuc, "j", "J")
		sonuc = replace(sonuc, "k", "K")
		sonuc = replace(sonuc, "l", "L")
		sonuc = replace(sonuc, "m", "M")
		sonuc = replace(sonuc, "n", "N")
		sonuc = replace(sonuc, "o", "O")
		sonuc = replace(sonuc, "ö", "Ö")
		sonuc = replace(sonuc, "p", "P")
		sonuc = replace(sonuc, "r", "R")
		sonuc = replace(sonuc, "s", "S")
		sonuc = replace(sonuc, "ş", "Ş")
		sonuc = replace(sonuc, "t", "T")
		sonuc = replace(sonuc, "u", "U")
		sonuc = replace(sonuc, "ü", "Ü")
		sonuc = replace(sonuc, "v", "V")
		sonuc = replace(sonuc, "y", "Y")
		sonuc = replace(sonuc, "z", "Z")
		sonuc = replace(sonuc, "q", "Q")
		sonuc = replace(sonuc, "w", "W")
	else
		sonuc = replace(metin, "A", "b")
		sonuc = replace(sonuc, "B", "b")
		sonuc = replace(sonuc, "C", "c")
		sonuc = replace(sonuc, "Ç", "ç")
		sonuc = replace(sonuc, "D", "d")
		sonuc = replace(sonuc, "E", "e")
		sonuc = replace(sonuc, "F", "f")
		sonuc = replace(sonuc, "G", "g")
		sonuc = replace(sonuc, "Ğ", "ğ")
		sonuc = replace(sonuc, "H", "h")
		sonuc = replace(sonuc, "I", "ı")
		sonuc = replace(sonuc, "İ", "i")
		sonuc = replace(sonuc, "J", "j")
		sonuc = replace(sonuc, "K", "k")
		sonuc = replace(sonuc, "L", "l")
		sonuc = replace(sonuc, "M", "m")
		sonuc = replace(sonuc, "N", "n")
		sonuc = replace(sonuc, "O", "o")
		sonuc = replace(sonuc, "Ö", "ö")
		sonuc = replace(sonuc, "P", "p")
		sonuc = replace(sonuc, "R", "r")
		sonuc = replace(sonuc, "S", "s")
		sonuc = replace(sonuc, "Ş", "ş")
		sonuc = replace(sonuc, "T", "t")
		sonuc = replace(sonuc, "U", "u")
		sonuc = replace(sonuc, "Ü", "ü")
		sonuc = replace(sonuc, "V", "v")
		sonuc = replace(sonuc, "Y", "y")
		sonuc = replace(sonuc, "Z", "z")
		sonuc = replace(sonuc, "Q", "q")
		sonuc = replace(sonuc, "W", "w")
	end if

	TR = sonuc

end function


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2019 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.