Slug Oluşturma Modülü

Slug Oluşturma Modülü

#2639 İleti | mhmtcbn | 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.

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
mhmtcbn
 
İleti: 1
Kayıt: 20 May 2020, 05:14
İşletim Sisteminiz: Ubuntu Mate
LibreOffice Sürümü: 6.4.3

Calc - Hesap Tablosu

Kimler çevrimiçi

Kayıtlı kullanıcılar: Google [Bot]

cron