Difference between revisions of "ReNamer:Scripts:Separate words"
Jump to navigation
Jump to search
m (Text replacement - "<source>" to "<syntaxhighlight lang="pascal">") |
m (Text replacement - "</source>" to "</syntaxhighlight>") |
||
Line 26: | Line 26: | ||
WideInsert(' ', FileName, I); // insert space | WideInsert(' ', FileName, I); // insert space | ||
end. | end. | ||
− | </ | + | </syntaxhighlight> |
Latest revision as of 15:00, 8 February 2017
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.