Writing a ASCII-File

Kromozone

Hi Board,

I want to write an ASCII-File with some Parameters, separated by ";".
Is there a way to write this File by the piece and not as one big string?

If I write my Parameters with "file.write", Navision everytime writes an CRLF after it, but I want it as one long text without any Linefeeds

How can I prevent this?

Thank you
Rainy greetings from South-Germany!

Andy

Tommy_Schou

Kromozone wrote:

Hi Board,

I want to write an ASCII-File with some Parameters, separated by ";".
Is there a way to write this File by the piece and not as one big string?

If I write my Parameters with "file.write", Navision everytime writes an CRLF after it, but I want it as one long text without any Linefeeds

How can I prevent this?

Thank you
Rainy greetings from South-Germany!

Andy

I haven't really tested this. But there are a few ways to do it I should think. If you set textmode to false you will not get the CRLF appended. Another way would be to seek - -2 on the file everytime you have made a file.write.

Kromozone

Tommy Schou wrote:

If you set textmode to false you will not get the CRLF appended.

But if Textmode is false, Navision writes an binary file, not an ASCII I thought.

Tommy Schou wrote:

Another way would be to seek - -2 on the file everytime you have made a file.write.

Can you explain how to? :oops:

Tommy_Schou

TestFile.CREATE('c:\tmp\test2.txt');
TestFile.OPEN('c:\tmp\test2.txt');
TestFile.TEXTMODE(TRUE);
TestFile.WRITE('This is a test');
TestFile.SEEK(TestFile.POS-2); // Go back 2 positions in the file thus overwriting CRLF
TestFile.WRITE('Line 2. CRLF should not exist');
TestFile.CLOSE;

The above should create a file with 2 lines in it.. where there is no CRLF between the lines.

There is however a CRLF at the very end... I tried getting rid of it by writing

TestFile.SEEK(TestFile.POS-2); // Go back 2 positions in the file thus overwriting CRLF
TestFile.TRUNC

before TestFile.Close. But though it should work. It apparently doesn't. Maybe you will have better luck!

Kromozone

Thank you Will test it afterward...

Andy

fb

This problem is often solved by writing the file one Char at a time...

(CrLf is defined as Text with a length of 2...)

...

  TestFile.TEXTMODE(FALSE);
  TestFile.CREATE('c:\tmp\TestFile.txt');
  CrLf[1] := 13;
  CrLf[2] := 10;

  WriteString(Param1 + ';');  // first parameter...
  WriteString(Param2 + ';');  // second parameter...
  WriteString(Param3 + CrLf); // last parameter, add linefeed...

  TestFile.CLOSE;
  ...

PROCEDURE WriteString(NewString : Text[250])
VAR
  i : Integer;
BEGIN
  FOR i := 1 TO STRLEN(NewString)
    TestFile.WRITE(NewString[i]);
END;