İç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 "Asp Dünyası" stringi "Asp_Dunyasi" şekline çevrilir.
Güle güle kullanın.
| Bu makaleyi 744 kişi okudu. |
|
