Contact Us Now

Q: I was wondering if Limagito File Mover can generate an xml on output with the same name as the input filename.

A: Yes this is possible. In this case we’ll add a second Destination. This ‘Pascal Script’ Destination will create the Xml file. It will only generate this xml if the first Destination succeeds.

1.You can use any Source. In our example we used a Windows Folder.

2.We only want write the Xml file if the first Destination Succeeds. Therefore we have to select ‘Destination Memory & Exit Cyclus On Error’ as Destination Option in the Function Setup.

3. Add Pascal Script (PScript) as Second Destination

4. Pascal Script Destination Setup

We received the following example xml from the user (but we can generate other xml structures too):

<?xml version=”1.0″ encoding=”iso-8859-1″?>
<AdWatchData>
<adwatch-ad-number>HOU4001521801</adwatch-ad-number>
<file_name>HOU4001521801.pdf</file_name>
</AdWatchData>

We created the following Pascal Script which will generate the xml file. Please don’t forget to adjust the ‘ctOutputPath’ Const which will be different in your case. In our example we’ll create the xml file in: ‘C:\Test\Out\’.

Var
  tmpFileExt: String;
  tmpFileName, tmpFileNameNoExt: String;
  tmpXml: TStringList;
Const
  ctOutputPath = 'C:\Test\Out\'; // must end with a \
Begin
  psExitCode:= 0;
  tmpFileExt := ExtractFileExt(psFileName);
  tmpFilenameNoExt := psStringReplace(psFileName, tmpFileExt, '');
  tmpFileName := tmpFileNameNoExt + '.xml';
  // Create XML
  tmpXml := TStringList.Create;
  Try
    tmpXml.Add('<!--?xml version="1.0" encoding="iso-8859-1"?-->')
    tmpXml.Add('');
    tmpXml.Add('' + tmpFileNameNoExt + '');
    tmpXml.Add('' + psFileName + '');
    tmpXml.Add(''); 
    // Save to File  
    Try
      tmpXml.SaveToFile(ctOutputPath + tmpFileName);
      psExitCode := 1;   
    Except
      psLogWrite(1, '', 'SaveToFile Error, File: ' + ctOutputPath + tmpFileName);
    End;
  Finally
    tmpXml.Free;
  End;  
End.

5.RunTimeLog Result:

6. Generated Xml on Output:

#FileTransfer