OpenEuphoria

Re: LineFeed and Textarea

• Posted by Tommy Carlier <tommy.carlier at pandora.be> Apr 18, 2004
• 361 views

unknown wrote:
> Just a little question:
> 
> I have a text inside an EditText area. Every time the program executes the
> following
> lines:
> ft = open( filename, "w")
> puts( ft, getText( fTextArea)) 
> close( ft)
> each text line is "enriched" by one more Line Feed, that is | 0D 0A |
> characters.
> After four such save operations (and reload), every line results spaced four
> times
> (in a normal editor), 
> while it shows in the EU TextArea 4 unreadable symbols.
> 
> The whole file was read with the simple:
> 
> data = gets( fh)
> 
> I tried then the more laborious formula:
> 
>  while 1 do
>      line = gets(fh)
>      if atom(line) then
>          exit  
>      end if
>      data &= line[1..length( line)-1]
>  end while
> 
> and that problem does not repeat, but the text lines are no more spaced as due
> by
> the Line Feed. All the text flows like a single line.

I think the EditText expects {0D, 0A} or {0A, 0D} at the end of each line. So
after removing the last character of each line, try appending "\n\r" or "\r\n". I
think one of those should do it.

<code>
end_of_line = "\n\r" -- or "\r\n"
while 1 do
    line = gets(fh)
    if atom(line) then
        exit  
    end if
    data &= line[1..length( line)-1] & end_of_line
end while
</code>