next_line is not necessary. read_line already moves cursor to next
position.
Jean RUPPERT wrote:
> Hello Roman,
>
> I only have smarteiffel, and I cannot
> testy your code, so I don't know what is
> wrong with it. Maybe reading and writing
> at the same time to a file causes some problems.
> Maybe you read again the line you just have written
> I would try this out, even though it is not very
> elegant. If it does not help you please tell me
>
> Yours
>
> Jean
>
> class
> APPLICATION
> create
> make
> feature -- Initialization
> make is
> -- Run application.
> local
> input_file: PLAIN_TEXT_FILE
> output_file: PLAIN_TEXT_FILE
> text_line: STRING
> do
> create input_file.make_open_read ("kunden.tab")
> create output_file.make_open_write ("kunden_neu.tab")
> if input_file.exists then
> if input_file.readable and output_file.writable then
> from
> input_file.start
> until
> input_file.end_of_file
> loop
> input_file.read_line
> text_line := input_file.last_string.substring
> (7, file.last_string.count)
> output_file.put_string (text_line)
> input_file.next_line
> end
> end
> output_file.close
> input_file.close
> end
> end
> end -- class APPLICATION
>
>
> Roman Töngi a écrit :
>> I want to change a file consisting of customer records.
>> Every line is finished by a return; so I think the file
>> should be formated properly.
>>
>> I read every line one after the other, rewriting the lines
>> without the first seven characters.
>>
>> The first line is read correctly, but remains unchanged.
>> Furthermore, file.next_line does not move to the next line but
>> to a arbitrary position.
>>
>> What is wrong with the code? Thanks for any help.
>>
>>
>>
>> class
>> APPLICATION
>> create
>> make
>> feature -- Initialization
>> make is
>> -- Run application.
>> local
>> file: PLAIN_TEXT_FILE
>> text_line: STRING
>> do
>> create file.make_open_read_write ("kunden.tab")
>> if file.exists then
>> if file.readable and file.writable then
>> from
>> file.start
>> until
>> file.end_of_file
>> loop
>> file.read_line
>> text_line := file.last_string.substring (7,
>> file.last_string.count)
>> file.put_string (text_line)
>> file.next_line
>> end
>> end
>> file.close
>> end
>> end
>> end -- class APPLICATION
|
