Text file parameters

[topten]

Is it possible to set the text file parameters? For example in notepad.txt  I can manually set the patameters of page for printing 420x594 mm. How to do it programmatically

[water]

What have you tried so far?

[topten]

Thank you, water for your response.

The thing is I am reading a text file line by line , encoding it base64 and then writing it to another text file. So in the text file it is supposed to be something like

"1"="asdfghasdfghasdfghasdfghasdfghasdfgahsdfghasd"

"2"="asdghjasdghajsdhgajsdhgasdjhgasdjhgasdjhgasdjhgasdjhg" etc

But as a result I am getting the situation when a very long line is broken into 2 or 3 lines and I am getting

"1"="asdfghasdfghasd

fghasdfghasdfghasdfgahsdfghasd"

"2"="asdghjasdghajsdhgajsdhgasdjhgasdjhga

sdjhgasdjhgasdjhg"

 

etc

The code is

$sFilePath = @DesktopDir & "outfile.txt"
$num = _FileCountLines ( $sFilePath )
Local $hFileOpen = FileOpen($sFilePath, $FO_READ)

  for $i = 1 to $num
    Local $sFileRead = FileReadLine($hFileOpen, $i)
    ConsoleWrite ($sFileRead & @CRLF)
    $base64encoded = _Base64Encode ($sFileRead, False)
    filewrite (@DesktopDir & "\infile.txt",  '"'&$i & '"="' & $base64encoded & '"' & @CRLF)
  next

I think, may be this line breaking is happening, because the width of txt file innitially set?

[water]

You mean: Even with ConsoleWrite you get 2 or 3 lines which are shorter than the maximum width of the SciTE output pane?

[topten]

Yes, right

Sometimes I am getting in 3 lines, something like

"1"="asdfgha

sdfghasdfghasdfghasdfgh

asdfgahsdfghasd"

Instead of

"1"="asdfghasdfghasdfghasdfghasdfghasdfgahsdfghasd"

 

[topten]

If to be more precise in consolewrite I am geting such things

"7"="asdasdasdasdasdasdasdasdasdasd"          
"8"="sdftrtytyiyuiyjghnfghfghrtyrgdfsdfw
asdasdasd"            asdasdasdasdasertertertrthgbgfgdf
"9"="qweasdxcvdfgrtyfghvbnghryfgbcv"

[water]

According to wikipedia there seems to be a maximum line length of 76 bytes for mime before a CRLF is being inserted.

https://en.wikipedia.org/wiki/Base64#MIME

[topten]

I see. What I am doing now - I am writing these into txt file and then manually change the "linebreaks on/off" parameter in notepad.  When I manually changes this then all lines are going  without breaks.

I wonder, Can I do anything about that programmatically

 

[water]

I'm not sure it is sensible to have your script and the base64 encoding function insert CRLF into the result.
I think you should read the while file using FileRead (ignoring CRLF), encode it and then write the result to the output file without adding a CRLF.

[topten]

That's the problem. The file should have the structure

"1"="...................."

"2"="...................." etc

If it gets the structure like a

"1"=".....................................

....................

......"

"2"="..........................

............

...."

It will fail. It is a .reg file

[topten]

I tried to remove @CRLF- after that everythin is becoming even more messy

[topten]

But what is interesting.

$hFileOpen2 = @DesktopDir & "\patchcreating\in.txt"
$hFileOpen3 = @DesktopDir & "\patchcreating\out.txt"

$sFileRead = FileReadLine($hFileOpen2, 1)
$sFileRead2 = FileReadLine($hFileOpen2, 2)
FileWriteLine($hFileOpen3, $sFileRead& $sFileRead2)

When I read the ready file's line 1 and line 2 and then write them together into another file they are written into one line as it is supposed

 

[water]

That's what I said: Looks like the encoding routine inserts the CRLF.

[topten]

I have designed quite a hackish way to fix it though

$source = FileRead (@DesktopDir & "in.txt")

$text =  StringRegExp($source, '(?s)="(.*?)"', 3)

for $i = 0 to UBound ($text)-1
$string = StringStripWS($text[$i],8)
filewrite (@DesktopDir & "\out.txt",  '"'&$i+1 & '"="' & $string & '"' & @CRLF)


next

Have to create another file and after that remove those whitespaces. Works, but still not solved, why can't I just directly write into innitial file without those line breaks

[topten]

You are right, Water. It is the encoding routine, that is inserting CRLF, I found it in the udf