文字列の読み込みを順々に繰返し、それぞれの行に対応したプログラミングを作りたい。

Question

"C:\theme\200104.073253_ch01-03.ew"
"C:\theme\200104.073253_ch01-03.ns"
"C:\theme\200104.073253_ch01-03.ud"
"C:\theme\200104.073253_ch04-06.ew"
"C:\theme\200104.073253_ch04-06.ns"
:
と続くファイルがあり、上記のファイルを読み取り、これを以下のように直すプログラミングが作りたいです。
test.exe <C:\theme\200104.073253_ch01-03.ew> 200104.073253_ch01-03.ewa
test.exe <C:\theme\200104.073253_ch01-03.ns> 200104.073253_ch01-03.nsa
test.exe <C:\theme\200104.073253_ch01-03.ud> 200104.073253_ch01-03.uda
test.exe <C:\theme\200104.073253_ch04-06.ew> 200104.073253_ch01-03.ewa
test.exe <C:\theme\200104.073253_ch04-06.ns> 200104.073253_ch01-03.nsa
:
c23456
implicit none
integer,parameter ::len = 33
character(len) n
character a16,b3,c
a='test.exe < '
b=' > '
c='a'
read (,'(1x,a33)') n
write(,'(a)')a//n//b//n//c
end

現在、上記のプログラミングで1行分だけ書き出すことはできたのですが、最終目標としてはこれをそれぞれの行に対応して繰返し書き出したいです。
自分の方針としてはnをx(i)=1,y(ここでのyはファイルの最後の行数)に変え、順々に読み取っていこうと考えていましたがエラーが出てしまいました。この方針では不可能でしょうか。また、不可能な場合、どのような方針で進めていけばいいか教えていただきたいです。

Comments

[Zuishin]

課題ですよね？
何のために FORTRAN を勉強しているんでしょうか？
プロになりたいなら、こんなところでつまずいて他人に頼っていてはとてもおぼつかないのでは？
https://qiita.com/implicit_none/items/f582f2d4e10f2655e208#%E6%96%87%E5%AD%97%E5%88%97%E3%81%AE%E6%A4%9C%E7%B4%A2

[otn]

＞整数型（integer）で抜き出したいです。
と
＞c,dは始めの0も含めて抜き出したいです。
が矛盾していますね。もう少し初歩から復習してはどうでしょうか？

Answer 1

方針としてはそれでいいのではないでしょうか。

implicit none
integer,parameter ::len = 33
character(len) n
character a*16,b*3,c
a='test.exe < '
b=' > '
c='a'
do
    read (*,'(1x,a33)', end = 999) n
    write(*,'(a)')a//n//b//n//c
end do
999 stop
end

変数名などの選び方に不統一な投げやり感が漂っているので、それに合わせて end = 999 で End Of File を検出することにしてみます。

Comments

[Arapeeeee_1019]

大変参考になりました。回答ありがとうございました。