Ben de benzer bir dosyada tersini yani dosyanın uzantısız adını almak için kullanmıştım;
Let ( [
ad = GetContainerAttribute ( DOSYA ; "filename" ) ;
uzunluk = Length ( ad ) ;
pozisyon = Position ( ad; "." ; uzunluk; -1 )
] ;
Case(
pozisyon > 1; Left ( ad ; pozisyon - 1 );
ad
)
)
Dosya adını değiştirmek için ise;
Set Field [ DOSYALAR::DOSYA; Base64Decode ( Base64Encode ( DOSYALAR::DOSYA ) ; DOSYALAR::YENI DOSYA ADI & "." & DOSYALAR::DOSYA_ ) ]
Pause/Resume Script [ Duration (seconds): 1 ]
Set Field [ DOSYALAR::YENI DOSYA ADI; "" ]
Go to Layout [ “DOKUMAN” (DOSYALAR) ]
Close Window [ Current Window ]
Script içinde kullanılan tabo ve alanlar;
DOSYALAR::DOSYA
DOSYALAR::YENI DOSYA ADI
DOSYALAR::DOSYA_