Pascal Script

  • 23 Apr

    Moving a file based on specific filename part to specific folder

    Q: Moving a file based on specific filename part to specific folder

    Hi there, looking if your software can do this please.

    1) Look at a filename, parse out from character 8-16 and capture it as a ID number

    2) look at the subfolders, find folder with same name, if doesn’t exist, create.

    3) move the file to that location.

    Here is some more specific example

    PDF Name: 055400E900105028-DEN-20210412_12.pdf

    Folder name to search for, and if not exists, create and move the data.

    900104028

    The bolded number is the ID number we need to catch/reference.

    I think it could just skip the file in this ‘rule’ if the length of the file is not ok which would mean it doesn’t contain an ID number.

    For this 1 rule/purpose these files come from a third party provider which should be pretty consistent and contain that number.

    The problem is some folders contain only the ID and is missing the buffer 0’s we put in front.

    So pdf may say 000000465 but the folder that already exists may be called 465 ☹

    Hopefully your tool can assist in more than one way (which it looks like it can!)

    A: Yes this should be possible. We prepared some screenshots to get you started.

    1.You can use any Source but in this example we used a WIN folder:

    Limagito File Mover WIN as Source

    2. File Filter Setup

    The minimum file length we need is 20 (this includes the file extension). We are using the RegEx Include File Filter:

    ^[^|/\<>:?”*]{20,}$

    Limagito File Mover minimum length filter

    3.Now we need some Pascal Script to achieve the customer request:

    Be sure to set the ctOutputPath Constant to the Destination path you are using. In our example the Destination path will be ‘C:\Test\Out_Pdf\’.

    When the File ID starts with 0 then we’ll check if the ID as subfolder exists without the zeros. If it exists we’ll use that one but when not, then the complete ID will be used to create a new destination subfolder.

    Limagito File Mover Pascal Script option

    Var
      tmpDummyPath: String;
      tmpSubPath: String;
    Const
      ctOutputPath = 'C:\Test\Out_Pdf\';
    Begin
      psExitCode := 0;
      tmpSubPath := Copy(psFilename, 8, 9);
      psLogWrite(1, '', 'Stripped ' + tmpSubPath + ' from ' + psFilename);
      //
      IF Copy(tmpSubPath, 1, 1) = '0' Then
      Begin
        If Not DirectoryExists(ctOutputPath + tmpSubPath) Then
        Begin
          tmpDummyPath := tmpSubPath;
          Repeat
            tmpDummyPath := Copy(tmpDummyPath, 2, length(tmpDummyPath) - 1);
            If DirectoryExists(ctOutputPath + tmpDummyPath) Then
            Begin
              tmpSubPath := tmpDummyPath;
              Break;
            End;                  
          Until Copy(tmpDummyPath, 1, 1) <> '0';     
        End;  
      End;
      // The End
      psVSA := tmpSubPath;
      // Check
      If psVSA <> '' Then
        psExitCode := 1;
    End.

    Limagito File Mover On Destination Pascal Script

    4. WIN as Destination setup. Important because for this request we need a WIN as Destination.

    Limagito File Mover WIN as Destination

    Important, be sure the ctOutputPath Constant in the previous Pascal Script is the same as this path.

    Limagito File Mover WIN as Destination Path

    Please enable and set the Create SubDir option to:  %VSA

    Limagito File Mover WIN as Destination SubPath

    5. Result

    Source Files:

    The file RegEx filter will ignore a file when its length < 20. In this case file ‘055400E9001050.pdf’ will not be used.

    Limagito File Mover Source Files

    Destination Subfolders:

    • Subfolder 105208 was already available and was used because of the ‘zero’ prefix in the ID number.
    • Subfolder 900105028 was created by our File Mover.

    RunTime Log:

    File ‘055400E000105028-DEN-20210412_12 – Copy.pdf’ was copied to ‘C:\Test\Out_Pdf\105028\’ because this already existed. The Pascal Script removed the zeros from the ID number and checked if it already was available.

    File ‘055400E900105028-DEN-20210412_12.pdf’ was copied to ‘C:\Test\Out_Pdf\900105028\’. The ID number has no ‘zero’ prefix so the complete ID number was used to create the subfolder.

    Limagito File Mover RunTime Log

    As you see many options are possible with Limagito File Mover so don’t hesitate to ask.
    If you need any help with this ‘specific filename part to specific folder’ request, please let us know.

    Best Regards,

    Limagito Team

  • 10 Mar

    I have a load of FTP sites that customer upload to, difficult to manage

    Q: Have a request. I have a load of FTP sites that customer upload to and currently we have a Limagito move on each of those folders – we now have too many of them to manage. Am trying to cut these down to one move per group of users.

    So, if a file arrives in a folder ABCD the move will pick it up, report to the user that a file has arrived and place it in their User folders with an append to the name telling them that it arrive in folder ABCD. So customer called ABCD has uploaded a file named ‘my files to you’ to their folder called ABCD. The file(s) are picked up and moved to a new folder with and rename ‘ABCD-my files to you’. Pretty sure this is possible here. But have had bit of play around with it but its defeating me!!!

    A: So the FTP server has a root folder with 1 subfolder for each customer like

    D:\Root\CustomerA
    D:\Root\CustomerB
    D:\Root\CustomerC
    Limagito will scan D:\Root and will pickup files from subfolder CustomerA and move them to another folder with the prefix of CustomerA-filename.pdf
    Limagito will scan D:\Root and will pickup files from subfolder CustomerB and move them to another folder with the prefix of CustomerB-filename.pdf

    1.Please add the following ‘On Destination’ Pascal Script:
    LimagitoX File Mover Pascal Script

    Begin
      psExitCode:= 1;
      // ... add your code here
      psVSA := psStringReplace(psFilePath, psSourcePath, '');
      psVSA := psStringReplace(psVSA, '\', '');
    End.

    Limagito File Mover On Destination Pascal Script
    2. Add the following Destination File Renaming:

    Limagito File Mover File Renaming option
    Limagito File Mover File Renaming setup
    If you need any help with this ‘load of FTP sites’ request, please let us know.

    Best Regards,

    Limagito Team

    By Limagito Pascal Script WIN
  • 30 Dec

    Q&A 38: I would like to log the create date of the file being moved

    Q: I would like to log the create date of the file being moved. Can you please advise if there is a way filemover can be setup to log the create date of the file being moved. As of now we don’t see this info in the log file. Is there a setting in the app that we can tweak to control what all is logged in the log file?
    A: We added some extra Pascal Script functions in version v2020.12.30.0 to achieve this.

    Please open the Pascal Script option of your Rule:

    Limagito File Mover Pascal Script option

    Enable and Add the following ‘On Destination’ Pascal Script:

    Var
      tmpDateTime: TDateTime;
      tmpDateStr: String;
    Begin
      psExitCode:= 1;
     
      // Creation Time
      tmpDateTime := psGetCreationTime(psFilePath + psFileName);
      tmpDateStr := FormatDateTime('YYYY-MM-DD HH:NN:SS', tmpDateTime);
      psLogWrite(1, '', 'Creation Time of ' + psFilePath + psFileName + ': ' + tmpDateStr);
     
      // Creation Time Utc
      tmpDateTime := psGetCreationTimeUtc(psFilePath + psFileName);
      tmpDateStr := FormatDateTime('YYYY-MM-DD HH:NN:SS', tmpDateTime);
      psLogWrite(1, '', 'Creation Time Utc of ' + psFilePath + psFileName + ': ' + tmpDateStr);
     
      // Last Access Time
      tmpDateTime := psGetLastAccessTime(psFilePath + psFileName);
      tmpDateStr := FormatDateTime('YYYY-MM-DD HH:NN:SS', tmpDateTime);
      psLogWrite(1, '', 'Last Access Time of ' + psFilePath + psFileName + ': ' + tmpDateStr);
     
      // Last Access Time Utc
      tmpDateTime := psGetLastAccessTimeUtc(psFilePath + psFileName);
      tmpDateStr := FormatDateTime('YYYY-MM-DD HH:NN:SS', tmpDateTime);
      psLogWrite(1, '', 'Last Access Utc Time of ' + psFilePath + psFileName + ': ' + tmpDateStr);
     
      // Last Write Time
      tmpDateTime := psGetLastWriteTime(psFilePath + psFileName);
      tmpDateStr := FormatDateTime('YYYY-MM-DD HH:NN:SS', tmpDateTime);
      psLogWrite(1, '', 'Last Write Time of ' + psFilePath + psFileName + ': ' + tmpDateStr);
     
      // Last Write Time Utc
      tmpDateTime := psGetLastWriteTimeUtc(psFilePath + psFileName);
      tmpDateStr := FormatDateTime('YYYY-MM-DD HH:NN:SS', tmpDateTime);
      psLogWrite(1, '', 'Last Write Utc Time of ' + psFilePath + psFileName + ': ' + tmpDateStr);
    End.

    Limagito File Mover Pascal Script Get Creation Time

    RunTime Log Result:

    Limagito File Mover RunTime log

    In the example we added ‘Creation Time (Utc)’, ‘Last Access Time (Utc)’ and ‘Last Write Time (Utc)’. You can, of course, remove the parts you do not need from the Pascal Script.

    If you need any help with this ‘log the create date’ request, please let us know.

    Best Regards,

    Limagito Team

1 2 3 4 5 8