Pascal Script Archives - Page 9 of 31 - File transfer tool from Limagito

05 Nov
How to setup a rule that reads a list of folders from a file
How to setup a rule that reads a list of folders from a file
Q: I wonder can you help me. I have a Source folder with hundreds of subfolders, each with a 5-digit numeric name –
c:\source\23432, c:\source\76453 – you get the idea
Inside each subfolder is a list of .txt and/or .inp files. – that’s kind of irrelevant.
I’m trying to setup a rule that reads a list of folders from a file, one per line
I want the rule to move t or copy the contents of just those subfolders to a destination which will also have the entry from the file somewhere in the destination path – e:\destinatio\<foldername>\target for eample
I’ve tried use %FSA in various ways, but I’m hitting a brick wall. Any ideas?
Limagito: Could you send me an example of such a file which contains the folders to copy
It’s as simple as these – so the source folders would, for example, be c:\source\<linefromfile> and the destination would be e:\dest\<linefromfile>
$List of folders from a file\list of folders from a file$
Limagito: ok both text files are just examples I guess. Th text file to read from would always have the same name or would there be multiple txt files?
For each rule, the text file will always be the same – one text file per job. The contents of each source folder however will change
A: This is possible using a custom script.
We are using a Windows folder as source.
This folder contains subfolders, each with a 5-digit nummer.

Please open our ‘Pascal Script’ option:
Please enable and add the following ‘On Rule Begin’ Pascal Script. Don’t forget to adjust the ctTxtFile const. The script will read the content of the external text file and will set to our %VSA variable. This %VSA variable will be used in the Directory setup later.
You can download the script: here
The Directory Filter setup is very important in this case:
Enable ‘Include Subdirectories’
‘Exclude Basedirectory’, because we only are interested in the content of the subfolders
Set ‘Subdirectory Filter Depth’ to ‘1’. Only the first level folder name is the one that will be used to check if it exists in the txt file.
Switch to the ‘Dir Name’, ‘Include’ tab:
Add %VSA as Directory Include Filter
Switch to ‘Advanced’ tab:
Set ‘SubDir Search Mode (WIN) to ‘Exclude Complete Invalid SubDirs’
The reason is that we will not scan invalid subfolders. So, if we can not find the folder name (5-digit numeric name) in the external text file, we’ll skip the subfolder completely.
We used a Windows Folder as Destination with default setup options:

RunTime log result:
Destination output result:
#filetransfer #filemanagement
If you need any help with this ‘list of folders from a file’ request, please let us know.
Best Regards,
Limagito Team
By Limagito-Team Filters Pascal Script list of folders
05 Nov
How to adjust text in a xml file
How to adjust text in a xml file
Q: How can I setup a watch folder for any xml files come in and search for specific wording and change it to another word and move it out to an output directory.
For the attach example:
If you see the word “ <Main>1</Main>” then change to <Main>Good</Main>
If you see other word beside “1” then chang to <Main>NoGood</Main>
Example content:
<?xml version=”1.0″?>
<Header>
<Main>1</Main>
<name>Geen</name>
<Date>221023</Date>
</Plan>
A: Yes this is possible using ‘Pascal Script’ as Destination.
Source is a Windows folder:
We adjusted the ‘Include Filename Filter’ to *.xml because we only want to handle xml files here.
We added our ‘Pascal Script’ option as Destination:
We added the following script. Please do not forget to adjust the ctOutputPath const which must end with a \
You can download the script: here
RunTime Log result:
Content of the 3 source test files we used:
1. TEST.Good.xml
<?xml version=”1.0″?>
<Header>
<Main>1</Main>
<name>Geen</name>
<Date>221023</Date>
</Plan>
2. TEST.NoGood.xml
<?xml version=”1.0″?>
<Header>
<Main>0</Main>
<name>Geen</name>
<Date>221023</Date>
</Plan>
3. TEST.NoGood.blanc.xml
<?xml version=”1.0″?>
<Header>
<Main></Main>
<name>Geen</name>
<Date>221023</Date>
</Plan>
Content of the 3 resulting Destination files:
1. TEST.Good.xml
<?xml version=”1.0″?>
<Header>
<Main>Good</Main>
<name>Geen</name>
<Date>221023</Date>
</Plan>
2. TEST.NoGood.xml
<?xml version=”1.0″?>
<Header>
<Main>NoGood</Main>
<name>Geen</name>
<Date>221023</Date>
</Plan>
3. TEST.NoGood.blanc.xml
<?xml version=”1.0″?>
<Header>
<Main>NoGood</Main>
<name>Geen</name>
<Date>221023</Date>
</Plan>

#xml #filetransfer #filemanagement
If you need any help with this ‘adjust text in a xml file’ request, please let us know.
Best Regards,
Limagito Team
By Limagito-Team Pascal Script XML adjust txt, rename text, specific wording

02 Nov

How to filter files based on reading their content header data

How to filter files based on reading their content header data

Q: How to filter file from read content in file. Header data date=today yyyymmdd

I want is as shown in the picture below.

$filter files based on reading their content header data\filter files based on reading their content header data$

A: In this case the Source must be a Windows folder or share:

limagito file mover windows folder as source

Test file inside of: C:\Test\Customer\In\

limagito fil emover test file example

Please open our Pascal Script option:

limagito file mover pascal script option

Please enable and add the following ‘On Destination’ Pascal Script:

Var
  iList: Integer;
  tmpCurrentDate, tmpEntry, tmpFile: String;
  tmpList: TStringList;
Const
  ctRunDate = 'RUNDATE=';
Begin
  psVSA := '';
  psExitCode:= -2;
  tmpCurrentDate := FormatDateTime('YYYYMMDD', Now);
  tmpFile := psFilePath + psFileName;
  psLogWrite(1, '', 'Searching for RUNDATE inside File: ' + tmpFile);
  tmpList := TStringList.Create;
  Try
    Try
      tmpList.LoadFromFile(tmpFile);
      // Iterate
      For iList := 0 to (tmpList.Count - 1) Do
      Begin
        tmpEntry := AnsiUpperCase(tmpList.Strings[iList]);
        If pos(ctRunDate, tmpEntry) <> 0 Then
        Begin
          tmpEntry := psStringReplace(tmpEntry, ctRunDate, '');
          If tmpEntry <> '' Then
          Begin
            If SameText(tmpEntry, tmpCurrentdate) Then
            Begin
              psExitCode := 1; // Filter found
              // Debug
              psLogWrite(1, '', 'Valid RUNDATE found: ' + tmpEntry);
              // Break
              Break;
            End;  
          End;
        End;
      End;
     Except
       psLogWrite(1, '', 'LoadFromFileError, ' + tmpFile);
     End;
  Finally
    tmpList.Free;
  End;
End.

limagito file mover pascal script option

We added the following filename include filter because it is important to only process text based files:

limagito file mover file filter setup

We added a Windows folder as Destination:

limagito file mover destination setup

RunTime Log result:

limagito file mover runtime log result

#filehandling #filetransfer #filemanagement

If you need any help with this ‘filter files based on reading their content header data’ request, please let us know.

Best Regards,

Limagito Team

By Limagito-Team Filters Pascal Script content data, content header data, filter files

← 1 … 6 7 8 9 10 11 12 … 31 →

Contact Us Now

Pascal Script

How to adjust text in a xml file

How to filter files based on reading their content header data

SEARCH

CATEGORIES

ARCHIVES

TAGS

DISCOVER OUR SITE

Contact Us Now

Pascal Script

How to setup a rule that reads a list of folders from a file

How to adjust text in a xml file

How to filter files based on reading their content header data

SEARCH

CATEGORIES

ARCHIVES

TAGS

DISCOVER OUR SITE