pdf isim sadeleştirme

[igultekin2000]

iyi günler;
PDF OLARA İNEN DOSAYLARIN İSİMLERİ BU FORMATTA ÇIKIYOR.

IVD-VRG_LVH_6Z94BWCO498_4340635922



BEN BAŞKA İŞLEMDE VERGİ NO İLE KLASÖRLERİN İSİMLERİNİ BAT DOSYASIYLA RAHATÇA İSİME DÖNÜŞTÜRÜYORUM.
REN 8920324995 UMUT" "IRMAK" "DERNEK KOMUTU İLE

PDF dosyalarındada sondaki tireden sonra vergi numarasını gösteriyor, o kalarak diğerlerini silme imkanı var mıdır, vergi numarasına göre zaten bat.la hazır liste olduğu için rahatça çeviriyorum.

Son tireden sonraki rakama bazen 10, bazen 11 karakter oluyor.

Teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Degistir()

    Dim k As String, d As String, a As Long, s, t
     
    k = "C:\Deneme\"
    d = Dir(k)
     
    a = 1
    While d <> ""
        s = Split(d, "_")
        t = s(UBound(s))
        a = a + 1
        Name k & d As k & t
        d = Dir
    Wend
 
End Sub

.

 

[Asri]

Bir bat dosyasına aşağıdaki kodu ekleyip deneyiniz.
Aktif klasörde bulunan bütün pdf dosyalarının isimlerini kısaltacaktır.

Geri dönüşü yoktur. Yedeklerinizi alınız.

for %%i in ("*.pdf") do (set fname=%%i) & call :rename
goto :eof
:rename
::Cuts off 1st four chars, then appends prefix
ren "%fname%" "%fname:~24%"
goto :eof

 

[igultekin2000]

ilave

Bir bat dosyasına aşağıdaki kodu ekleyip deneyiniz.
Aktif klasörde bulunan bütün pdf dosyalarının isimlerini kısaltacaktır.

Geri dönüşü yoktur. Yedeklerinizi alınız.

for %%i in ("*.pdf") do (set fname=%%i) & call :rename
goto :eof
:rename
::Cuts off 1st four chars, then appends prefix
ren "%fname%" "%fname:~24%"
goto :eof

ren komutlu bat. dosyasıyla klasör isimlerini değiştiriyorum, ama yaptığınız bat ile de ilgili firmanın sadece vergi numarası kalıyor, benim kullandığım ren li bat pdf ' nin ismini değiştirmiyor. ren komutu sadece klasörde mi geçerli oluyor. kullandığım bat dosyasını sürekli güncellediğim için pratik oluyor.

 

[igultekin2000]

hata verdi

Merhaba,

Bu şekilde deneyin.

Sub Degistir()

    Dim k As String, d As String, a As Long, s, t
     
    k = "C:\Deneme\"
    d = Dir(k)
     
    a = 1
    While d <> ""
        s = Split(d, "_")
        t = s(UBound(s))
        a = a + 1
        Name k & d As k & t
        d = Dir
    Wend
 
End Sub

.

c' de deneme klasörü açıp, makrosu modüle kopyaladım, ilgili dosyayı da bu klasörün içine koydum, path/file access error şeklinde hata verdi

 

[Ömer]

Pdf doslarının "C:\Deneme\" içindeki klasörde olduğu düşünülmüştür. Makro yazdığınız excelin hangi klasörde olduğu önemli değil.

Yetki olarak C klasörüne erişim kısıtlanmış da olabilir. Dosyanızı D ye kopyalayıp kodlarıda bu doğrultuda düzeltip tekrar deneyiniz.

Pdf dosyaları farklı bir klasördeyse kodlardaki dosya yolunu değiştirmeniz yeterli olur.

Not: Deneme yaptım.

.