Replace: meta tag "File_FolderName" with "sometext_FolderName"

crystal3d · 2011-08-16 15:51

Greetings,
I want to rename files that have same name as its folder only,

tried my luck with using a meta tag on the find panel instead of the replace panel:

not suprisingly, it did not work...

if it did, i could rename 9000 models...

is it possible to get it done via pascal script or alike inside renamer?

Last edited by crystal3d (2011-08-16 15:51)

SafetyCar · 2011-08-16 19:48

I think this should be easy with PascalScript, but I found something unexpected.

One question for Denis: Shouldn't WideExtractFileDir() return the folder name instead of the folder path? for the folder path there's already WideExtractFilePath(), isn't it?.

Last edited by SafetyCar (2011-08-16 19:49)

Stefan · 2011-08-16 20:57

crystal3d wrote:

Greetings,
I want to rename files that have same name as its folder only,
is it possible to get it done via pascal script

FROM:
X:\Path\to\Test\Test.ext
X:\Path\to\Test\File.ext
TO:
X:\Path\to\Test\_Test.ext
X:\Path\to\Test\File.ext

Try:

var
  ParentFolder,FileBase: WideString;
begin
  ParentFolder := CalculateMetaTag(FilePath, ':File_FolderName:');
  FileBase := WideExtractBaseName(FileName);
  if (FileBase=ParentFolder) then
     FileName := '_' + FileName;
end.

If Parent and File have different case,

FROM:
X:\Path\to\Test\test.ext
TO:
X:\Path\to\Test\_test.ext

Try:

var
 ParentFolder,FileBase: WideString;
begin
  ParentFolder := CalculateMetaTag(FilePath, ':File_FolderName:');
  FileBase := WideExtractBaseName(FileName);
  ParentFolder := WideLowerCase(ParentFolder);
  FileBase := WideLowerCase(FileBase);
  if (FileBase=ParentFolder) then
     FileName := '_' + FileName;
end.

If Parent and File have different case,
but the file should get the same case as the parent folder

FROM:
X:\Path\to\Test\test.ext
TO:
X:\Path\to\Test\_Test.ext

Try something like:

var
 ParentFolder,FileBase: WideString;
begin
  ParentFolder := CalculateMetaTag(FilePath, ':File_FolderName:');
  FileBase := WideExtractBaseName(FileName);
  ParentFolder := WideLowerCase(ParentFolder);
  FileBase := WideLowerCase(FileBase);
  if (FileBase=ParentFolder) then
     FileName := '_' + CalculateMetaTag(FilePath, ':File_FolderName:');
end.

HTH?

den4b · 2011-08-16 23:31

Here is a good article which gives examples of how functions like ExtractFileDir behave:
http://www.delphibasics.co.uk/RTL.asp?N … actFileDir

I have also fixed the description of these functions on the Wiki:
ReNamer:Pascal_Script:Functions#File_Name_Utilities

To extract folder name of a file, you can use this snippet:

FileName := WideExtractFileName(WideExtractFileDir(FilePath));

crystal3d · 2011-08-17 08:19

Bull's eye! DTH!

Stefan · 2011-08-17 08:54

crystal3d, thanks for the feedback! (your long quoting will be removed later )

den4b wrote:

To extract folder name of a file, you can use this snippet:
FileName := WideExtractFileName(WideExtractFileDir(FilePath));

Thanks

Added to the wiki http://www.den4b.com/wiki/ReNamer:Pasca … :SplitPath
(re-formating allowed )

den4b Forum

#1 2011-08-16 15:51

Replace: meta tag "File_FolderName" with "sometext_FolderName"

#2 2011-08-16 19:48

Re: Replace: meta tag "File_FolderName" with "sometext_FolderName"

#3 2011-08-16 20:57

Re: Replace: meta tag "File_FolderName" with "sometext_FolderName"

#4 2011-08-16 23:31

Re: Replace: meta tag "File_FolderName" with "sometext_FolderName"

#5 2011-08-17 08:19

Re: Replace: meta tag "File_FolderName" with "sometext_FolderName"

#6 2011-08-17 08:54

Re: Replace: meta tag "File_FolderName" with "sometext_FolderName"

Board footer