• 19 May
    LimagitoX2 – The neXt BIG step

    LimagitoX2 – The neXt BIG step

    https://www.linkedin.com/pulse/limagitox2-next-big-step-file-mover

     

    Credits: www.iconarchive.com

  • 13 May

    Code Page Identifiers

    In Limagito v11.05.13.0 we’ve added the following function:

    Function psSaveTxt2File(Text, Destination: String; Encoding: String; WriteBOM: Boolean): Boolean;

    This function can be used to convert text file encoding. The ‘Encoding’ string var that needs to be passed to the function can be found in the name table in the following link:

    msdn.microsoft.com

    In the following example we’ll read the content of a text file (File Filter is set to only pickup .txt files) and save it using ‘ISO-8859-1’ encoding.

    On Destination Pascal Script


    var
    aList: TStringList;
    aString: String;
    const
    ctOutputPath = 'C:\Test\Out\';
    Begin
    psExitCode:= 1;
    // ... add your code here
    aList := TStringList.Create;
    Try
    Try
    aList.LoadFromFile(psFilePath + psFileName);
    // Save
    psSaveTxt2File(aList.Text, ctOutputPath + psFileName, 'ISO-8859-1', False);
    Except
    psLogWrite(1, '', 'Pascal Script Exception');
    End;
    Finally
    aList.free;
    End;
    End.

    Best Regards,
    Limagito Team

    By Limagito New Option