> Hello,
>
> I want to insert a string or a line at the first line of an existing
> file. Therefore I used the REWIND command or POSITION= clause with
> value 'REWIND' in the OPEN-command to get to the first line of the
> file. But when I insert the line the whole file is overwritten and
> contains only the new line.
>
> I'm using the Fortran free format, my OS is Linux and intel is the
> fortran compiler.
>
> Thanks in advance!
>
> The neccessary cutout of my code:
>
> WRITE(6,*)'Input file?'
> READ(6,*)filename
> WRITE(6,*)'Insert file?'
> READ(6,*)insert ...

> On Jul 20, 6:52 pm, ima...@freenet.de wrote:

>> Hello,
>>
>> I want to insert a string or a line at the first line of an existing
>> file. Therefore I used the REWIND command or POSITION= clause with
>> value 'REWIND' in the OPEN-command to get to the first line of the
>> file. But when I insert the line the whole file is overwritten and
>> contains only the new line.
>>
>> I'm using the Fortran free format, my OS is Linux and intel is the
>> fortran compiler.
>>
>> Thanks in advance!
>>
>> The neccessary cutout of my code:
>>
>> WRITE(6,*)'Input file?'
>> READ(6,*)filename
>> WRITE(6,*)'Insert file?' ...

> tianyf@gmail.com wrote:
>

>> On Jul 20, 6:52 pm, ima...@freenet.de wrote:
>>

>>> Hello,
>>>
>>> I want to insert a string or a line at the first line of an existing
>>> file. Therefore I used the REWIND command or POSITION= clause with
>>> value 'REWIND' in the OPEN-command to get to the first line of the
>>> file. But when I insert the line the whole file is overwritten and
>>> contains only the new line.
>>>
>>> I'm using the Fortran free format, my OS is Linux and intel is the
>>> fortran compiler.
>>>
>>> Thanks in advance!
>>>
>>> The neccessary cutout of my code:
>>> ...

> Louis Krupp wrote:

>> You can do that now ... in Perl. You can read a file into an array of
>> lines, you can insert lines into the array, you can delete lines from
>> the array, and you can write it all back to a new file, all in a few
>> lines of code. There's no point in trying to do absolutely *everything*
>> in Fortran if you can avoid it.

> ...or REXX or Python or Ruby or Expect or EXEC2 or VOS JCL or even
> Script/GML

>> Just don't try to do number crunching in Perl.

> How about writing a non-standard Fortran routine
> "textfile_insert_lines(file,line,str_to_insert)"? To make sure it
> works also in Windows platform, I prefer to using loops to read and
> write files line by line.
>
> I do not have this kind of needs now (but maybe some time in the
> future). So, I'd like to receive such a copy if there is one. :)

> On Jul 22, 9:02 am, "tia...@gmail.com" gmail.com> wrote:
>

>> How about writing a non-standard Fortran routine
>> "textfile_insert_lines(file,line,str_to_insert)"? To make sure it
>> works also in Windows platform, I prefer to using loops to read and
>> write files line by line.

>

>> I do not have this kind of needs now (but maybe some time in the
>> future). So, I'd like to receive such a copy if there is one. :)

>
> Right now, I don't have the need of such routine as well, but I just
> wrote it...
>
> program insert_string
> !COMMAND LINE: insert_string FILE STRING LINE
>
> implicit none
>
> integer :: nArgs = 3, line, i, len, status ...