Dear users,
Second Pascal Script is based on the following user request:
We need some help on setting up a rule. The rule we are trying to setup is as follow. Source folder has files in it, example file names ABC-test.txt, 123_test.txt, and test_XYZ.txt. We have a destination folder called “Test”, and we have 3 folders under it called ABC, 123, and XYZ. We want the rule to separate the files and place them in their specified folders. For example, file ABC-test.txt will be placed into folder ABC, 123_test.txt file will be placed into folder 123, and text_XYZ.txt file will be place into folder XYZ. We want the files to be moved into the separated folders that matches their name.
> Add your Destination:
> Destination Setup, change the ‘Create Subdir, opt.’ to %VSB
> Add the following ‘On Rule Begin’ Pascal Script. Very important: the ctOutputPath contant must be the same as your destination path (first screenshot) !
Var iList: Integer; tmpSub: String; tmpList: TStringList; Const ctOutputPath = 'C:\Test\Out\'; Begin psExitCode:= 1; // ... add your code here psVSA := ''; tmpList := TStringList.Create; Try psListPaths(ctOutputPath, '*.*', 0, tmpList); for iList := 0 to (tmpList.Count-1) do Begin tmpSub := tmpList.Strings[iList]; tmpSub := psStringReplace(tmpSub, ctOutputPath, ''); tmpList.Strings[iList] := tmpSub; End; psVSA := tmpList.CommaText; // Debug psLogWrite(1, '', 'SubFolder found: ' + psVSA); Finally tmpList.Free; End; End.
Var iList: Integer; tmpSub: String; tmpList: TStringList; Const ctOutputSubPathNone = 'None\'; Begin psExitCode:= 1; // ... add your code here psVSB := ctOutputSubPathNone; // Iterate tmpList := TStringList.Create; Try tmpList.CommaText := psVSA; tmpList.Sort; for iList := (tmpList.Count-1) downto 0 Do Begin tmpSub := tmpList.Strings[iList]; tmpSub := psStringReplace(tmpSub, '\', ''); psLogWrite(1, '', 'Sub: ' + tmpSub); If Pos(LowerCase(tmpSub), LowerCase(psFileName)) <> 0 Then Begin psVSB := tmpSub; Break; End; End; // Debug psLogWrite(1, 'Destination SubFolder will be: ', psVSB); Finally tmpList.Free; End; End.
If you have any question about this example, don’t hesitate to ask.
Regards,
Limagito Team
