Pascal Script Archives - Page 14 of 29 - File transfer tool from Limagito

21 Jul
I am looking for a way to incorporate date logic
Q: I am looking for a way to incorporate date logic within our Limagito installation. I believe the easiest way to do this would be to use a Pascal Script, however I have not been able to find a syntax guide to assist me.
The date logic would be used in two places in a single rule that is run on a schedule. The first is in the file filter. Rule executes, I need to look for files that meet the pattern: NV_mmddyyyy.pdf where mmddyyyy is the date for the upcoming Friday.
If it ran today (July 20, 2022), I would be looking for the filename that matched NV_07222022.pdf
The second place is in the path to the destination directory. The path looks like: c:\Jobs\mmdd_NV_WK\HotFolders\ where mmdd is the date for the upcoming Friday.
If it ran today (July 20, 2022, the path would look like: c:\Jobs\0722_NV_WK\HotFolders\
Can you help us create a Pascal Script or provide us with a resource that has a syntax guide?
A: Could you please try the following:
First enable and add the following ‘On Destination’ Pascal Script
Var tmpDay: TDateTime; Function GetNextFriday: TDateTime; Var iDay: Integer; tmpDate: TDateTime; Begin Result := 0; tmpDate := Now; For iDay := 0 to 6 Do begin tmpDate := tmpDate + iDay; // Check if Friday (= 5) If DayOfTheWeek(tmpDate) = 5 Then Begin Result := tmpDate; Break; End; End; End; Begin psExitCode:= 1; // ... add your code here tmpDay := GetNextFriday; If tmpDay <> 0 Then Begin psVSA := FormatDateTime('MMDDYYYY', tmpDay); psVSB := FormatDateTime('MMDD', tmpDay); End Else psExitCode:= 0; End.
Next we need to adjust the File Filter Setup. The ‘Include Filename Filter’ will use the %VSA var (%VSA = Var String A) that was set in the previous Pascal Script.
Important, do not forget to enable ‘Allow parameters in File Name filter (File Filter > Advanced Tab)
Next, open Destination Setup and double click on your Destination:
lect File & Directory Tab and adjust ‘Create SubDir, opt.’ to %VSB_NV_WK\HotFolders\%SFS
Again we will use a Pascal Script var (%VSB) that was set by the ‘On Destination’ Pascal Script.
RunTime Log Result:
#Filetransfer #Filemanagement
If you need any info about this ‘incorporate date logic’ question, please let us know.
Best regards,
Limagito Team
By Limagito-Team Pascal Script date logic, incorporate
17 Jul
Convert character set of text file
Q: Convert character set of text file. I think I need some help here. We connect to a SFTP-server and download 3 files. One of these are a UTF-8 file named Vyymmdd.Thhmmss (i.e. V220627.TT110759). We need to download all 3 files, and convert the UTF-8 file to ISO-8859-1. I have found this article: https://limagito.com/text-character-encoding-conversion/
And edited like this : psChangeTxtEncodingExt(psFilePath + psFileName, ctOutputpath + psFileName, 65001, 28591, True)
Runtime Log says the file was successfully converted. But if I open the file in Notepad++ and click the “Encoding” option on the menu, it highlights UTF-8.
A: In version v2022.7.17.0 we added some extra functions to help you convert the character set of text files:
Function psChangeTxtEncodingCk(Source, Destination: String; SrcCharset, DstCharset: String; WriteBOM: Boolean; ErrorAction: Integer): Boolean;
Do not use this function when Source and Destination file are the same, use psChangeTxtEncodingCkExt instead.
ErrorAction: Controls how errors are handled. When a character in the input data cannot be converted to the target charset, the action taken is controlled by this property.
The possible settings are:
(0) drop the error characters,
(1) substitute the data set by a ?
(2) convert to a hex-escaped string (&#xXXXX)
(3) RESERVED
(4) RESERVED
(5) RESERVED
(6) RESERVED
(7) Pass non-convertible characters to the output unchanged.
The Source and Destination Charset can be any of the supported encodings listed at Chilkat Supported Character Encodings.
Function psChangeTxtEncodingCkExt(Source, Destination: String; SrcCharset, DstCharset: String; WriteBOM, WriteFileIfModified: Boolean): String;
WriteFileIfModified: writes the contents to a file, but only if it is a new file or if the contents are different than the existing file.
WriteBOM: the BOM (also known as a preamble), is emitted for charsets that define a BOM (such as utf-8, utf-16, utf-32, etc.)
The Source and Destination Charset can be any of the supported encodings listed at Chilkat Supported Character Encodings.
#Filetransfer #Filemanagement #Encoding
If you need any info about this ‘Convert character set’ question, please let us know.
Best regards,
Limagito Team
By Limagito-Team Pascal Script character, charset, convert, encoding
04 Jun
Execute Command, continuing on error
Q: Execute Command, continuing on error. I have a rule which moves a file from one win folder to another win folder and then runs a CMD against it. If the CMD errors out it keeps retrying the file. How do I move the failed file to another folder on the error and NOT retry it with the command line?
My current setup is:
WIN as Source
Destinations:
WIN
CMD (Execute Command)
A: In our latest version v2022.6.2.0 we added a new ‘Redirect ExitCode to PS Integer Var A (%VIA)’ option. Please check the ‘Advanced Tab’ of the CMD (Command) as Destination. Enable this option to transfer the ExitCode to our Pascal Script Integer Var psVIA. We’ll use the psVIA var to move the source file in case the Command returns a value <> 0 (which normally is an errorcode).
We will need a third ‘Pascal Script’ as Destination.
1) WIN as Destination
2) CMD as Destination
Now please add a third ‘Pascal Script’ Destination. This must be in the last position. Do not forget to adjust the Const ctErrorPath value. This Pascal Script will move the source file to an error path if the ExitCode of the CMD (command) <> 0.
Const ctErrorPath = 'C:\3ProcessError\'; // must end with a / Begin psExitCode:= 1; // ... add your code here If psVIA <> 0 Then Begin psMoveFile(psFilePath + psFileName, ctErrorPath + psFileName); psLogwrite(1, '', 'CMD ExitCode Error, psVIA: ' + IntToStr(psVIA)); End; End.
#Filetransfer #Filemanagement
If you need any info about this ‘continuing on error’ request, please let us know.
Best regards,
Limagito Team
By Limagito-Team Command Pascal Script continuing on error, execute command