ASP:Türkçe karakterleri ingilizce karşılıklarına çevirmek

**Jaqen** · 19.06.2013, 16:01

ASP:Türkçe karakterleri ingilizce karşılıklarına çevirmek

İç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

19.06.2013, 16:01	#1 (permalink)
Jaqen Root Administrator Kullanıcıların profil bilgileri misafirlere kapatılmıştır.	ASP:Türkçe karakterleri ingilizce karşılıklarına çevirmek ASP:Türkçe karakterleri ingilizce karşılıklarına çevirmek İç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 Benzer Konular Bilgisayar DOS ortamında Türkçe karakterleri yazmıyorsa... Entrika Çevirmek... WinBin2Iso 2.62 / Bin dosyalarını Iso ya çevirmek... Bazı ingilizce cümlelerin türkçe karşılığı... Öğrenciyi Geri Çevirmek Yok... Paylaş Share this post on Twitter Follow @Forumaski