ReNamer, Script for delete BEFORE or AFTER specific strings

Some PascalScripts for ReNamer

This Script search and delete filename AFTER the specific strings, include itself.

1. { This script cut filename by string - }
2. 
   
3. const
4.   SEARCH_STRING = 'specific strings here';
5. 
   
6. var
7.   BaseName: WideString; Length, Position: Integer;
8. 
   
9. begin
10.   BaseName := WideExtractBaseName(FileName);
11.   Length := WideLength(BaseName);
12.   Position := WidePos(SEARCH_STRING, BaseName);
13.   WideDelete(BaseName, Position-1, Length-Position+2);
14.   FileName := BaseName + WideExtractFileExt(FileName);
15. 
    
16. end.

This Script opposite to Search and delete filename BEFORE the specific strings, include itself too.

1. { This script cut filename by string - }
2. 
   
3. const
4.   SEARCH_STRING = 'specific strings here';
5. 
   
6. var
7.   BaseName: WideString; Position: Integer;
8. 
   
9. begin
10.   BaseName := WideExtractBaseName(FileName);
11.   Position := WidePos(SEARCH_STRING, BaseName);
12.   WideDelete(BaseName, 1, Position);
13.   FileName := BaseName + WideExtractFileExt(FileName);
14. 
    
15. end.