Outstream and Carriage Returns

Alex_Chow

I'm using Outstream to write to a file. The problem is when I use Outstream, it does not put Carriage return at the end of the line. I'm going to be writing multiple lines using Outstream.

I can't use the regular write, because it crashes if you write a very long string.

I've tried this:

ExportFileName.TEXTMODE(FALSE);
OutputText.ADDTEXT(sometext);
ExportFileName.CREATEOUTSTREAM(OutStr);
OutputText.WRITE(OutStr);
ExportFileName.write(LF);
ExportFileName.write(CR);
ExportFileName.CLOSE;

I also tried:

ExportFileName.TEXTMODE(FALSE);
OutputText.ADDTEXT(sometext);
ExportFileName.CREATEOUTSTREAM(OutStr);
OutputText.WRITE(OutStr);
ExportFileName.CLOSE;

ExportFileName.OPEN(NameofExportFile);
ExportFileName.TEXTMODE(FALSE);
ExportFileName.SEEK(ExportFileName.LEN);
ExportFileName.WRITE(LF);
ExportFileName.WRITE(CR);
ExportFileName.CLOSE;

I also tried:

ExportFileName.TEXTMODE(TRUE);
OutputText.ADDTEXT(sometext);
ExportFileName.CREATEOUTSTREAM(OutStr);
OutputText.WRITE(OutStr);
OutputText.WRITE('');

But nothing seem to work. Can anyone help? Thanks!

jglathe

Hello Alex,

strange thing this... I looked it up. For writing overlong lines I am using code which writes 1024char-chunks (maximum text variable), and reposition the file position before the trailing CR/LF for the next chunk. The outfile is written in textmode, no OUTSTREAM. This way you always get a CR/LF on the line's end.

with best regards

Jens

Alex_Chow

I'm using bigtext and Outstream to write the lines to the file. Again, if you're exporting over (I think) 5000 character in a single line using File.WRITE, it crashes saying something about memory. For my case, using TEXTMODE and FILE.WRITE is not an option.

Anyone have any experience using Outstream and added the carriage return?

jglathe

What you can do is:

after OutStream.Write(), do a

OutFile.textmode(true);
OutFile.write('');
OutFile.textmode(false);

You can also write the CR/LF as bytes from a string (in binary mode). The catch is to not use the OutStream for it.

with best regards

Jens

Alex_Chow

jglathe wrote:

What you can do is:

after OutStream.Write(), do a

OutFile.textmode(true);
OutFile.write('');
OutFile.textmode(false);

You can also write the CR/LF as bytes from a string (in binary mode). The catch is to not use the OutStream for it.

with best regards

Jens

Hi Jens,

Thanks for the reply. But as you can see from the sample I provided above, I tried these codes, but it didn't work.

jglathe

Hi Alex,

you're right, I just tried it out - only works once at the end of the file. However, it works directly with BigText when you ADDTEXT the CR/LF into the BigText:

CRLFString[1] := 13;
CRLFString[2] := 10;
TargetFile.CREATE('C:\Compress\CRLFTest.txt');
TargetFile.CREATEOUTSTREAM(TargetStream);
//create a longer than 4k text
FOR i := 1 TO 500 DO BEGIN
  TargetText.ADDTEXT('0123456789');
END;
//add the cr/lf
TargetText.ADDTEXT(CRLFString);
//repeat to rule out that it works only once
FOR k:=1 TO 10 DO BEGIN
  TargetText.WRITE(TargetStream);
END;
TargetFile.CLOSE;
MESSAGE('done');

with best regards

Jens

Alex_Chow

Jens, you are AWESOME!!!

Your next round of drinks is on me whenenver I meet you. :thumbsup: