Save Date from FileName in TDateTime var in PascalScript

Luro · 2020-01-16 18:28

Hey there,
Is there a way to safe a certainly formatted Date from the fileName into a Tdatetime Variable in pascalscript? I didn‘t really find a proper function in the function register.
(Example of format: TT-MM-YYYY)

Thanks

den4b · 2020-01-17 02:01

You are probably interested in these functions:

function FormatDateTime(const Format: String; DateTime: TDateTime): String;
function ScanDateTime(const Pattern, Subject: String): TDateTime;
function TryScanDateTime(const Pattern, Subject: String; out DateTime: TDateTime): Boolean;

Full list of available functions:
https://www.den4b.com/wiki/ReNamer:Pasc … :Functions

Date time format specification:
https://www.den4b.com/wiki/ReNamer:Date_and_Time_format

Luro · 2020-01-17 10:37

Hi,

thanks for the quick answer.

I edited a code i got in my last topic in this forum:

var
  DateRegEx:TWideStringArray;
  DateString: WideString;
  Date:TDateTime;
begin
  DateRegEx:=SubMatchesRegEx(FileName,'(\d+_)(\d+)(_\d+)',false);
  if Length(DateRegEx) <=0 then exit;
  DateString:= DateRegEx[1];

  showmessage(DateString);
  Date:=ScanDateTime(ddmmyyyy,DateString);
  FileName := 'C:\new' +'\'+FormatDateTime('yyyy', Date) +'\'+
    FormatDateTime('mm-yyyy', Date)+ '\' +  FormatDateTime('mm-yyyy', Date) + '_new.txt';
end.

Everytime i run the code i get the error:

[Line 11]Error: Unknown identifier 'ddmmyyyy'

I hope you can help me fix this issue.

Luro

Stefan · 2020-01-17 10:47

Hi Luro,

"ddmmyyyy" is a literal string,

so mark it as a string in PascalScript, same as shown in the errormsg: 'ddmmyyyy'

Else PS will lookup for a variable name ddmmyyyy.

HTH?

Luro · 2020-01-17 10:50

Thanks a lot ;D

den4b · 2020-01-17 14:38

Luro, from what I can see in your script, this should be achievable without even using the Pascal Script rule.

Consider the following rules:
1) Insert: Insert " " as Prefix (skip extension)
2) Regular Expressions: Replace expression "\A(.*?(\d+_\d+_\d+).*?)\Z" with "$2#$1" (skip extension)
3) Reformat Date: Convert to "yyyy\mm-yyyy\mm-yyyy" from "dd_mm_yyyy#", skip extension
4) Insert: Insert "C:\NEW\" as Prefix (skip extension)

Example input filename:

abc 17_01_2020 xyz.txt

Output path:

C:\NEW\2020\01-2020\01-2020 abc 17_01_2020 xyz.txt

It is not clear what you want to do with the old filename, so these rules will just keep it as is, but let us know if you need further help.

den4b Forum

#1 2020-01-16 18:28

Save Date from FileName in TDateTime var in PascalScript

#2 2020-01-17 02:01

Re: Save Date from FileName in TDateTime var in PascalScript

#3 2020-01-17 10:37

Re: Save Date from FileName in TDateTime var in PascalScript

#4 2020-01-17 10:47

Re: Save Date from FileName in TDateTime var in PascalScript

#5 2020-01-17 10:50

Re: Save Date from FileName in TDateTime var in PascalScript

#6 2020-01-17 14:38

Re: Save Date from FileName in TDateTime var in PascalScript

Board footer