How to wrap any lines longer than say 80 characters
Q: Is there a way when moving a text file to wrap any lines longer than say 80 characters?
A: Yes this possible using the following Pascal Script as Destination
- Add our Pascal Script option in your Destination setup
- Don’t forget to adjust the ctOutputPath Const value.
Var iList: Integer; tmpEntry, tmpStrip: String; tmpFileIn, tmpFileOut: String; tmpListIn, tmpListOut: TStringList; Const // Should be different than the Source path, must end with a \ ctWordWrap = 80; ctOutputPath = 'C:\Test\Out_TXT\'; Begin psExitCode := 0; tmpFileIn := psFilePath + psFileName; tmpFileOut := ctOutputPath + psFileName; // ... add your code here tmpListIn := TStringList.Create; tmpListOut := TStringList.Create; Try Try tmpListIn.LoadFromFile(tmpFileIn); // Iterate For iList := 0 to (tmpListIn.Count-1) Do Begin tmpEntry := tmpListIn.Strings[iList]; if Length(tmpEntry) > ctWordWrap Then Begin Repeat tmpStrip := Copy(tmpEntry, 1, ctWordWrap); tmpListOut.Add(tmpStrip); tmpEntry := Copy(tmpEntry, ctWordWrap+1, length(tmpEntry)-ctWordWrap); If Length(tmpEntry) <= ctWordWrap Then tmpListOut.Add(tmpEntry); Until Length(tmpEntry) <= ctWordWrap; End Else tmpListOut.Add(tmpEntry); End; Except psLogWrite(1, '', 'Error handling ' + tmpFileIn); End; // Save Result Try psLogWrite(1, '', 'Saving ' + tmpFileOut); tmpListOut.SaveToFile(tmpFileOut); // Set Result to Successful psExitCode := 1; Except psLogWrite(1, '', 'Error saving ' + tmpFileOut); End; Finally tmpListIn.Free; tmpListOut.Free; End; End.
If you need any help about this ‘wrap any lines longer than’ request, please let us know.
Best Regards,
Limagito Team
#managedfiletransfer #filetransfer #filemanagement
