Contact Us Now

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