Re: Question about some more folders in orga-script
Posted: Tue Feb 27, 2018 4:55 pm
Got the files will check them out preferably this weekend
http://www.jtclipper.eu/godfatherforums/
http://www.jtclipper.eu/godfatherforums/viewtopic.php?f=3&t=806
Code: Select all
{!%*AR,1,1%+%AR%+%AR% - %L%+%C%}
program folder_rules_ex;
const
_MiscFolder = '0-9 & Misc';
_MiscValue = '1234567890.+-_!@#$%^&()''';
_SamplerFolder = 'S';
_SamplerValue = 'Sampler';
begin
re_Init( false );
repeat
//check for misc values
if Pos( re_getLevel( 1 ), _MiscValue ) > 0 then re_setLevel( 1, _MiscFolder );
//check comment for Sampler
if Pos( _SamplerValue, re_getLevel( 4 ) ) > 0 then begin
re_setLevel( 1, _SamplerFolder ); //set top folder
re_setLevel( 2, _SamplerValue ); //set child folder
end;
//remove comment level , it's just used to check values
re_removeLevel( 4 );
until not re_Skip;
end.
Code: Select all
begin
if Uppercase( Copy( gTag.Artist, 1, 3 ) ) = 'THE' then begin
var_result( Trim( Copy( gTag.Artist, 4, 999 ) ) + ',The' );
end else begin
var_result( gTag.Artist );
end;
end.
Code: Select all
{!%*@ART.scv,1,1%+%@ART.scv%+%@ART.scv% - %L%+%C%}
program folder_rules_ex;
const
_MiscFolder = '0-9 & Misc';
_MiscValue = '1234567890.+-_!@#$%^&()''';
_SamplerFolder = 'S';
_SamplerValue = 'Sampler';
begin
re_Init( false );
repeat
//check for misc values
if Pos( re_getLevel( 1 ), _MiscValue ) > 0 then re_setLevel( 1, _MiscFolder );
//check comment for Sampler
if Pos( _SamplerValue, re_getLevel( 4 ) ) > 0 then begin
re_setLevel( 1, _SamplerFolder ); //set top folder
re_setLevel( 2, _SamplerValue ); //set child folder
end;
//remove comment level , it just used to check values
re_removeLevel( 4 );
until not re_Skip;
end.