Contact Us Now

Dear Users,

We often get user specific questions. Not every request goes into our file transfer tool as an option. In such cases (and if it is possible) we create a custom Pascal Script for the end user.

Example No1:

People are asking a lot to LimagitoX. Today, a user asked me if I can make a LimagitoX rule with a filter on the number of lines in a file.

Example:  Transfer the file if it contains more than 300 records.  The file type is *.txt

The rule will be:

Transfer files with less than 300 lines in weekday.

Transfer files with more than 300 lines on Sunday.

No transfer on Saturday.

Do you think you can add such a kind of filter?

For this request we created the ‘On Destination’ Pascal Script below. IMPORTANT: Be sure you set the file filter to only allow *.txt files

Var
  tmpList: TStringList;
  tmpNow: TDateTime;
Begin
  psExitCode:= 0;
  // ... add your code here
  tmpList := TStringList.Create;
  Try
    Try
      tmpList.LoadFromFile(psFilePath + psFileName);
      tmpNow := Now;
      // Transfer files with less than 300 lines in weekday ( 1 .. 5 ).
      If (tmpList.Count < 300) And (DayOfTheWeek(tmpNow) < 6) Then Begin psLogWrite(1, '', 'Line Count of ' + psFilePath + psFileName + ' = ' + IntToStr(tmpList.Count)); psLogWrite(1, '', 'Day Of The Week is ' + IntToStr(DayOfTheWeek(tmpNow))); psExitCode := 1; End; // Transfer files with more than 300 lines on Sunday ( 7 ). If (tmpList.Count > 300) And (DayOfTheWeek(tmpNow) = 7) Then
      Begin
        psLogWrite(1, '', 'Line Count of ' + psFilePath + psFileName + ' = ' + IntToStr(tmpList.Count));
        psLogWrite(1, '', 'Day Of The Week is ' + IntToStr(DayOfTheWeek(tmpNow)));
        psExitCode := 1;
      End;
    Except
      psLogWrite(1, '', 'Exception error on loading ' + psFilePath + psFileName);
    End;
  Finally
    tmpList.free;
  End;
End.