ASP:Türkçe karakterleri ingilizce karşılıklarına çevirmek - ASP Webmaster bilgi bankası, knowledge base Webmaster Araçları

AnaSayfa > ASP > ASP:Türkçe karakterleri ingilizce karşılıklarına çevirmek
Kategori: ASP
Gönderen: Admin
Tarih: 2008-12-07
Puan: 8   Puan:8 | Katılımcı:3 | Katılımcı : 3
Okunma: 8968
  
 
1 puan 2 puan 3 puan 4 puan 5 puan 6 puan 7 puan 8 puan 9 puan 10 puan

İçinde Türkçemize özgü karakterler bulunduran dosya, değişken isimlerimiz ingilizce alfabesine dayalı programlama dillerinde sorun oluşturur. Biz bu kod ile bu karakterleri ingiliz alfabesindeki en yakın karşılıklarına çeviriyoruz.

Mesela I,İ,ı harflerinin hepsi i harfine dönüştürülüyor. Ö,O,ö harflerinin hepsi o harfine dönüştülüyor. Boşluklar alt çizgi(_) karakterine çevriliyor. Tüm büyük harfler küçük harflere çevriliyor.

KOD:
Function Cevir(gelenveri)
gelenveri = LCase(gelenveri)
gelenveri = Replace(gelenveri ,Chr(32),"_",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(208),"g",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(240),"g",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(222),"s",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(254),"s",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(199),"c",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(231),"c",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(221),"i",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(236),"i",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(237),"i",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(214),"o",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(246),"o",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(252),"u",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(220),"u",1,-1,0)
Cevir = gelenveri
End Function
Bu fonksiyona göndereceğimiz mesela "Fındık Kurdu" stringi "findik_kurdu" şekline çevrilir.

Güle güle kullanın.




Yorumlar
Henüz Kimse Yorum Yapmamış, ilk yorumu siz ekleyin!
Yorum Ekleme Aparatı
Yorum Eklemek için lütfen sol menuden giris yapınız..
Toplam 0 yorum listelendi.