Contact Us Now

Q: We receive some files in XML format. Could you please confirm, if Limagito tool can convert XML files to JSON format? If yes, Do we have any limitations while converting the file type? Please let us know if you need any additional information.

A: We added an option in version v2023.5.31.0 to achieve this.

• Our Source will be a Windows folder

• We added the following include Filename filter because we only want to scan for *.xml files:

• We’ll need a Pascal Script to convert the xml file to a Json file so we added Pascal Script as Destination:

• We noticed that the xml we received from the customer was not a valid xml so we added some extra code (line 18) in the script to adjust this

• Pascal Script we used (don’t forget to adjust the ctOutputPath const):

Var
 tmpFileInput, tmpFileOutput, tmpResult: String;
 tmpXmlText: String;
 tmpList: TStringList;
Const
  ctOutputPath = 'C:\Test\Out_JSon\'; // Must end with a \ 
Begin
  // Init Var
  tmpFileInput := psFilePath + psFileName;
  tmpFileOutput := ctOutputPath + ChangeFileExt(psFileName, '.Json');
  psExitCode:= 0;
  // Read non valid Xml file and adjust before creating Json File
  tmpList := TStringList.Create;
  Try
    Try
      tmpList.LoadFromFile(tmpFileInput);
      tmpXmlText := tmpList.Text;
      tmpXmlText := psStringReplace(tmpXmlText, '-<', '<'); // Adjust Non Valid Xml
      // psLogWrite(1, '', 'StringReplace Xml Result: ' + tmpXmlText); // Debug
      tmpResult := psXmlTextToJSonFile(tmpXmlText, tmpFileOutput, True, True, True, True);
      If tmpResult = '' Then
      Begin
        psLogWrite(1, '', 'Saved Json Data to ' + tmpFileOutput);      
        psExitCode := 1;
      End  
      Else
        psLogWrite(1, '', tmpResult);
    Except
      psLogWrite(1, '', 'Load Xml from ' + tmpFileInput + ' Exception');
    End;
  Finally
    tmpList.Free;
  End;
End.

In the example above we used The following function:

Function psXmlTextToJSONFile(Const aXmlText, aJsonFile: String; Const aXmlParse, aXmlPack, aJsonIndent, aJsonEscape: Boolean): String;

The psXML functions have a aXmlPack option that determines the format returned, Pack = False returns all tags as values with multiple nested levels of objects, Pack = True is simpler and easier to process but does lose some tag names.

aXmlPack = False : all XML content is converted into Json values, each level with two or three names: #attributes is an optional object from opening tag, #Name
is the string from <Tag>, and #children which is an array of other Json objects and arrays nested within the tag.

aXmlPack = True : tags are converted to Names and their content to Values, or nested objects. For a single record, a single object is returned with the tag names
lost, for multiple records (ie tags of the same name) an array is created with each record being an object.

• RunTime Log Result:

• Json File Result:

• Another available Pascal Script function that can be used only when source xml is valid (direct file to file conversion):

Function psXmlFileToJSONFile(Const aXmlFile, aJsonFile: String; Const aXmlPack, aJsonIndent, aJsonEscape: Boolean): String;

• Pascal Script will result in:

Var
 tmpFileInput, tmpFileOutput, tmpResult: String;
Const
  ctOutputPath = 'C:\Test\Out_JSon\'; // Must end with a \ 
Begin
  // Init Var
  tmpFileInput := psFilePath + psFileName;
  tmpFileOutput := ctOutputPath + ChangeFileExt(psFileName, '.Json');
  psExitCode:= 0;
  // Xml File To JSon File
  tmpResult := psXmlFileToJSonFile(tmpFileInput, tmpFileOutput, True, True, True);
  If tmpResult = '' Then
  Begin
    psLogWrite(1, '', 'Saved Json Data to ' + tmpFileOutput);  
    psExitCode := 1;
  End  
  Else
    psLogWrite(1, '', tmpResult);
End.

#filetransfer #mft #filemanagement #xml #json