Slug Oluşturma Modülü
Gönderilme zamanı: 20 May 2020, 05:22
Merhaba,
Excel'de kullandığım bir modül var bunu yazılardan slug url oluşturmak için kullanıyorum fakat tüm işlemlerimi libreoffice'de yaptıktan sonra sadece bu kod ile işlem yapabilmek için excel'e dönmek zorunda kalıyorum ve libreoffice'de çalıştırmanın bir yolunu bulamadım, bilenlerin yardımını rica ederim.
Aşağıdaki modülün yaptığı kısaca şu "Baskerville Tazısı Sherlock Holmes Bütün Maceraları 6" yazısını "baskerville-tazisi-sherlock-holmes-butun-maceralari-6" yazısına çeviriyor.
Excel'de kullandığım bir modül var bunu yazılardan slug url oluşturmak için kullanıyorum fakat tüm işlemlerimi libreoffice'de yaptıktan sonra sadece bu kod ile işlem yapabilmek için excel'e dönmek zorunda kalıyorum ve libreoffice'de çalıştırmanın bir yolunu bulamadım, bilenlerin yardımını rica ederim.
Aşağıdaki modülün yaptığı kısaca şu "Baskerville Tazısı Sherlock Holmes Bütün Maceraları 6" yazısını "baskerville-tazisi-sherlock-holmes-butun-maceralari-6" yazısına çeviriyor.
Kod: Tümünü seç
Function TKD(Veri As String)
Dim X As Integer, Eski_Harf() As Variant, Yeni_Harf() As Variant
Application.Volatile True
Eski_Harf = Array(" ", " - ", "ç", "Ç", "ğ", "Ğ", "ı", "İ", "ö", "Ö", "ş", "Ş", "ü", "Ü", " ", "&", "'", ".", "(", ")")
Yeni_Harf = Array("-", "-", "c", "c", "g", "g", "i", "i", "o", "o", "s", "s", "u", "u", "-", "", "", "", "", "")
TKD = Veri
For X = 0 To UBound(Eski_Harf)
TKD = WorksheetFunction.Substitute(TKD, Eski_Harf(X), Yeni_Harf(X))
Next
End Function