Slug Oluşturma Modülü

Cevapla
mhmtcbn
Mesajlar: 1
Kayıt: 20 May 2020, 05:14
İşletim Sisteminiz: Ubuntu Mate
LibreOffice Sürümü: 6.4.3

Slug Oluşturma Modülü

Mesaj gönderen mhmtcbn »

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.

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
Cevapla