Difference between revisions of "ReNamer:Scripts:Separate words"
Jump to navigation
Jump to search
(navigation link added) |
m (Text replacement - "<source>" to "<syntaxhighlight lang="pascal">") |
||
| Line 16: | Line 16: | ||
Author: Denis Kozlov. Date: 14 Sep 2008. | Author: Denis Kozlov. Date: 14 Sep 2008. | ||
| − | < | + | <syntaxhighlight lang="pascal"> |
var | var | ||
I: Integer; | I: Integer; | ||
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.
<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>