Difference between revisions of "ReNamer:Scripts:Separate words"

From den4b Wiki
Jump to navigation Jump to search
(Created page with 'Separate capitalized words with spaces. Useful for cleaning up some files downloaded from the internet. For example, if we have a file "''TheEverlyBrothers - AllIHaveToDoIsDream...')
 
Line 2: Line 2:
  
 
For example, if we have a file "''TheEverlyBrothers - AllIHaveToDoIsDream.mp3''" it will be converted into "''The Everly Brothers - All I Have To Do Is Dream.mp3''".
 
For example, if we have a file "''TheEverlyBrothers - AllIHaveToDoIsDream.mp3''" it will be converted into "''The Everly Brothers - All I Have To Do Is Dream.mp3''".
 +
 +
Note: Since beta version from 8.08.2009 this common task was integrated into the CleanUp rule.
  
 
== Tested ==
 
== Tested ==

Revision as of 00:49, 12 August 2009

Separate capitalized words with spaces. Useful for cleaning up some files downloaded from the internet.

For example, if we have a file "TheEverlyBrothers - AllIHaveToDoIsDream.mp3" it will be converted into "The Everly Brothers - All I Have To Do Is Dream.mp3".

Note: Since beta version from 8.08.2009 this common task was integrated into the CleanUp rule.

Tested

  • ReNamer 5.20
  • ReNamer 5.50

Code

Author: Denis Kozlov. Date: 14 Sep 2008.

var
  I: Integer;
begin
  for I := WideLength(FileName) downto 2 do        // for each character
    if IsWideCharAlpha(FileName[i]) then           // is alphabetic
      if IsWideCharUpper(FileName[i]) then         // is upper case
        if not IsWideCharSpace(FileName[i-1]) then // is space preceding
          WideInsert(' ', FileName, I);            // insert space
end.