Dosya Adlarındaki Belirsiz Karakterleri Temizlemek

Dosya isimlerindeki belirsiz karakterler, disk üzerindeki bazı yazma işlemleri sırasında beklenmedik sonuçlara yol açabilmektedir.

Bunu aşmak için SEO URL gibi bazı işlemler yapılır. Fakat çok sayıda dosya adında, bu değişikliği yapmak için Excel üzerinde makro, değişikliği uygulamak için Advanced Renamer kullandım.

SEO URL için bu siteye göz atabilirsiniz:
https://www.coderstool.com/url-seo-slugify
Erişim tarihi: 14.03.2021 Pazar

Dosya adlarını toplu olarak değiştirmek için Advanced Renamer kullanabilirsiniz:
https://www.advancedrenamer.com/download
Erişim tarihi: 14.03.2021 Pazar


İşlem sekmesinin, A sütunu kaynak listedir.

C, D, E sütunu işlem yapılan sahadır. İşlem bittikten sonra silinir. Son olarak veriler, B sütununa kopyalanır ve B'de biçim ayarı verilir.

B sütunu ise SEO URL işlemi tamamlanmış listedir.


Dizi sekmesinin, A sütunu ölçüt alınan karakter listesidir.
B sütunu silinen karakter yerine eklenecek karakteri gösterir. Bunu alt tire "_", tire "-", artı "+" olarak da değiştirebilirsiniz. SEO URL gibi kullanımlarda tire "-" kullanılır.

C sütunu Türkçe'ye Arapça, Farsça'dan geçmiş seslerin SEO URL için dönüştürme ölçütüdür. D ve E sütunu ise buna karşılık verilecek karakterleri gösterir.


Dosya listelemek için klasör ağacını gösteren pencereyi açan makro:
Sub Dosya_Listele() Dim dosya As String, Satir As Integer, Yol As String Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0) Kaynak = Klasor.SELF.Path dosya = Kaynak & "\" dosyaad = Dir(dosya & "*.*") Satir = 2 While dosyaad <> "" Range("A" & Satir) = dosya Range("B" & Satir) = dosyaad 'Split(dosyaad, ".")(LBound(Split(dosyaad, "."))) Satir = Satir + 1 dosyaad = Dir() Wend End Sub

---

Dosya adlarını Excel üzerinden değiştirmek için makro:
Sub Dosya_Adi_Degistir() If Sheets("islem").Cells(2, 1) = "" Or Sheets("islem").Cells(2, 2) = "" Then MsgBox ("İçinde dosya olduğundan emin olduğunuz bir klasör seçiniz.") Exit Sub End If Dim Satir As Integer, Yol As String, dosya As String, YeniDosya As String, Uzanti As String Satir = 2 While Range("A" & Satir) <> "" Yol = Range("A" & Satir) dosya = Range("B" & Satir) YeniDosya = Range("C" & Satir) Uzanti = "." + Split(dosya, ".")(UBound(Split(dosya, "."))) Name Yol & dosya As Yol & YeniDosya + Uzanti Satir = Satir + 1 Wend End Sub

---

SEO URL türünde dosya isim düzeni üretmek için makro:
Sub SEO_URL() If Sheets("islem").Cells(2, 1) = "" Or Sheets("islem").Cells(2, 2) = "" Then MsgBox ("İçinde dosya olduğundan emin olduğunuz bir klasör seçiniz.") Exit Sub End If Dim CSutunuTemizlemeSecimi As Integer CSutunuTemizlemeSecimi = WorksheetFunction.CountA(Sheets("islem").Range("B2:B" & Rows.Count)) + 1 Sheets("islem").Range("C2", Range("C" & CSutunuTemizlemeSecimi)).ClearContents 'C2 DEN İTİBAREN SÜTUN SONUNA KADAR SİL Dim DegisecekDosyaSayaci, DegisecekDosyaSayisi As Integer DegisecekDosyaSayisi = WorksheetFunction.CountA(Sheets("islem").Range("B:B")) Dim IstenenKarakterListeSayaci, IstenenKarakterListeSayisi As Integer IstenenKarakterListeSayisi = WorksheetFunction.CountA(Sheets("dizi").Range("B:B")) Dim DosyaAdiKarakterSayaci, DosyaAdiKarakterSayisi As Integer Dim DosyaAdi As String Dim UzantisizDosyaAdi As String Dim Dilimler() As String Dim DilimSayaci As Integer For DegisecekDosyaSayaci = 2 To DegisecekDosyaSayisi DosyaAdiKarakterSayisi = Len(Sheets("islem").Cells(DegisecekDosyaSayaci, 2).Value) For DosyaAdiKarakterSayaci = 1 To DosyaAdiKarakterSayisi For IstenenKarakterListeSayaci = 2 To IstenenKarakterListeSayisi If Mid(Sheets("islem").Cells(DegisecekDosyaSayaci, 2).Value, DosyaAdiKarakterSayaci, 1) = _ Sheets("dizi").Cells(IstenenKarakterListeSayaci, 1) Then Sheets("islem").Cells(DegisecekDosyaSayaci, 3).Value = _ Sheets("islem").Cells(DegisecekDosyaSayaci, 3).Value & _ Sheets("dizi").Cells(IstenenKarakterListeSayaci, 2) End If Next IstenenKarakterListeSayaci If DosyaAdiKarakterSayaci > Len(Sheets("islem").Cells(DegisecekDosyaSayaci, 3).Value) Then Sheets("islem").Cells(DegisecekDosyaSayaci, 3).Value = _ Sheets("islem").Cells(DegisecekDosyaSayaci, 3).Value & Sheets("dizi").Cells(2, 3) End If Next DosyaAdiKarakterSayaci DosyaAdi = Sheets("islem").Cells(DegisecekDosyaSayaci, 3).Value Dilimler = Split(DosyaAdi, Sheets("dizi").Cells(2, 3)) UzantisizDosyaAdi = Dilimler(0) For DilimSayaci = 1 To UBound(Dilimler()) - 1 UzantisizDosyaAdi = UzantisizDosyaAdi & Sheets("dizi").Cells(2, 3) & Dilimler(DilimSayaci) Next DilimSayaci 'Kaynak: https://trumpexcel.com/vba-split-function/ Sheets("islem").Cells(DegisecekDosyaSayaci, 3).Value = UzantisizDosyaAdi Next DegisecekDosyaSayaci Dim KucukBuyukAyir As String For DegisecekDosyaSayaci = 2 To DegisecekDosyaSayisi DosyaAdiKarakterSayisi = Len(Sheets("islem").Cells(DegisecekDosyaSayaci, 2).Value) For DosyaAdiKarakterSayaci = 1 To DosyaAdiKarakterSayisi Sheets("islem").Cells(DegisecekDosyaSayaci, 3).Replace What:="__", Replacement:="_", _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Sheets("islem").Cells(DegisecekDosyaSayaci, 3).Replace What:="--", Replacement:="-", _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False KucukBuyukAyir = KucukBuyukAyir + Mid(Sheets("islem").Cells(DegisecekDosyaSayaci, 3).Value, DosyaAdiKarakterSayaci, 1) If Mid(Sheets("islem").Cells(DegisecekDosyaSayaci, 3).Value, DosyaAdiKarakterSayaci, 2) Like "[a-z][A-Z]" Then KucukBuyukAyir = KucukBuyukAyir & Sheets("dizi").Cells(2, 3) End If 'Kaynak: https://stackoverflow.com/questions/10190269/split-uppercase-words-in-excel Next DosyaAdiKarakterSayaci Sheets("islem").Cells(DegisecekDosyaSayaci, 3).Value = KucukBuyukAyir KucukBuyukAyir = vbNullString If Left(Sheets("islem").Cells(DegisecekDosyaSayaci, 3), 1) = "_" Then Sheets("islem").Cells(DegisecekDosyaSayaci, 3).Value = _ Mid(Sheets("islem").Cells(DegisecekDosyaSayaci, 3), 2, Len(Sheets("islem").Cells(DegisecekDosyaSayaci, 3))) End If If Right(Sheets("islem").Cells(DegisecekDosyaSayaci, 3), 1) = "_" Then Sheets("islem").Cells(DegisecekDosyaSayaci, 3).Value = _ Left(Sheets("islem").Cells(DegisecekDosyaSayaci, 3), Len(Sheets("islem").Cells(DegisecekDosyaSayaci, 3)) - 1) End If Next DegisecekDosyaSayaci End Sub

---

Dosya isimlendirmesi için, hızlı olunması gereken zamanlarda, sıra numarası üretmek için makro:
Sub Sira_Numarasi_Uret() Dim DosyaAdSayisi As String DosyaAdSayisi = WorksheetFunction.CountA(Sheets("islem").Range("B2:B" & Rows.Count)) Dim IslemTekrarla As Integer IslemTekrarla = WorksheetFunction.CountA(Sheets("islem").Range("B2:B" & Rows.Count)) Dim SiraNoSayaci As Integer Dim SiraNo As Integer SiraNo = InputBox("1'den büyük bir tam sayı giriniz.") Dim AtlamaDegeri As Integer AtlamaDegeri = InputBox("Artırma işlemi için bir tam sayı giriniz.") Dim SiraNoBasamakAdedi As String For SiraNoSayaci = 2 To IslemTekrarla + 1 SiraNoBasamakAdedi = Len(SiraNo) - 1 SiraNoBasamakAdedi = SiraNo If Len(DosyaAdSayisi) > Len(SiraNoBasamakAdedi) Then Sheets("islem").Cells(SiraNoSayaci, 3).Value = "'" & WorksheetFunction.Rept("0", Len(DosyaAdSayisi) - Len(SiraNoBasamakAdedi)) & SiraNo Else Sheets("islem").Cells(SiraNoSayaci, 3).Value = SiraNo End If SiraNo = SiraNo + AtlamaDegeri Next SiraNoSayaci End Sub

---

İşlem alanlarını temizlemek için makro: Sub Alani_Temizle() Dim DoluAlanSec As Integer DoluAlanSec = WorksheetFunction.CountA(Sheets("islem").Range("B2:B" & Rows.Count)) + 1 Sheets("islem").Range("A2", Range("C" & DoluAlanSec)).ClearContents End Sub