ReNamer:Scripts:Separate words

From den4b Wiki
Revision as of 15:00, 8 February 2017 by Den4b (talk | contribs) (Text replacement - "<source>" to "<syntaxhighlight lang="pascal">")
Jump to navigation Jump to search

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.

<syntaxhighlight lang="pascal"> 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. </source>