Pascal Script

  • 01 Oct

    Immediate folder name as filename in Limagito File Mover

    Q: I am trying to append a folder name to a file name but having a little trouble. The file is under 1 or 2 subfolder. After the file move I would like to append the very last folder name to the file name , and I don’t want to copy the source folder structure. Can you help me.

    Limagito File Mover Subfolder Filename

    A: Yes this is possible using some Pascal Script. We’ll need two destinations.

    • The first destination must be our ‘Pascal Script’. This script will strip the immediate subfolder from the complete subfolder part.
    • The second destination will be a Windows folder (WIN). In this destination we’ll rename the file using the info from the first destination (pascal script).

    Limagito File Mover Destination Setup

    Let’s start with the first destination (Pascal Script):

    Var
      iList: Integer;
      tmpEntry: String;
      tmpList: TStringList;
    Begin
      psExitCode:= 1;
      // ... add your code here
      psVSA := Trim(psStringReplace(psFilePath, psSourcePath, ''));
      If psVSA <> '' Then
      Begin
        tmpList := TStringList.Create;
        Try
          tmpList.Delimiter := '\';
          tmpList.DelimitedText := psVSA;
          psVSA := '';
          // Iterate
          For iList := (tmpList.Count - 1) DownTo 0 Do
          Begin
            tmpEntry := Trim(tmpList.Strings[iList]);
            If tmpEntry <> '' Then
            Begin
              psVSA := tmpEntry;
              Break;
            End;
          End;
        Finally
          tmpList.Free;
        End;
      End;
      // Adjust
      If psVSA <> '' Then
        psVSA := psVSA + '_';
      // Debug
      psLogWrite(1, '', 'Stripped SubFolder: ' + psVSA);
    End.

    Limagito File Mover Pascal Script Setup

    Next we’ll setup our second destination (WIN):

    Limagito File Mover WIN as Destination

    Don’t forget to disable the ‘Create SubDir’ option if you don’t want to copy the source folder structure.

    Limgito File Mover Create Subfolder option

    File renaming setup:

    Limagito File Mover File Rename

    RegEx: (.*)

    Replacement: %VSA\1

    Limagito File Mover File Rename Setup

    RunTime Log:

    Limagito File Mover RunTime Log

    #FileTransfer

    If you need any info about this ‘Immediate folder name as filename’ question, please let us know.

    Best regards,

    Limagito Team

  • 03 Sep

    Howto trigger email alert after the whole scheduled run completed?

    Q: Is it possible to trigger the email alert in Limagito after the whole scheduled run completed?

    Example : run every 5 mins between 12:00:00 AM and 23:59:59PM

    12:00:00 completed

    12:05:00 completed

    23:55:00 completed

    Email will tigger

    Or is there any other option to send the summary run of job every day?

     

    A: It’s not a default option but we created a small script to achieve this. It does not matter which kind of Source or Destination you are using. So you can add this to any existing Rule.

    >Open the ‘Pascal Script’ setup:

    Limagito File Mover Pascal Script

    >Enable and add the following ‘On Rule Begin’ Pascal Script:

    Begin
      psExitCode:= 1;
      // ... add your code here
      psResetRTLog;
    End.

    Limagito File Mover On Rule Begin Pascal Script

    >Enable and add the following ‘On Rule Begin’ Pascal Script (be sure to adjust the  ctLogPath  constant, we used  C:\Test\Out_Log\  as temporary directory for the log files):

    Var
      tmpDate: String;
      tmpLog: TStringList;
      tmpLogFile: String;
    Const
      ctLogPath = 'C:\Test\Out_Log\'; // Must end with \
    Begin
      psExitCode:= 1;
      // ... add your code here
      tmpDate := FormatDateTime('yyyymmdd', Now);
      tmpLogFile := ctLogPath + 'RTLog_' + tmpDate + '.log';
      //
      tmpLog := TStringList.Create;
      Try
        Try
          If FileExists(tmpLogFile) Then
            tmpLog.LoadFromFile(tmpLogFile);
          // Add
          If psLRT <> '' Then
          Begin
            tmpLog.Add(psLRT);
            // Save
            tmpLog.SaveToFile(tmpLogFile);
          End;     
        Except
          psLogWrite(1, '', 'Error Loading or Saving Log File');
        End;
      Finally
        tmpLog.Free;
      End;
    End.

    Limagito File Mover On Rule end Pascal Script

    >The script creates a RunTime log file with the date as part of the filename (format yyyymmdd). We added  C:\Test\Out_Log\  as temporary directory for the RunTime log files but you can adjust this, always end the ctLogPath constant with a backslash. Nest we’ll create a second rule which will email this file to the desired recipients.

    Limagito File Mover RunTime Log

    >Now you need to add an extra rule with a WIN as Source and SMTP as Destination:

    The Source path of this second rule is the path we used in the previous script. In our case this is ‘C:\Test\Out_Log\’.

    Limagito File Mover WIN as Source

    >Next, please open the File Filter Setup > Advanced Tab > Enable ‘Allow parameters in File Name filter’.

    Limagito File Mover File Filter

    >Add the following File Name Include filter:  *%TCD:[IncDay-1]yyyymmdd:*

    What this filter does is, it looks for a filename with a date part from yesterday because of the [IncDay-1].

    Limagito File Mover File Filter Setup

    So you can trigger this second rule like every 5 minutes since. When a new day starts and this second rule is triggered then it will email the log file from the previous day.

    Limagito File Mover Scan Timer Setup

    >We added SMTP as Destination since our goal was to email the RunTime log file.

    Limagito File Mover Destination Setup

    >Don’t forget to enable ‘Include Source File as Attachment’ so the log file will be included in the email.

    Limagito File Mover SMTP as Destination

    >If you set the Function to ‘Move Files’ then the log file will be deleted after successful SMTP transfer. If you want to keep the RunTime log files then set the Function to ‘Copy Files’ and enable our ‘File Memory’ option.

    Limagito File Mover Function Setup

    Result:

    Limagito File Mover RunTime Log

    #FileTransfer

    If you need any info about this ‘trigger email alert after the whole scheduled run’ question, please let us know.

    Best regards,

    Limagito Team

    By Limagito-Team Email Pascal Script ,
  • 31 Jul

    HL7 (text) File Modification with Limagito File Mover

    HL7 (text) File Modification

    Q: Good morning, thank you again for taking my call! Please find the before and after test files attached.

    1. You’ll see that the FT1 segment, specifically the FT1.25 section, was moved to FT1.7 section. (Each section is delimited by a pipe “|”.)
    2. We also added “CG” (without quotes) to the FT1.6 section. I’ve attached an image to visualize as well.

    I’m urgently trying to get this solution in place! Thank you for your help!!!!

    A: Summary of what we need to do:

    1. Load the HL7 (text) File.
    2. Iterate through the lines in the HL7 File.
    3. Search for a line that starts with ‘FT1|’.
    4. Make the requested adjustments.
    5. Save the HL7 file different from the Source.

    We created a Pascal Script to achieve this (v2021.7.31.0 or higher is needed for this script). Let’s start.

    1) Please add a Source and a File Filter for the .HL7 files you want to adjust
    2) Add the following Pascal Script as Destination, don’t forget to adjust the ctOutputPath const ( must end with a \ ).

    Limagito File Mover Pascal Script as Destination

    Var
      iList: Integer;
      tmpEntry: String;
      tmpError: String;
      tmpField: String;
      tmpFile : String;
      tmpList: TStringList;
      tmpEntryList: TStringList;
    Const
      ctOutputPath = 'C:\Test\IN_HL7\Out\';
    Begin
      psExitCode:= 0;
      // ... add your code here
      tmpFile := psFilePath + psFileName;
      tmpList := TStringList.Create;
      Try
        Try
          tmpList.LoadFromFile(tmpFile);
          // Iterate
          For iList := 0 to (tmpList.Count-1) Do
          Begin
            tmpEntry := tmpList.Strings[iList];
            If Pos('FT1|', tmpEntry) <> 0 Then
            Begin
              tmpEntryList := psDelimitedTextAsList('|', tmpEntry);
              If Assigned(tmpEntryList) Then
              Begin
                tmpEntryList.Delimiter := '|';
                tmpEntryList.StrictDelimiter := True;
                tmpEntryList.Quotechar := #0;
                // 0 indexed
                If tmpEntryList.Count >= 25 Then
                Begin
                  tmpEntryList.Strings[6] := 'CG';
                  tmpEntryList.Strings[7] := tmpEntryList.Strings[25];
                  tmpEntryList.Strings[25] := ''
                  tmpList.Strings[iList] := tmpEntryList.DelimitedText + '|';
                  // Save To File
                  tmpError := psSaveListToFile(tmpList, ctOutputPath + psFileName, False);
                  if tmpError = '' Then
                  begin
                    psExitCode := 1;
                    psLogWrite(1, '', 'Saved adjusted file to: ' + ctOutputPath + psFileName);
                  End
                  Else
                    psLogWrite(1, '', tmpError);
                End Else
                Begin
                  psLogWrite(1, '', 'Field Count error of: ' + tmpEntryList.DelimitedText);
                End;
                // Free
                tmpEntryList.Free;
                // Break
                Break;
              End;
            End;
          End;
        Except
          psLogWrite(1, '', 'Error loading file: ' + tmpFile);
        End;
      Finally
        tmpList.Free;
      End;
    End.

    #FileTransfer

    If you need any info about this ‘HL7 (text) File Modification’ request, please let us know.

    Best regards,

    Limagito Team

1 18 19 20 21 22 23 24 29
SEARCH