Pascal Script Archives - Page 10 of 27 - File transfer tool from Limagito

24 Apr
File renaming logic using day of week function
Q: We need the dates tv listing dates moved to publications dates. This newspaper publishes 3 days a week, Wednesday, Friday and Saturday. In order to automatically flow the graphic onto the page, the file name needs to match the publication date.
We need the following logic,
Wednesday graphic gets Wednesday date,
Thursday graphic gets Wednesday date (the day before)
Friday graphic gets Friday date
Saturday graphic gets Friday date (the day before)
Sunday / Monday / Tuesday graphics get the previous Saturday date.
For example:
Sunday / Monday / Tuesday dates:
PH_20230423.pdf
PH_20230424.pdf
PH_20230425.pdf
We’d want renamed to
PH_Sun_20230422.pdf
PH__Mon_20230422.pdf
PH_Tues_20230422.pdf
Technically the “Sun”, “Mon”, “Tues” could be anything as long as they’re unique and predictable.
Moving onto the next set:
PH_20230426.pdf
PH_20230427.pdf
Would be renamed to
PH_Wed_20230426.pdf
PH_Thurs_20230426.pdf
And finally:
PH_20230428.pdf
PH_20230429.pdf
Would be renamed to
PH_Fri_20230428.pdf
PH_Sat_20230428.pdf

A: Yes this is possible using our Mover Pascal Script and Destination RegEx renaming options.
Open ‘Pascal Script’ setup
Enable and add the following ‘On Destination’ Pascal Script:
Var tmpLen: Integer; tmpDateStr, tmpFilePart: String; tmpDate1, tmpDate2: TDateTime; Begin psExitCode:= 1; // ... add your code here // PH_20230423.pdf > PH_Sun_20230422.pdf tmpDateStr := psFileName; tmpDateStr := psStringReplace(tmpDateStr, '.pdf', ''); tmpLen := Length(tmpDateStr); If tmpLen >= 8 Then Begin tmpDateStr := Copy(tmpDateStr, tmpLen - 8 + 1, 8); tmpDate1 := psStrToDate(tmpDateStr, 'YYYYMMDD', #0); Case DayOfWeek(tmpDate1) of 1: // Sunday tmpDate2 := psIncDay(tmpDate1, -1); 2: // Monday tmpDate2 := psIncDay(tmpDate1, -2); 3: // Tuesday tmpDate2 := psIncDay(tmpDate1, -3); 4: // Wednesday tmpDate2 := tmpDate1; 5: // Thursday tmpDate2 := psIncDay(tmpDate1, -1); 6: // Friday tmpDate2 := tmpDate1; 7: // Saturday tmpDate2 := psIncDay(tmpDate1, -1); Else psExitCode := 0; // Error End; psVSA := FormatDateTime('DDD', tmpDate1); psVSB := FormatDateTime('YYYYMMDD', tmpDate2); psLogWrite(1, '', 'Date: ' + psVSB + ', Day: ' + psVSA); End Else psLogWrite(1, '', 'Length error of ' + tmpDateStr); End.
Afterwards, adjust the File Rename option in your Destination setup:
RegEx: (.*)_(.*)\.(.*)
Replacement: \1_%VSA_%VSB.\3
– RunTime Log Result:
#FileTransfer
If you need any info about this ‘day of week function’, please let us know.
Best regards,
Limagito Team
By Limagito-Team Pascal Script Rename dayoftheweek, dayofweek
10 Feb
Move and change content of a txt-file
Q: Hello Limagito, Now I need your help again…
I got a TXT-file delivered from my customer with approximately 250 rows.
In the txt file I like “search and replace” a text string :
;19;18;;
Should be replaced with
;36;35;;
And the string
;21;21;;
Should be replaced with
;37;37;;
I also tried to set the powershell exe file in the field for Application name (C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe)
Is there any other way?
A: Yes there is, we can do this easily with our Pascal Script so no need for external scripts if you want.
In our example we’ll use a Windows folder as Source:
We only want to handle .txt file so we added the following Filename Include Filter:
As Destination we added a Pascal Script. This script will does the work you requested.
Adjust ctOutputPath > must end with a \
Encoding of destination text file can be adjusted

Var tmpFileIn, tmpFileOut: String; tmpList: TStringList; Const ctOutputPath = 'C:\Test\Out_Txt\'; Begin // Init var psExitCode:= 0; tmpFileIn := psFilePath + psFileName; tmpFileOut := ctOutputPath + psFileName; // ... add your code here tmpList := TStringList.Create; Try Try tmpList.LoadFromFile(tmpFileIn); tmpList.Text := psStringReplace(tmpList.Text, ';19;18;;', ';36;35;;'); tmpList.Text := psStringReplace(tmpList.Text, ';21;21;;', ';37;37;;'); // https://docs.microsoft.com/nl-be/windows/win32/intl/code-page-identifiers If psSaveTxt2File(tmpList.Text, ctOutputPath + psFileName, 'ISO-8859-1', False) Then Begin psExitCode := 1; psLogWrite(1, '', 'SaveToFile ' + tmpFileOut + ' Successful'); End Else psLogWrite(1, '', 'SaveToFile ' + tmpFileOut + ' Error'); Except psLogWrite(1, '', 'LoadFromFile ' + tmpFileIn + ' Exception'); End; Finally tmpList.Free; End; End.
Feedback Customer:
As always you save the day! The Pascal script did my work easily. Some day I have to learn more about pascal!
I cheat some in powershell and some visual basic, but this stuff is powerful!
By the way, it only worked in the newer version of Limagito (I still have some workflows in the old version)
Thank you for help, quick and accurate, as always!
#FileTransfer #Encoding
If you need any info about this ‘change content of a txt-file’ request, please let us know.
Best regards,
Limagito Team
By Limagito-Team Pascal Script WIN XLS/CSV change content, encoding

23 Oct

Need help with subtracting date from a filename

Q: Need help with subtracting date from a filename. My filename is like: 20221023_Pg_01.pdf (YYYYMMDD ) and I need to subtract 1 day and rename it so that it’s 2022-10-22_section_P01.pdf where it’s YYYYMMDD. My other dilemma is what will I do for a case like 20221001_Pg_01.pdf?

A: Yes this is possible using some Pascal Script. We’ve attached some screenshots to get you started.

We are using a Windows Folder a Source

Windows folder as Source

Open the ‘Pascal Script’ option

Limagito File Mover Pascal Script

Enable and set the following ‘On Destinations’ Pascal Script:

Var
  tmpDate: TDateTime;
  tmpDateStr: String;
  tmpPos: Integer;
  tmpLen: Integer;
Const
  ctDateLen = 8;
 
Function GetDateFromString(const aInput: String): TDateTime;
var
  wYear, wMonth, wDay: Word;
Begin
  wYear := StrToInt(Copy(aInput, 1, 4));
  wMonth := StrToInt(Copy(aInput, 5, 2));
  wDay := StrToInt(Copy(aInput, 7, 2));
  Try
    Result := EncodeDate(wYear, wMonth, wDay);
  Except
    Result := 0;
  End;
End;
 
Begin
  psExitCode := 0;
  (*
  My filename is like: 20221023_Pg_01.pdf (YYYYMMDD ) and I need to subtract 1 day
  and rename it so that it’s 2022-10-22_section_P01.pdf where it’s YYYYMMDD.
  My other dilemma is what will I do for a case like 20221001_Pg_01.pdf?
  *)
  // ... add your code here
  tmpPos := pos('_', psFileName);
  tmpLen := Length(psFileName);
  // Check
  If (tmpLen > ctDateLen) And (tmpPos = 9) Then
  Begin
    Try
      tmpDateStr := Copy(psFileName, 1, ctDateLen);
      psLogWrite(1, '', 'Date stripped as String: ' + tmpDateStr);
      tmpDate := GetDateFromString(tmpDateStr);
      tmpDate := psIncDay(tmpDate, -1);
      psVSA := FormatDateTime('yyyy-mm-dd', tmpDate);
      psLogWrite(1, '', 'Date Update as String: ' + psVSA);
      // Set ExitCode
      psExitCode := 1;
    Except
      psLogWrite(1, '', 'Exception Error when searching for Date in filename: ' + psFilePath + psFileName);
    End;
  End
  Else
    psLogWrite(1, '', 'Not a valid filename: ' + psFilePath + psFileName);
End.

Pascal Script

The above script will strip the datepart from the filename. We’ll substract one day from this datepart and put the result (in the requested format) in the psVSA var (%VSA).

Please enable and adjust the File Renaming option in you Destination:

Destination File Renaming

File Rename Setup:

RegEx: (.*)_(.)(.*)_(.*)\.(.*)

Replacement: %VSA_section_\2\4.\5

Destination File Renaming option

#Filetransfer #Script

If you need any help with this ‘subtracting date from a filename’ option, please let us know.

Best Regards,

Limagito Team

By Limagito-Team Pascal Script date, subtracting

← 1 … 7 8 9 10 11 12 13 … 27 →

Contact Us Now

Pascal Script

File renaming logic using day of week function

Move and change content of a txt-file

Need help with subtracting date from a filename

SEARCH

CATEGORIES

ARCHIVES

TAGS

DISCOVER OUR SITE