Bu Kodlar Tarayıcıların Türkçe Desteği olmaması nedeniyle özellikle seo çalışmaya başlayan kişiler için iyi br örnek.
bu kodlar mesela I,İ,ı harflerinin hepsini i harfine dönüştürülüyor. Ö,O,ö harflerinin hepsini o harfine dönüştülüyor. Boşluklar alt çizgi (_) karakterine çevriliyor. Tüm büyük harfler küçük harflere çevriliyor.
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 “değişik” stringi “degisik” şekline çevrilir.
Add A Comment